Visual basic y 2 bases de datos
Hola mi nombre es mariano
Y quería preguntar, como podría hacer para que cuando se clickee un dato en el item de un listbox, compare ese dato con los datos de otra base de datos
Y si coinciden ambos que muestre todos los datos en otro listbox.
Bueno esa fue mi pregunta y espero que puedan respondérmela pronto.
Desde ya gracias por su tiempo y su dedicación.
Y quería preguntar, como podría hacer para que cuando se clickee un dato en el item de un listbox, compare ese dato con los datos de otra base de datos
Y si coinciden ambos que muestre todos los datos en otro listbox.
Bueno esa fue mi pregunta y espero que puedan respondérmela pronto.
Desde ya gracias por su tiempo y su dedicación.
1 respuesta
Respuesta de gydba
1
Voy a suponer que tenés cargado el list con tus datos así que te voy a decir como conectarte con la BD(agrega la ref. Ms ADO 2.5 a tu proyectp):
' Crear una conexión mediante código
Dim varRs As New Recordset
Dim Conexion As New Connection
Dim Driver As String
Dim Usuario As String
Dim Modo As String
Dim RutaBD As String
RutaBD = App.Path & "\DATABASE.mdb"
Usuario = "User ID=Admin;"
Modo = "Mode=Share Deny None;"
' Para access 2k
Driver = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"
' Para access 97
' Driver = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;"
Clave = "Jet OLEDB:Database Password=''"
Conexion.CursorLocation = adUseClient
Conexion.Open Driver & Usuario & "Data Source=" & RutaBD & ";" & Modo & Clave
With varRs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open Conexion, "SELECT * FROM Tabla;"
End With
' Cuando hace click filtras por los datos que buscas
Private Sub List1_Click()
varRs.Filter = "Campo LIKE " & list1.list(list1.listindex)
if varRs.Eof Then Exit sub
' Para Mostrarlo
Dim loopItem as Long
For loopItem = 0 To varRs.Recordcount
List2.Additem varRs("Campo").Value & ""
varRs.MoveNext
Next loopItem
End Sub
Fíjate si anda porque esta improvisado
Suerte
.: Gydba :.
' Crear una conexión mediante código
Dim varRs As New Recordset
Dim Conexion As New Connection
Dim Driver As String
Dim Usuario As String
Dim Modo As String
Dim RutaBD As String
RutaBD = App.Path & "\DATABASE.mdb"
Usuario = "User ID=Admin;"
Modo = "Mode=Share Deny None;"
' Para access 2k
Driver = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"
' Para access 97
' Driver = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;"
Clave = "Jet OLEDB:Database Password=''"
Conexion.CursorLocation = adUseClient
Conexion.Open Driver & Usuario & "Data Source=" & RutaBD & ";" & Modo & Clave
With varRs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open Conexion, "SELECT * FROM Tabla;"
End With
' Cuando hace click filtras por los datos que buscas
Private Sub List1_Click()
varRs.Filter = "Campo LIKE " & list1.list(list1.listindex)
if varRs.Eof Then Exit sub
' Para Mostrarlo
Dim loopItem as Long
For loopItem = 0 To varRs.Recordcount
List2.Additem varRs("Campo").Value & ""
varRs.MoveNext
Next loopItem
End Sub
Fíjate si anda porque esta improvisado
Suerte
.: Gydba :.
