conexión access VB

macalofu
29 de Julio del 2004
He leido el siguiente ejemplo tuyo de conexión entre Access y VB :
'referencia Microsoft activex data objects 2.1 o superior

Dim Cn As adodb.connection
Public Rs As adodb.Recordset

Public Sub Conectar(ByVal Ruta As String)
'este procedimiento habre la conexion a una bd 2000, pide la ruta de la bd
Set cd = New adodb.connection
Cn.connectionstrign = "provider=microsoft.jet.oledb.4.0;data source=" & Ruta & "persist security info=false"
Cn.Open
End Sub

Public Sub Consultarrs(ByVal sSql As String)
'pide la sentencia sql a ejecutar
Set Rs = New adodb.Recordset
Rs.CursorLocation = adUseClient
Rs.Open sSql, Conn, adOpenStatic, adLockOptimistic
End Sub

Public Sub CerrarRsConn()
'procedimiento que cierra el reocordset y la conexion
On Error Resume Next
If Rs.State = 1 Then
Rs.Close
End If
If Conn.State = 1 Then
Conn.Close
End If
Set Rs = Nothing
Set Conn = Nothing
Err.Clear
End Sub


pero al ejecutarlo me aparece un error en la linea
Cn.connectionstrign = "provider=microsoft.jet.oledb.4.0;data source=" & Ruta & "persist security info=false"
¿A que se debe?¿Me falta algo por introducir?Gracias.

silvina
29 de Julio del 2004
es string no strign, y ademas agrega un ; antes de persist ...

Cn.connectionstring= "provider=microsoft.jet.oledb.4.0;data source=" & Ruta & ";persist security info=false"

Espero que te sirva.

krizall
29 de Julio del 2004
up's creo que hubo unos pequeños errores de dedo
una disculpa por eso.. prometo poner mas atencion