• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Open a password pretected MDB, using DAO, Data Control, OLE Automation.

Open a password pretected MDB, using DAO, Data Control, OLE Automation.

Open a password pretected MDB, using DAO, Data Control, OLE Automation.

Rate Open a password pretected MDB, using DAO, Data Control, OLE Automation.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Set MyDB = DBEngine.OpenDatabase(TheMDBNameWithFullPath,False,False,";Pwd=" & pwd)

Use Data Control
With Data1
.DatabaseName=App.Path & "\my.mdb"
.RecordSource="mytable"
.Connect=";Pwd=" & pwd
.Refresh
End With


Use OLE Automation

         Dim objAccess as Object

          '----------------------------------------------------------------------
          'This procedure sets a module-level variable, objAccess, to refer to
          'an instance of Microsoft Access. The code first tries to use GetObject
          'to refer to an instance that might already be open. If an instance is
          'not already open, the Shell() function opens a new instance and
          'specifies the user and password, based on the arguments passed to the
          'procedure.
          '
          'Calling example: OpenSecured varUser:="Admin", varPw:=""
          '----------------------------------------------------------------------

          Sub OpenSecured(Optional varUser As Variant, Optional varPw As Variant)
             Dim cmd As String
             On Error Resume Next
             Set objAccess = GetObject(, "Access.Application")
             If Err <> 0 Then 'no instance of Access is open
               If IsMissing(varUser) Then varUser = "Admin"
               cmd = "C:\Program Files\Microsoft Office\Office\MSAccess.exe"
               cmd = cmd & " /nostartup /user " & varUser
               If Not IsMissing(varPw) Then cmd = cmd & " /pwd " & varPw
               Shell pathname:=cmd, windowstyle:=6
               Do 'Wait for shelled process to finish.
                 Err = 0
                 Set objAccess = GetObject(, "Access.Application")
               Loop While Err <> 0
             End If
          End Sub