Gambas - Como mostrar datos de una tabla en un listview

   
Vista:

Como mostrar datos de una tabla en un listview

Publicado por Andres (3 intervenciones) el 18/09/2009 05:54:53
Hola estoy desarrollando una aplicacion en gambas 2.15 con ubuntu 9.04, tengo una Base de datos en MySQL
Me gustaria tomar todos los datos de una tabla llamada historial y mostrarlos en un Listbox o en algun objeto parecido
como un Gridview pero no he encontrado la manera adecuada para realizarlo si me pueden hechar una mano se los agradeceria
Grax de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Gambas
- Código fuente de Gambas
- Cursos de Gambas
- Chat de Gambas
información
Códigos de Gambas
- Estadísticas básicas
- Lector de archivos PDF
- Permutaciones

RE:Como mostrar datos de una tabla en un listview

Publicado por Emmanuel bruno Hualpa (1 intervención) el 12/12/2009 15:45:21
Dim Cnxn As ADODB.Connection ' Esto lo haces en GENERAL DECLARACION dentro de VER CODIGO (en donde se Programa)

Sub Conexion()
Set Cnxn = New ADODB.Connection
Cnxn.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\STOCK.mdb"
Cnxn.Open
End Sub

Private Sub Form_Load()
Call Conexion
call Listar
End sub

Sub Listar()
Dim LST As ListItem
Dim tabla As New ADODB.Recordset
Set tabla = New ADODB.Recordset
pedidosql = "Select * from Stock"
tabla.Open pedidosql, Cnxn, adOpenStatic, adLockOptimistic, adCmdText

ListView1.ListItems.Clear
Do Until tabla.EOF
Set LST = ListView1.ListItems.Add(, , tabla!Codigo)
LST.SubItems(1) = tabla!Compra
LST.SubItems(2) = tabla!Tipo
LST.SubItems(3) = tabla!Articulo
LST.SubItems(4) = tabla!Proveedor
LST.SubItems(5) = tabla!Vencimiento
LST.SubItems(6) = tabla!Peso
LST.SubItems(7) = tabla!Unidad
LST.SubItems(8) = tabla!Marca
LST.SubItems(9) = tabla!Cantidad
LST.SubItems(10) = tabla!Precio
LST.SubItems(11) = tabla!Venta

tabla.MoveNext
Loop
tabla.Close
End Sub

Te aclaro que es un ejemplo lo que te di... MI TABLA (base de datos) SE LLAMA STOCK ahi podes cambiar el nombre y ponerle la tuya... Dentro de mi Base de datos hay una tabla Igual llamada stock (minuscula) y ahi tengo distintos datos cargados.. si ves en la parde de sublistar en donde se carga el listwiev y los datos que se cargan son los mio (campos) ahi podes poner los tuyo si son mas que los mio segui con el 12 (los mismo pero cambiado el Nro y el nombre del campo) ej.. LST.SubItems(11) = tabla!Venta ------->
LST.SubItems(12) = tabla!XXXXXX (el nombre de tu campo). ok
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Miguel Hernandez

Codigo Errado

Publicado por Miguel Hernandez (59 intervenciones) el 22/01/2010 23:55:23
saludos este codigo corre en VB en gambas no funciona el codigo correcto seria

Private Cnxn As Conection ' Esto lo haces en GENERAL DECLARACION dentro de VER CODIGO (en donde se Programa)
Private rs as Result

Private Sub Conexion()
Cnxn = New Conection
Cnxn.host="Localhost"
Cnxn.type="Mysql"
Cnxn.User="usuario del servidor"
Cnxn.password="clave del servidor"
Cnxn.name="mibasededatos"
Cnxn.Open

if Cnxn.opened then
message.info("Conecatdo")
else
message.info("No se pudo Conectar")
endif

End Sub

Private Sub Form_Open()
Call Conexion
call Listar

End sub

Private Sub Listar()
dim n as integer

rs=Cnxn.Find("MiTabla") 'si quieres filtrar usa otros parametros

for n=0 to rs.count-1

List1.add(rs!campo1)

next

Cnxn.close

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar