MARIO
07 de Marzo del 2003

Hace dos meses que estoy tratando de conectar un DataGrid a una BD sin DataControl y no puedo, mando un Ej. para ver si por favor alguien me puede ayudar. Gracias...

sBase = App.Path & "LISTA.mdb"

Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Precios", cnn, adOpenDynamic, adLockOptimistic

DataGrid1.DataMember = cnn
Set DataGrid1.DataSource = rst

Si no es así, si alguien me lo puede correjir...

Eli
07 de Marzo del 2003

tienes que agregar lo siguiente
cnn.CursorLocation = adUseClient
antes de abri la conexion, es decir al final quedara asi:
sBase = App.Path & "LISTA.mdb"

Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.CursorLocation = adUseClient
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Precios", cnn, adOpenDynamic, adLockOptimistic

DataGrid1.DataMember = cnn
Set DataGrid1.DataSource = rst