SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: erick185 en Viernes 10 de Marzo de 2006, 04:18

Título: Como Controlar 4 Tablas Con Un Control Adodc
Publicado por: erick185 en Viernes 10 de Marzo de 2006, 04:18
Hola

Espero que el titulo concuerde con mi pregunta!, bueno mi pregunta es esta. Como puedo hacer que un adodc y el datagrid me muestre los datos de una tabla seleccionada. Me explico:

Tengo una base con 4 tablas (tabla1, tabla2, tabla3, tabla4)en Access. Bueno en mi programa tengo 4 botones para cada tabla, lo que quiero intentar hacer es:

Que si presiono el boton1, el datagrid me muestre los datos de la tabla1, y si presiono el boton2 el datagrid que me muestre los datos de la tabla2, y si presiono el boton3 que el datagird me muestre los datos de la tabla3, y asi sucesivamente, bueno la verdad se me hace dificil con este code, ya intente cambiarle el recordset pero me da error y la verdad no se si esto es correcto. Espero que me puedan ayudar.

De ante mano gracias.

Salu2
Título: Re: Como Controlar 4 Tablas Con Un Control Adodc
Publicado por: jc_moty en Domingo 12 de Marzo de 2006, 03:21
Proba asi:
Código: Text
  1.  
  2. Sub AsignaTabla(Tabla As String)
  3.    Adodc1.RecordSource = Tabla
  4.    Adodc1.Refresh
  5.    Set DataGrid.DataSource = Adodc1
  6. End Sub
  7.  
  8. ' la llamada al Procedimiento desde los commands
  9. Private Sub Command1_Click()
  10.    AsignaTabla "Tabla1"
  11. End Sub
  12.  
  13. Private Sub Command2_Click()
  14.    AsignaTabla "Tabla2"
  15. End Sub
  16.  
  17. ' y asi sucesivamente
  18. ' Ojo al procedimiento tambien le podes pasar una sentencia SQL, ejemplo:
  19.  
  20. 'Private Sub Command2_Click()
  21. '   AsignaTabla "SELECT * FROM Tabla2"
  22. 'End Sub
  23.  
  24.  
Espero te sirva :comp:
Saludos :hola:
Título: Re: Como Controlar 4 Tablas Con Un Control Adodc
Publicado por: erick185 en Viernes 17 de Marzo de 2006, 02:49
Hola

Gracias por tu respuesta.

Pero tengo una duda, el adodc debe estar enlazada a la base?
osea el Connection String y el Record Source.

Porque me marca el error en esta linea. Adodc1.Refresh

Siempre, gracias por tu ayuda.

Salu2