✔ Programação GLOBAL®: VBA Excel - Conectando-se à distância através do IP

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

| Blog Office VBA | Blog Excel | Blog Access |

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