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 StringDim User_ID As StringDim Password As StringDim Cn As ADODB.ConnectionDim Server_Name As StringDim SQLStr As StringDim rs As ADODB.RecordsetSet rs = New ADODB.Recordset
Let Server_Name = Sheets(3).Range("B24").Value ' IP number or servernameLet Database_Name = Sheets(3).Range("B21").Value ' Name of databaseLet User_ID = Sheets(3).Range("B25").Value ' ID user or usernameLet Password = Sheets(3).Range("B23").Value ' PasswordLet Tabellen = Sheets(3).Range("B22").Value ' Name of table to write toLet auxilia = Sheets(1).Range("L16").ValueLet ID = Sheets(1).Cells(auxilia, "A").ValueLet 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 = NothingCn.CloseSet 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