PDA

Ver la versión completa : Mostrar registros de una base de datos en un ListBox - VB 6.0



ranefi
30/08/2007, 20:29
Agregar la siguiente referencia al proyecto:

Microsoft ActiveX Data Objects 2.5 Library


Agregar 2 controles; 1 Label, 1 ListBox e insertar el siguiente código en un...

Formulario



'SE TIENEN QUE DECLARAR ESTAS VARIABLES, AUNQUE ASÍ ES MÁS LENTO, HAY OTRA FORMA ;)
Dim CnN As ADODB.Connection
Dim RsT As ADODB.Recordset
'''''''''''''''''''''''''''''''''''''''''''

Dim BD As String
Dim CuentaRegs As Integer



Private Sub Form_Load()
AbreConexion 'SUB PARA ABRIR LA CONEXIÓN

Set RsT = New ADODB.Recordset 'SE ESTABLECE EL JUEGO DE REGISTROS

With RsT 'SE ABRE EL JUEGO DE REGISTROS
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Open "SELECT nombre FROM datos ORDER BY nombre", CnN
End With

For CuentaRegs = 1 To RsT.RecordCount
List1.AddItem RsT.Fields("nombre") 'SE AGREGA UNO POR UNO EL DATO DEL CAMPO NOMBRE

RsT.MoveNext 'SE AVANZA UNO ADELANTE
Next

RsT.Close 'SE CIERRA EL COCHINO JUEGO DE REGISTROS
Set RsT = Nothing 'Y SE DEJA EN NADA
End Sub

Private Sub Form_Unload(Cancel As Integer)
CnN.Close 'SE CIERRA LA CONEXIÓN AL SALIR
Set CnN = Nothing 'SE ESTABLECE A NADA
End Sub

Private Sub List1_Click() 'AL DAR UN CLIC EN EL ELEMENTO ÉSTE SERVIRÁ DE CRITERIO
Set RsT = New ADODB.Recordset

With RsT 'SE ABRE EL JUEGO DE REGISTROS Y SE HACE UNA CONSULTA
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Open "SELECT telefono FROM datos WHERE nombre=" & _
Chr(39) & List1.Text & Chr(39), CnN
End With

Label1.Caption = RsT.Fields("telefono") 'EL CAMPO TELÉFONO EN EL LABEL

RsT.Close 'SE CIERRA
Set RsT = Nothing 'SE ESTABLECE A NADA
End Sub

Sub AbreConexion()
BD = App.Path & "\" & "Agenda.mdb" 'RUTA BASE DE DATOS COCHINA

Set CnN = New ADODB.Connection 'SE ESTABLECE UNA CONEXIÓN

With CnN 'Y SE ABRE LA MUGROSA CONEXIÓN
.CursorLocation = adUseClient
.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & BD
End With
End Sub



Dejo la liga a la base de datos comprimida en un archivo zip la cual deberá encontrarse en la misma carpeta del proyecto y obviamente descomprimida.

http://www.4shared.com/file/23228230/f822c2bc/Agenda.html

Saludos a todos :D