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






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

Opening a Database in Read/Write Mode

 

Sub Open_ReadWrite()
   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 = adModeReadWrite
      .ConnectionString = "Data Source=" & strDb
      .Open
   End With
   Debug.Print "Connection was opened."

   conn.Close
   Set conn = Nothing
   Debug.Print "Connection was closed."

   Exit Sub
ErrorHandler:
   Debug.Print 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-Only Mode
3.Opening a Password-Protected Database
4.Opening a Database Secured at the User Level