Alquien que se Haya leido HackxCrack
Publicado: 01 Ago 2010, 23:01
pues como dice el titulo, en la revista 10 hay un "manejador de bases de datos" que estoy haciendo con la ayuda de esta revista pero no se que pasa el programa tiene que abrir la base de datos previamente seleccionada en el form1 en un textbox el contenido de el text se guarda en una var publica y en el evento load de el form2 abre esta base de datos y pone su contenido en un listbox previamente configurado para que aparescan los nombres de las filas y todos dentro de celdas
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:
codigo de el form2
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