Opening a Database in Read-Only Mode : OLEDB « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. OLEDB

Opening a Database in Read-Only Mode

 
Sub Open_ReadOnly()
   Dim conn As ADODB.Connection
   Dim strDb As String

   On Error GoTo ErrorHandler
   strDb = CurrentProject.Path & "\mydb.mdb"
   Set conn = New ADODB.Connection
   With conn
      .Provider = "Microsoft.Jet.OLEDB.4.0;"
      .Mode = adModeRead
      .ConnectionString = "Data Source=" & strDb
      .Open
   End With
   Debug.Print "Database was opened for read-only access."
   conn.Close
   Set conn = Nothing
   Debug.Print "Database was closed."
   Exit Sub

ErrorHandler:
   MsgBox Err.Number & ": " & Err.Description
End Sub








Related examples in the same category

1.Use OLEDB to connect with mdb file
2.Opening a Database in Read/Write Mode
3.Opening a Password-Protected Database
4.Opening a Database Secured at the User Level