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
Server_Name = Sheets(3).Range("B24").Value ' IP number or servername
Database_Name = Sheets(3).Range("B21").Value ' Name of database
User_ID = Sheets(3).Range("B25").Value ' ID user or username
Password = Sheets(3).Range("B23").Value ' Password
Tabellen = Sheets(3).Range("B22").Value ' Name of table to write to
auxilia = Sheets(1).Range("L16").Value
ID = Sheets(1).Cells(auxilia, "A").Value
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
Este código está a funcionar na perfeição... localmente...
Apenas não consigo trabalhar com ele depois quando estou num outro computador...
Claro que o IP em cima é o IP da máquina que é o "servidor"...
Eu gostava de saber que existe a possibilidade de fazer isso mas num computador remoto... na rede "doméstica"... "lan".
Não percebo nada de VBa mas depois de muitas semanas a estudar lá consegui fazer com que o código em cima funcionasse na perfeição.
Se alguém poder ajudar dando alguma sugestão... seria muito gratificante... ficaria muito grato...
