VBA Access Basic - Abrindo um Banco de Dados no modo Leitura/Gravação - Opening a Database in Read/Write Mode

| Blog Office VBA | Blog Excel | Blog Access |

Abrindo um Banco de Dados no modo Leitura/Gravação.

Segue:

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

Tags: VBA, Access, connect, SQL, database,  Connecting, Server, Data Source, Opening, Read/Write Mode, Read, Write