Tengo el siguiente codigo que llena un LISTBOX desde una TABLA y me funciona perfecto. Necesito completar la segunda parte que es seleccionar un elemento de LIST1... sacar todos los campos de la tabla y mostrarlos en cajas de texto para poder modificar, agregar o elimiar registros. Se me entiende ??
A ver si alguien de buena voluntad quiere ayudar a este novato.Gracias
Option Explicit
Private oConn As ADODB.Connection
Private WithEvents oRst As ADODB.Recordset
Private Sub Form_Load()
textCodigo.Text = ""
textNombre.Text = ""
textCodigo.Enabled = False
textNombre.Enabled = False
cmdAgregar.Enabled = False
cmdActualizar.Enabled = False
cmdEliminar.Enabled = False
'Indicar el path correcto
Const sPathBase As String = "C:\ProyectosVB\Control Creditos\BaseCreditos.MDB"
'Se crea un objeto Connection para abrir la conexion mediante ADO
Set oConn = New ADODB.Connection
With oConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & sPathBase & ";"
.Open
End With
'Se crea un objeto Recordset
Set oRst = New ADODB.Recordset
oRst.ActiveConnection = oConn
oRst.CursorLocation = adUseClient
oRst.CursorType = adOpenKeyset
'me aseguro que está cerrado para cerrarlo
If oRst.State <> adStateClosed Then
oRst.Close
End If
'Defino consulta
oRst.Source = "SELECT * FROM T_Instituciones"
'Abre el recorset
oRst.Open
'si no existen registros en la base datos
If oRst.EOF And oRst.BOF Then
MsgBox "No existen registros"
textCodigo.Enabled = True
textNombre.Enabled = True
cmdAgregar.Enabled = True
Else
'llena el list
While Not oRst.EOF
List1.AddItem oRst(1)
oRst.MoveNext
Wend
End If
'Cierra la conexion y libera los objetos.
oRst.Close
oConn.Close
Set oRst = Nothing
Set oConn = Nothing
End Sub
Private Sub List1_DblClick()
' AQUÍ QUIERO SELECCIONAR UN ELEMENTO DEL LIST1 PARA SACAR Y MOSTRAR SUS CAMPOS EN CAJAS DE TEXTO ....
End Sub
