Problema con el control ADODC

[Schumachergoa]

buenas, empezare por decir que....

...se me presento un problema con el control ADODC, cuando puse 4 controles ADODC con 4 Datagrids, en un mismo formulario.
Talvez por eso, la siguiente vez que ejecute el formulario, aparecen los ADODCs deshabilitados y los datagrids sin informacion.

Una de mis preguntas es:
 ¿Como puedo cargar las 4 tablas de una misma BD en Access y hacerles su matenimiento en un Datagrid para cada uno?

la otra es:
 ¿Por qué razón se deshabilitaron los ADODCs?

Bueno, Gracias de antemano

[ranefi]

buenas, empezare por decir que....

...se me presento un problema con el control ADODC, cuando puse 4 controles ADODC con 4 Datagrids, en un mismo formulario.
Talvez por eso, la siguiente vez que ejecute el formulario, aparecen los ADODCs deshabilitados y los datagrids sin informacion.

Una de mis preguntas es:
 ¿Como puedo cargar las 4 tablas de una misma BD en Access y hacerles su matenimiento en un Datagrid para cada uno?

la otra es:
 ¿Por qué razón se deshabilitaron los ADODCs?

Bueno, Gracias de antemano

Buenos días Schumachergoa y bienvenido al foro.

Agregar 8 controles; 4 Adodc, 4 DataGrid e insertar el código en un...

Formulario

Código:

Const BD = "basedatos.mdb"
    Const Tabla1 = "tblTabla1"
    Const Tabla2 = "tblTabla2"
    Const Tabla3 = "tblTabla3"
    Const Tabla4 = "tblTabla4"



Private Sub Form_Load()
    Dim rutaMasBD As String: rutaMasBD = App.Path & "\" & BD
   
    llenaPrimerGrid rutaMasBD, Tabla1
    llenaSegundoGrid rutaMasBD, Tabla2
    llenaTercerGrid rutaMasBD, Tabla3
    llenaCuartoGrid rutaMasBD, Tabla4
End Sub

Private Sub llenaPrimerGrid(rutaConBD As String, Tabla As String)
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        rutaConBD
       
    Adodc1.RecordSource = Tabla
   
    Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub llenaSegundoGrid(rutaConBD As String, Tabla As String)
    Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        rutaConBD
       
    Adodc2.RecordSource = Tabla
   
    Set DataGrid2.DataSource = Adodc2
End Sub

Private Sub llenaTercerGrid(rutaConBD As String, Tabla As String)
    Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        rutaConBD
       
    Adodc3.RecordSource = Tabla
   
    Set DataGrid3.DataSource = Adodc3
End Sub

Private Sub llenaCuartoGrid(rutaConBD As String, Tabla As String)
    Adodc4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        rutaConBD
       
    Adodc4.RecordSource = Tabla
   
    Set DataGrid4.DataSource = Adodc4
End Sub

¿Es esto lo que buscabas hacer? Como sea te adjunto el código fuente con su base de datos. Nos vemos.

Para ver este enlace Registrate o Inicia Sesion

DESCARGAR

NOTA: El código de arriba lo puedes optimar utilizando un sólo procedimiento en lugar de cuatro, esto sería de la siguiente forma:

Código:

Private Sub llenaGrid(rutaConBD As String, Tabla As String, _
CAdo As Adodc, DataG As DataGrid)
    CAdo.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        rutaConBD
       
    CAdo.RecordSource = Tabla
   
    Set DataG.DataSource = CAdo
End Sub

Ya para invocar este procedimiento y llenar el primer DataGrid sería de la siguiente forma:

Código:

llenaGrid rutaMasBD, Tabla1, Adodc1, DataGrid1

Fácil, ¿no crees?

[Schumachergoa]

Gracias! estoy seguro que me será de mucha utilidad el código que me proporcionaste ...

...no dudo que esta bien echo, pero surgió un pequeño error en el código que adjuntaste al momento de ejecutarlo en mi computadora:

Private Sub Form_Load()
    Const Ruta = App.Path & "\"
   
    llenaPrimerGri d Ruta & bd
End Sub

...me indica:

Error en compilación:
Es necesaria una expresión de constante

...aún no descubro porque, de todas formas desinstale el Visual y lo volví a instalar, pero sigue saliendo ese error.

bueno me despido agradecido por la atención prestada

hablamos ^^

**...bueno, intente con el código que esta en el post que me respondiste, y esta perfecto!!, muchas gracias**
**...ahora estaré más tiempo pendiente en este foro, tratando de colaborar en lo que pueda, saludos!**

EDIT: (**)

PD: ¿Quien es putus? xD