VBA Access Basic - Usando o OLEDB para conectar arquivos MDB - Use OLEDB to connect with mdb file

| Blog Office VBA | Blog Excel | Blog Access |

Conectando arquivos MDB.

Segue:

'Microsoft ActiveX Data Objects Recordset 2.7 Library

Sub ConnectionExample1()

   Dim conn As ADODB.Connection

   Set conn = New ADODB.Connection

   With conn

      Let .Provider = "Microsoft.Jet.OLEDB.4.0;"

      Let .ConnectionString = "Data Source=" & _

        CurrentProject.Path & "\mydb.mdb"

   End With

   conn.Open

   MsgBox "Conexão foi aberta!"

   conn.Close

   Set conn = Nothing

   MsgBox "Conexão foi Fechada!"

End Sub

Tags: VBA, Access, connect, SQL, database,  Connecting, Server, Data Source, ADODB, SQLOLEDB, MDB,

VBA Access Basic - Abrindo um banco de dados no modo READ ONLY - Opening a Database in Read-Only Mode

| Blog Office VBA | Blog Excel | Blog Access |

Abrindo um banco de dados no modo READ ONLY.

Segue:

Sub Open_ReadOnly()

   Dim conn As ADODB.Connection

   Dim strDb As String

   On Error GoTo ErrorHandler

   Let strDb = CurrentProject.Path & "\Bernardess\mydb.mdb"

   Set conn = New ADODB.Connection

   With conn

      Let .Provider = "Microsoft.Jet.OLEDB.4.0;"

      Let .Mode = adModeRead

      Let .ConnectionString = "Data Source=" & strDb

      .Open

   End With

   Debug.Print "O banco de dados foi aberto como acesso read-only."

   conn.Close

   Set conn = Nothing

   Debug.Print "Database was closed."

   Exit Sub

ErrorHandler:

   MsgBox Err.Number & ": " & Err.Description

End Sub

Tags: VBA, Access, connect, SQL, database,  Connecting, Server, Data Source, Opening, Read-Only Mode,

VBA Access Basic - Conectando um Banco de Dados através da URL - Connect to database through URL

| Blog Office VBA | Blog Excel | Blog Access |

Conectando um Banco de Dados com Segurança em Nível de Usuário.

Segue:

Sub ConnectToURL()
  On Error GoTo Except
    Dim Connection As New ADODB.Connection

    Connection.Provider = "Microsoft.Jet.OLEDB.4.0"

    Const URL = "http://localhost/access/nwind.mdb"

    Let Connection.ConnectionString = "URL=" & URL
    Let Connection.Mode = adModeReadWrite

    Connection.Open

    MsgBox "Conectado via " & Connection.Provider & _
        "Provedor OLE DB!", vbInformation
    Exit Sub

Except:
    MsgBox Err.Description, vbCritical
End Sub

Tags: VBA, Access, connect, SQL, database, Connecting, Server, Data Source, OLE DB, Opening, URL, 

VBA Access Basic - Conectando um Servidor SQL Server sem o DSN - Connecting to an SQL Server Using a DSN-less Connection

| Blog Office VBA | Blog Excel | Blog Access |

Conectar bancos de dados de SQL é uma rotina comum. Como fazê-lo?

Segue:

Sub Connect_ToSQLServer()
   Dim conn As ADODB.Connection

   Set conn = New ADODB.Connection

   With conn
      ' Sem o DSN conectamos usando o driver ODBC
      ' (modifique a informação do Data Source como mostrado abaixo)

      .Open "Driver={SQL Server};" & _
          "Server=192.128.1.100;" & _
          "UID=myId;" & _
          "PWD=myPassword;" & _
          "Database=SupportDb"
      .Close
   End With

   Set conn = Nothing
End Sub

Tags: VBA, Access, connect, SQL, database,  Connecting, Server, Data Source, ADODB, SQLOLEDB, DSN, ODBC

VBA Access Basic - Conectando um Banco de Dados com Nome e Usuário - Connect to database with user name and password

| Blog Office VBA | Blog Excel | Blog Access |

Conectando um Banco de Dados com Segurança em Nível de Usuário.

Segue:

Sub addUser() 

   Dim myConnection As ADOX.Catalog

   Dim newUser As ADOX.User

   Dim userName As String

   Dim newPassword As String

   

   Set myConnection = New ADOX.Catalog

   myConnection.ActiveConnection = _

        "Provider = Microsoft.Jet.OLEDB.4.0;" & _

        "Data Source=C:\r.mdb;" & _

        "Jet OLEDB:System database=C:\Bernardess\r.mdw;" & _

        "User id=john;Password=;"

   Set newUser = New ADOX.User

   newUser.Name = userName

   myConnection.Users.Append newUser

   myConnection.Users(newUser.Name).changePassword "", newPassword

End Sub

Tags: VBA, Access, connect, SQL, database, Connecting, Server, Data Source, ADOX, Opening, Secured, User Level, Conectando, Banco de Dados, Nome, Usuário, user, name, password

VBA Access Basic - Abrindo um Banco de Dados com Segurança em Nível de Usuário - Opening a Database Secured at the User Level

| Blog Office VBA | Blog Excel | Blog Access |

Conectando um Banco de Dados com Segurança em Nível de Usuário.

Segue:

Sub Open_WithUserSecurity()

   Dim conn As ADODB.Connection

   Dim strDb As String

   Dim strSysDb As String

   On Error GoTo ErrorHandler

   strDb = CurrentProject.Path & "\Bernardess\mydb.mdb"

   strSysDb = CurrentProject.Path & "\Security.mdw"

   Set conn = New ADODB.Connection

   With conn

      .Provider = "Microsoft.Jet.OLEDB.4.0;"

      .ConnectionString = "Data Source=" & strDb & ";" & _

         "Jet OLEDB:System Database=" & strSysDb

      .Open , "Developer", "WebMaster"

   End With

   conn.Close

   Set conn = Nothing

   Exit Sub

ErrorHandler:

   MsgBox Err.Number & ": " & Err.Description

End Sub

Tags: VBA, Access, connect, SQL, database, Connecting, Server, Data Source, Opening, Secured, User Level,

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

VBA Access - Abrindo um Banco de Dados protegido com Senha - Opening a Password-Protected Database

| Blog Office VBA | Blog Excel | Blog Access |

Abrindo um Banco de Dados protegido com Senha.

Segue:

Sub Open_WithDbPassword()

   Dim conn As ADODB.Connection

   Dim strDb As String

   On Error GoTo ErrorHandler

   Let strDb = CurrentProject.Path & "\Bernardess\mydb.mdb"

   Set conn = New ADODB.Connection

   With conn

      Let .Provider = "Microsoft.Jet.OLEDB.4.0;"

      Let .ConnectionString = "Data Source=" & strDb & ";" & _

           "Jet OLEDB:Database Password=secret;"

      .Open

   End With

   Debug.Print "Banco de dados protegido está aberto"

   conn.Close

   Set conn = Nothing

   Debug.Print "Database was closed."

   Exit Sub

ErrorHandler:

   MsgBox Err.Number & ": " & Err.Description

End Sub

Tags: VBA, Access, connect, SQL, database,  Connecting, Server, Data Source, Opening, Password, Protected, senha, protegido, 

VBA Access Basic - Conectando um Servidor de Banco de Dados SQL - Connecting to an SQL Server Database

| Blog Office VBA | Blog Excel | Blog Access |

Conectar bancos de dados de SQL é uma rotina comum. Como fazê-lo?

Segue:

Sub ConnectToSQL_SQLOLEDB()
   Dim conn As ADODB.Connection

   Set conn = New ADODB.Connection

   With conn
      Let.Provider = "SQLOLEDB"
      Let.ConnectionString = "Data Source=mySource;" & _

          "database=yourDatabase; UserId=sa; Password=;"
      .Open
   End With

   If conn.State = adStateOpen Then
      Debug.Print "Conexão estabelecida!"
   End If

   conn.Close

   Set conn = Nothing
End Sub

Tags: VBA, Access, connect, SQL, database,  Connecting, Server, Data Source, ADODB, SQLOLEDB,