VBA Excel - Conectando-se à distância através do IP

Blog Office VBA | Blog Excel | Blog Access |
Inline image 1

Talvez tenha se deparado com a necessidade de plugar-se a um Banco de Dados à distância, em outra rede, ou num servidor externo à rede que utiliza. Como fazer referência a ele utilizando uma conexão ODBC?

No exemplo a seguir temos a conexão a um banco MySQL. O código abaixo será útil nessa experiência, apenas certifique-se de utilizar a versão correta do Driver de ODBC.

Sub DeleteMySQLDatabase()
Dim Database_Name As String
Dim User_ID As String
Dim Password As String
Dim Cn As ADODB.Connection
Dim Server_Name As String
Dim SQLStr As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

Let Server_Name = Sheets(3).Range("B24").Value               ' IP number or servername
Let Database_Name = Sheets(3).Range("B21").Value             ' Name of database
Let User_ID = Sheets(3).Range("B25").Value                   ' ID user or username
Let Password = Sheets(3).Range("B23").Value                  ' Password
Let Tabellen = Sheets(3).Range("B22").Value                  ' Name of table to write to
Let auxilia = Sheets(1).Range("L16").Value
Let ID = Sheets(1).Cells(auxilia, "A").Value
Let SQLStr = "DELETE FROM " & Tabellen & " WHERE ID = '" & ID & "';"

Set Cn = New ADODB.Connection

Cn.Open "Driver={MySQL ODBC 3.51 Driver};Server=" & Server_Name & ";Database=" & Database_Name & _
";Uid=" & User_ID & ";Pwd=" & Password & ";"
Cn.Execute SQLStr

Set rs = Nothing
Cn.Close
Set Cn = Nothing
End Sub


Outros artigos:



Reference

Tags: VBA, Excel, SQL, MySQL, ODBC, connect, Database, Banco de Dados, conexão, server, servidor, IP

Nenhum comentário:

Postar um comentário

diHITT - Notícias