Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

SQL-UPDATE Query mit VBA ausführen

SQL-UPDATE Query mit VBA ausführen
07.10.2003 15:00:15
Andreas
Was muss ich am folgenden Code ändern, damit der UPDATE-SQL-Query ausgeführt wird? Mit "Set rs = Db.OpenRecordset(SQL, dbOpenDynaset)" komme ich nicht weiter, aber auch stundenlanges Googeln hat nicht weitergeholfen. Vielleicht kann einer von euch helfen? Danke!

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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SQL-UPDATE Query mit VBA ausführen
07.10.2003 16:26:45
Karl-Otto Reimann
Hallo Andreas
Ist Deine DAO-Bibliothek verfügbar?
(Im VBA-Editor unter Extras/Verweise
"Microsoft DAO 3.6 Object Library" ein Häkchen setzen)
Gruß KO
AW: SQL-UPDATE Query mit VBA ausführen
07.10.2003 16:34:46
Andreas
Ja, die DAO Bibliothek habe ich offen. Habe sowohl die DAO Objects 3.x sowie die MS Activex DO Library 2.x offen.
AW: SQL-UPDATE Query mit VBA ausführen
07.10.2003 17:09:25
Karl-Otto Reimann
Bei mir funktioniert folgendes:


Sub DAO_Findv()
' Bestimmung aller Bestellungen der Fa. VICTE
' (vorwärts suchen)
Dim db As Database
Dim rs As Recordset
Dim knopf As Integer, anz As Integer
Dim pfad As String
pfad = "C:\VBA_Krs\"
Set db = OpenDatabase(pfad & "Bestell.mdb")
Set rs = db.OpenRecordset("Bestellungen", _
dbOpenSnapshot)
rs.FindFirst "[Kunden-Code]='VICTE'"
anz = 1
Do Until rs.NoMatch
knopf = MsgBox(Prompt:= _
rs.Fields("Bestell-Nr") _
& " " & rs.Fields("Kunden-Code") _
& " " & rs.Fields("Bestelldatum") _
& vbNewLine & "anz = " & anz, _
Buttons:=vbOKCancel)
If knopf = vbCancel Then Exit Do
rs.FindNext "[Kunden-Code]='VICTE'"
anz = anz + 1
Loop
rs.Close
db.Close
End Sub


Noch Fragen?
mfG KO
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige