Buenas Sres, tengo una tabla access con 3 campos. Despues de batallar algunos minutos logre la conexion con la base y cargar los datos de un campo de la tabla en un combobox.
El codificado hasta ahora es el siguiente:
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String
Dim dato As Integer
Set cn = New ADODB.Connection
'Establecemos la conexión y la abrimos
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\Peces\peces.mdb;"
cn.Open
sql = "select * from Tabla1"
Set rst = New Recordset
rst.Open sql, cn
dato = rst.RecordCount
Do While Not rst.EOF
Combo1.AddItem rst.Fields("Nombre")
rst.MoveNext
Loop
'rst.Close
End Sub
y en el evento click() del boton "Cargar Datos" lo siguiente:
Private Sub Command2_Click()
Text1.Text = Combo1.Text
'Text2.Text = rst_flag("Tipo")
End Sub
Como logro que en las 3 cajas de texto aparezcan los datos de los 3 campos que se corresponderan con con el registro que resulte luego de implementar el sql de acuerdo al item del combo que seleccioné?.
Todo esto en VB 6.0.
Saludos.
