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