Es posible enlazar un DATAGRID 6.0, con ADO sin el control.(con codigo)

[bezael]

Estoy trabajando con ADO, sin control y deseo saber donde puedo encontrar ayuda, sobre como realizar el enlaze entre el ADO Y un DATAGRID.
GRACIAS ¡¡¡

[lucasiramos]

Hola. Cuando decis "sin el control" supongo que te referis al DataEnviroment. Antes que nada, aunque resulte contradictorio, tenes que agregar un DataEnviroment. Configura la conexión del Dataenviroment a la base de datos utilizando como proveedor Microsoft Jet 4.0 OLE DB Provider, y luego selecciona la base de datos a la que queres acceder desde la solapa Conexion. Presiona Aceptar

Anda a la ventana de propiedades de la conexion y copia la propiedad Conection Source. Te va a quedar algo asi

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\La ruta\Una base de datos.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"

Una vez que tenes copiada la propiedad ConectionSource anda a tu formulario y donde quieras que se realice el enlace a datos pega el siguiente código:

Código:

Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
 
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\La ruta\Una base de datos.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
CN.Open
 
RS.CursorLocation = adUseClient
RS.LockType = adLockOptimistic
RS.ActiveConnection = CN
RS.Open "SELECT * FROM CLIENTES"
 
Set Dg1.DataSource = RS

Obviamente vas a adaptar tu codigo al que te doy. El ConectionString va a ser el que copiaste desde el DataEnviroment, La sentencia SQL del Open del Recordset RS va a ser la que definas vos y cambiar Dg1 por el nombre de la grilla que tengas.

Bueno. Espero haber sido claro y que te sirva el código.

Saludos. Lucas

[fredy666]

FUNCIONA !!!!!!, estava a punto de preguntar esto mismo cuando me topeté con la solucion


Gracias xD