Adodb Y Comobox

[LuisLuther]

Hola A Todos Porfavor Necesito Informacion En Como Conectar Una Base De Datos X A Visual Basic, Luego Mostrar Un Campo De Una Tabla En Un Comobox Y Al Seleccionar Un Item Del Comobox Q Se Muestren Los Demas Registros De Los Otros Campor En Text Box Se Q Es Una Tonteria Pero Agradeceria Si Alguien Me Llega A Proporcionar Un Ejemplo De Esto Muchas Gracias.......

[Avellaneda]

Hola,

la Base De Datos X, ¿en qué formato está?, porque las conexiones son diferentes según sea la base de datos.

[LuisLuther]

esta en access conectada a un ADODB espero que me puedas ayudar

[LuisLuther]

Iniciado por Avellaneda

Hola,

la Base De Datos X, ¿en qué formato está?, porque las conexiones son diferentes según sea la base de datos.

Hola avellaneda la base de datos esta en access espero puedas ayudarme y si pudieras respondeme a q hora puedes conectarte

[Avellaneda]

Hola,

Te explico una forma sencilla de hacer lo que quieres con un poco código:

Controles en el Form:
Un control Data de ADO (Adodc1)
Un ComboBox (Combo1)
y tantos TextBox como campos de la tabla quieras mostrar (puedes meterlos en un array de controles o no, según tu gusto).

Propiedades (en diseño):
Adodc1: ConnectionString = tu cadena de conexión; RecordSource = nombre de la tabla.
TextBoxes: DataSource = Adodc1; DataField = Cada campo de la tabla.
Combo1: Las que vienen por defecto.

Código:

Private Sub Form_Load()
    With Adodc1.Recordset
        Do Until .EOF
            Combo1.AddItem .Fields(0)  ' Si es el primer campo
            Combo1.ItemData(Combo1.NewIndex) = .AbsolutePosition
            .MoveNext
        Loop
    End With
End Sub

Private Sub Combo1_Click()
    Adodc1.Recordset.AbsolutePosition = Combo1.ItemData(Combo1.ListIndex)
End Sub

Y ese es todo el código que necesitas. Cada vez que selecciones un item del combo, mostrará en los TextBoxes los datos correspondientes.