Conexion a access...

27/01/2007 - 04:39 por Daniel G. Samborski | Informe spam
Hola, tengo este codigo que me permite conectarme a una BD de ACCESS

Dim strconn As String
strconn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Directorio &
";"
Dim mconn As New OleDb.OleDbConnection(strconn)
Dim ad As New OleDb.OleDbDataAdapter("Select * from " & tabla, mconn)
mconn.Open()
ad.Fill(ds)
mconn.Close()

La conexion se realiza sin problemas si el archivo MDB no esta protegido con
password, si le pongo pass me da un error en el que dice que el pass es
incorrecto.
¿Como le agrego a este codigo el pass para que se conecte al MDB?


Daniel.
 

Leer las respuestas

#1 Daniel G. Samborski
27/01/2007 - 05:38 | Informe spam
Ya lo resolvi, coloco la respuesta por si alguien tiene la misma duda.

La cadena de conexion debe ser de esta manera:

strconn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Directorio &
";Jet OLEDB:Database Password=" & password & ";"

Jet OLEDB:Database Pasword es lo que necesitaba.


Daniel.

"Daniel G. Samborski" escribió en
el mensaje news:
Hola, tengo este codigo que me permite conectarme a una BD de ACCESS

Dim strconn As String
strconn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Directorio &
";"
Dim mconn As New OleDb.OleDbConnection(strconn)
Dim ad As New OleDb.OleDbDataAdapter("Select * from " & tabla, mconn)
mconn.Open()
ad.Fill(ds)
mconn.Close()

La conexion se realiza sin problemas si el archivo MDB no esta protegido
con
password, si le pongo pass me da un error en el que dice que el pass es
incorrecto.
¿Como le agrego a este codigo el pass para que se conecte al MDB?


Daniel.


Preguntas similares