Hola


Tengo un problema que no he podido solucionar, quierocontrolar 2 tablas con un adodc, tengo una base con 2 tablas (tabla1, tabla2) en access y en vb tengo 2 botones para las 2 tablas y un datagrid,
Lo que quiero hacer es que si presiono el boton1 que el grid me muestre los datos de la tabla1.
Y si presiono el boton2 que el datagrid me muestre los datos de la tabla2.
Este es el codigo que estoy usando:

Código:

Sub AsignaTabla(Tabla As String)
 Adodc1.RecordSource = ""
 Adodc1.Refresh
 End Sub
Private Sub Command1_Click()
 AsignaTabla "select * from Tabla1"
End Sub
Private Sub Command2_Click()
 AsignaTabla "select * from Tabla2"
End Sub

Cuando presiono el boton1, el datagrid si me muestra los datos de la tabla1, aqui no hay problema.
Pero cuando presiono el boton2 el datagrid me aparece en blanco, no me muestra nada, y es que la tabla2 de mi base contiene datos.


La verdad no se que hacer, cuento con su ayuda, de antemano gracias.


Salu2

Hola, probá asi:

Código:

Sub AsignaTabla(Tabla As String)
 Adodc1.RecordSource = Tabla
 Adodc1.Refresh
 Set DataGrid1.DataSource = Adodc1.Recordset
 End Sub
Private Sub Command1_Click()
 AsignaTabla "select * from Tabla1"
End Sub
Private Sub Command2_Click()
 AsignaTabla "select * from Tabla2"
End Sub

Salu2

Hola


Gracias Luciano, pero la verdad es que ocurre lo mismo, solo me muestra los datos de la tabla1, y los de la tabla2 no, el grid aparece en blanco, la verdad no se que es lo que pasa, si la tabla2 contiene datos y el grid no me lo muestra, los datos de la tabla1 me los muestra sin problema, por que será? Tienen alguna idea de como solucionar este problema?


Agradesco de antemano su ayuda.


Salu2

Que tal erick.


yo te sugiero que revises la sintaxis en tu programa y el nombre de la base y de las tablas ya que aveces nos equivocamos en una letra, la cual puede ser mas que suficiente para que no coincida y entonces nos genere ese tipo de error, que por logica no tendrian que suceceder. SALU2

Hola


Gracias por responder, pero he revisado como mil veces, el nombre de mi tabla, y no encuentro el error, por que será? aquí les dejo el code completo que estoy usando, talvez tenga error!


El connnectionString y elRecordSource del adodc1 esta en blanco, y el datagrid esta enlazada al adodc (datasource= adodc1), mi base se llama "control" y las tablas "Tabla1" y "Tabla2".

Código:

Private Sub Form_Load()
 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
 "Data Source=" & App.Path & "\control.mdb;" & _
 "Persist Security Info=False"
End Sub

en los botones 1 y 2:

Código:

Sub AsignaTabla(Tabla As String)
 Adodc1.RecordSource = Tabla
 Adodc1.Refresh
 Set DataGrid1.DataSource = Adodc1.Recordset
 End Sub
Private Sub Command1_Click()
 AsignaTabla "select*from Tabla1"
End Sub
Private Sub Command2_Click()
 AsignaTabla "select*from Tabla2"
End Sub

La verdad, es que estoy muy confundido, no se que hacer, este es el code que uso, como repito, solo me muestra los datos de la tabla1, y los datos de la tabla2 no me las muestra el grid,me aparece en blanco. Por que será que el boton2 no me funciona?


Les agradeceria de antemano su ayuda.


Salu2