Seguridad en Access
Hola, de Antemano muchas gracias. Tengo un Problema con Access, Estoy programando en Visual Basic y no puedo conectarme a la BD si le he puesto clave, ya que para esto tengo que usarla en modo exclusivo. ¿Cuál(es) sería(n) la(s)solución(es)para esto?.. Gracias Nuevamente
1 Respuesta
Respuesta de athrarn
1
Para enviar las contraseñas por DAO, añade las Microsoft Data Access Objects 2.5 (creo que se llamaban así) y ponle una cadena de conexión de este estilo (te pongo el fuente de una conexión):
Function GetJetConnection(strPath As String, _
lngMode As ADODB.ConnectModeEnum, _
Optional strDBPwd As String, _
Optional strSysDBPath As String, _
Optional strUserID As String, _
Optional strUserPwd As String _
Optional lngEngineType As opgJetEngineType) _
As ADODB.Connection
Dim cnnDB As ADODB.Connection
Set cnnDB = New ADODB.Connection
With cnnDB
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Mode = lngMode
.Properties("Jet OLEDB:Database Password") = strDBPwd
.Properties("Jet OLEDB:System Database") = strSysDBPwd
.Properties("Jet OLEDB:Engine Type") = lngEngineType
.Open ConnectionString:=strPath, _
UserID:=strUserID, _
Password:=strUserPwd
End With
Set GetJetConnection = cnnDB
End Function
Espero que te sirva.
De todos modos te pongo otro modo de conexion :
DAO
Sub DAOOpenDBPasswordDatabase()
Dim db As DAO.Database
Set db = DBEngine.OpenDatabase(".\NorthWind.mdb", _
False, False, ";pwd=password")
db.Close
End Sub
ADO
Sub ADOOpenDBPasswordDatabase()
Dim cnn As New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=.\NorthWind.mdb;" & _
"Jet OLEDB:Database Password=password;"
cnn.Close
End Sub
Function GetJetConnection(strPath As String, _
lngMode As ADODB.ConnectModeEnum, _
Optional strDBPwd As String, _
Optional strSysDBPath As String, _
Optional strUserID As String, _
Optional strUserPwd As String _
Optional lngEngineType As opgJetEngineType) _
As ADODB.Connection
Dim cnnDB As ADODB.Connection
Set cnnDB = New ADODB.Connection
With cnnDB
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Mode = lngMode
.Properties("Jet OLEDB:Database Password") = strDBPwd
.Properties("Jet OLEDB:System Database") = strSysDBPwd
.Properties("Jet OLEDB:Engine Type") = lngEngineType
.Open ConnectionString:=strPath, _
UserID:=strUserID, _
Password:=strUserPwd
End With
Set GetJetConnection = cnnDB
End Function
Espero que te sirva.
De todos modos te pongo otro modo de conexion :
DAO
Sub DAOOpenDBPasswordDatabase()
Dim db As DAO.Database
Set db = DBEngine.OpenDatabase(".\NorthWind.mdb", _
False, False, ";pwd=password")
db.Close
End Sub
ADO
Sub ADOOpenDBPasswordDatabase()
Dim cnn As New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=.\NorthWind.mdb;" & _
"Jet OLEDB:Database Password=password;"
cnn.Close
End Sub
