Estableceren visual basic la propiedad datafield
Hola!
Estoy haciendo una aplicación en visual basic que se conecta con un ADODC a una base de datos access que tiene 5 tablas con el mismo numero de campos. Me gustaría que con 5 cajas de texto pudiese mostrar los registros independientemente de la tabla. Es decir, seleccionar en un ComboBox la tabla y en la vista de código con un select case, seleccionar la tabla y especificar el campo que le corresponde a la caja de texto. Lo que pasa es que no se si se puede definir desde la vista de código la propiedad data field de la caja de texto. He puesto esto y me da error:
strsql = "select * from Audio "
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = strsql
Adodc1.Refresh
Text1.DataField Audio. Grupo
Text2.DataField Audio.Album
Text3.DataField Audio.Categoria
Text4.DataField Audio.Caratula
¿Cómo seria?
Muchas gracias
Estoy haciendo una aplicación en visual basic que se conecta con un ADODC a una base de datos access que tiene 5 tablas con el mismo numero de campos. Me gustaría que con 5 cajas de texto pudiese mostrar los registros independientemente de la tabla. Es decir, seleccionar en un ComboBox la tabla y en la vista de código con un select case, seleccionar la tabla y especificar el campo que le corresponde a la caja de texto. Lo que pasa es que no se si se puede definir desde la vista de código la propiedad data field de la caja de texto. He puesto esto y me da error:
strsql = "select * from Audio "
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = strsql
Adodc1.Refresh
Text1.DataField Audio. Grupo
Text2.DataField Audio.Album
Text3.DataField Audio.Categoria
Text4.DataField Audio.Caratula
¿Cómo seria?
Muchas gracias
1 Respuesta
Respuesta de Alfredo Somoza
1
-En Componentes... selecciona Microsoft ADO Data Control (OLEDB)
-' Indicar la base de datos a usar
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\db2000.mdb"
Adodc1.CursorType = adOpenDynamic
' Conectarlo a la tabla de prueba
Adodc1.RecordSource = "Table1"
' Refresh es necesario para que se cargue la tabla
Adodc1.Refresh
'Inicializas los textbox
'Asi llamas a los campos (sin datafield)
Text1.Text= Adodbc.recorset.Fileds("cliente")
- Al empezar cargas la primera tabla y campos del combobox, y en el evento onchange del combobox, reasignas la tabla que te seleccionen con sus campos.
Aqui tienes un ejemplo paracido a lo que quieres hacer:http://www.programacion.net/articulo/ado2000/
-' Indicar la base de datos a usar
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\db2000.mdb"
Adodc1.CursorType = adOpenDynamic
' Conectarlo a la tabla de prueba
Adodc1.RecordSource = "Table1"
' Refresh es necesario para que se cargue la tabla
Adodc1.Refresh
'Inicializas los textbox
'Asi llamas a los campos (sin datafield)
Text1.Text= Adodbc.recorset.Fileds("cliente")
- Al empezar cargas la primera tabla y campos del combobox, y en el evento onchange del combobox, reasignas la tabla que te seleccionen con sus campos.
Aqui tienes un ejemplo paracido a lo que quieres hacer:http://www.programacion.net/articulo/ado2000/
