Access - No consigo conectar

   
Vista:

No consigo conectar

Publicado por Jesus Ricarte jesusricarte@hotmail.com (14 intervenciones) el 10/03/2012 18:11:24
Hola a todos-s... no cosigo conectar desde vba de access.. a ver si me podeis ayudar.. gracias
Sub probando()
Dim sPathBase As String
Dim rst As ADODB.Recordset
Dim cnn As ADODB.Connection

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

sPathBase = "C:\medicionrevit.mdb"

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sPathBase & ";"
cnn.Open



rst.Open "SELECT * FROM Authors", cnn, adOpenDynamic, adLockOptimistic
End Sub

me da el error en cnn.open.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Neckkito

No consigo conectar

Publicado por Neckkito (1104 intervenciones) el 11/03/2012 13:17:39
Hola!

Prueba esto:

...
Sub probando()
Dim sPathBase As String
Dim rst As ADODB.Recordset
Dim cnn As ADODB.Connection

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

sPathBase = "C:\medicionrevit.mdb"

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0.; Data Source=" & sPathBase & ";"

rst.Open "SELECT * FROM Authors", cnn, adOpenDynamic, adLockOptimistic
End Sub
...

Un saludo,

Neckkito (... http://neckkito.eu5.org ...)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar