SQL-UPDATE Query mit VBA ausführen
07.10.2003 15:00:15
Andreas
Public
Sub UpdateDB()
Dim SQL As String
lastrow = Cells.SpecialCells(xlCellTypeLastCell).Row
'Datenbank öffnen
Set Db = DBEngine.OpenDatabase("D:\Documents and Settings\Aemmert\My Documents\SQL-Access-Excel ODBC Test\Access Testdatenbank.mdb", False, False)
For i = 2 To lastrow
'Datensatz suchen
SQL = "UPDATE Bestellungen Bestellungen SET Bestellungen.Frachtkosten = '" & Cells(i, 2) & "', Bestellungen.Umsatzsteuersatz = '" & Cells(i, 3) & "' WHERE Bestellungen.Bestellnr = '" & Cells(i, 1) & "'"
Set rs = Db.OpenRecordset(SQL, dbOpenDynaset)
Next i
Db.Close
End Sub