10/03/2006, 21:04
|
 | Usuario no validado | | Fecha de Ingreso: marzo-2005
Mensajes: 194
Antigüedad: 20 años, 1 mes Puntos: 0 | |
| bueno ahora lo he conseguido con un listview pero aun me fallan algunos aspectos pero aqui paso el codigo para quien este interesado en el tema...
Dim rstUsuarios As ADODB.Recordset
Dim strCnn As String
' Abre la tabla usuarios
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Archivos de programa\SoftwareSCC\Datos\bdSCC.mdb;Persist Security Info=FalseProvider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\SoftwareSCC\Datos\bdSCC.mdb;Persist Security Info=False"
Set rstUsuarios = New ADODB.Recordset
rstUsuarios.CursorLocation = adUseClient
rstUsuarios.CursorType = adOpenDynamic
rstUsuarios.LockType = adLockBatchOptimistic
rstUsuarios.Open "SELECT Nombre,ApellidoPaterno,ApellidoMaterno,Calle,Numer o,Telefono,NombreUsuario FROM Usuario " & _
"", strCnn, , , adCmdText
With rstUsuarios
If (.BOF And .BOF) Then
MsgBox "Base de datos vacia", vbInformation + vbOKOnly, "SCC" 'Enviar mensaje de error
Else
ListView1.ListItems.Clear
.MoveFirst
Do While Not .EOF
tli = ListView1.ListItems.Add(, .Fields("Nombre") & "")
tli = ListView1.ListItems.Add(, , .Fields("Calle") & "")
tli = ListView1.ListItems.Add(, , .Fields("Numero") & "")
.MoveNext
Loop
End If
ListView1.GridLines = True
End With |