Update auf MySQL-DB
Joachim
ein Auslesen einer MySQL-Datenbank funktioniert einwandfrei.
Nun hab ich anstatt SELECT UPDATE genommen, um Daten zurückzuschreiben.
Leider geht mir das Makro auf Fehler mit der Meldung: Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler.
Hier mein Code:
Sub tw_schreiben()
Dim strSQL As String
strSQL = "UPDATE wasser SET Trinkwasser_EUR = 4000 WHERE ((FDH_Geb_Nr= " & Range("Tabelle1!A1"). _
Text & ") And Lfd_Vertrag = 1)"
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER={MySQL ODBC 5.1 Driver};SERVER=aaa;DATABASE=bb;UID=cc;PASSWORD=dd;PORT=3306;", _
_
Destination:=Range("D3"))
.Sql = strSQL
'.BackgroundQuery = True
.SavePassword = False
.SaveData = True
.Refresh BackgroundQuery:=False
End With
End Sub
Wie gesagt, der gleiche Code mit SELECT funktioniert.
Gruss
Joachim
PS: normalerweise, wenn ich mit SQL-PLus Daten zurückschreibe, muss ich die mit Commit; abschliessen. Muss ich das hier auch?
Anzeige