Agregar registros de mi BD access a un listview
Espero me la brindes... Yo necesito agregar todos los registros de me base de datos access a un listview, apenas tengo 8 registros y solo tengo una tabla que se llama (usuario) y que contiene solo 2 campos llamados (usuario) y (apellido). Este es mi código.. Ha... Yo ya hice la conexión a la base de datos y puedo ingresar registros desde mi programa pero necesito mostrarlos en un listview. El problema es que solo me muestra el primer registro
Private Sub con_sultar_Click()
seteo ("select * from usuario")
If record.RecordCount = 0 Then
MsgBox "No hay registros guardados"
End If
For c = 1 To record.RecordCount
ListView1.ListItems.Add , , record(0)
ListView1.ListItems(1).SubItems(1) = record(1)
ListView1.ListItems(1).SubItems(2) = record(2)
record.MoveNext
Next c
End Sub
Private Sub con_sultar_Click()
seteo ("select * from usuario")
If record.RecordCount = 0 Then
MsgBox "No hay registros guardados"
End If
For c = 1 To record.RecordCount
ListView1.ListItems.Add , , record(0)
ListView1.ListItems(1).SubItems(1) = record(1)
ListView1.ListItems(1).SubItems(2) = record(2)
record.MoveNext
Next c
End Sub
1 Respuesta
Respuesta de deathwatch
1