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,