el problema es que al cargarse el form2 deberia de aparecer el contenido de la base de datos en el listbox amigos no se que pasa lo reviso y no veo nada extraño
estan los ADODB agregados y todo como dice en la revista menos el form1 que fue una funcion que yo le puse para mejorar el programa
este es el codigo de el form1:
Código: Seleccionar todo
Option Explicit
Public Con As ADODB.Connection
Public RsRecordset As ADODB.Recordset
Private Sub Form2_Load()
Set Con = New ADODB.Connection
Set RsRecordset = New ADODB.Recordset
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Form1.txt & ";Persist Security Info=False"
RsRecordset.Open , Con, adOpenDynamic, adLockOptimistic
LlenarList
End Sub
Public Sub LlenarList()
Dim Nodo As ListItem
List.ListItems.Clear
RsRecordset.Requery
RsRecordset.MoveFirst
While Not RsRecordset.EOF
Set Nodo = List.ListItems.Add(, , RsRecordset("IdCliente"))
Nodo.SubItems(1) = RsRecordset("NomCliente")
Nodo.SubItems(2) = RsRecordset("TelCliente")
Nodo.SubItems(3) = RsRecordset("TelCliente")
RsRecordset.MoveNext
Wend
List.Refresh
Set Nodo = List.ListItems.Add(, , RsRecordset("IdCliente"))
End Sub
Código: Seleccionar todo
Option Explicit
Public Con As ADODB.Connection
Public RsRecordset As ADODB.Recordset
Private Sub Form2_Load()
Set Con = New ADODB.Connection
Set RsRecordset = New ADODB.Recordset
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Form1.txt & ";Persist Security Info=False"
RsRecordset.Open , Con, adOpenDynamic, adLockOptimistic
LlenarList
End Sub
Public Sub LlenarList()
Dim Nodo As ListItem
List.ListItems.Clear
RsRecordset.Requery
RsRecordset.MoveFirst
While Not RsRecordset.EOF
Set Nodo = List.ListItems.Add(, , RsRecordset("IdCliente"))
Nodo.SubItems(1) = RsRecordset("NomCliente")
Nodo.SubItems(2) = RsRecordset("TelCliente")
Nodo.SubItems(3) = RsRecordset("TelCliente")
RsRecordset.MoveNext
Wend
List.Refresh
Set Nodo = List.ListItems.Add(, , RsRecordset("IdCliente"))
End Sub
