VBA: Access-Abfrage aus Excel starten

22/12/2009 - 11:32 von kielhd | Report spam
Hi NG,

ich möchte in einer MS ACCESS 2000 Datenbank eine Anfügeabfrage
ausführen.
Dies soll aus einem VBA-Script in MS Excel angestoßen werden.

Kann mir hier jemand mit ein paar Zeilen Beispielcode weiterhelfen?

TIA,
Henning
 

Lesen sie die antworten

#1 Peter Schleif
22/12/2009 - 12:30 | Warnen spam
kielhd schrieb am 22.12.2009 11:32 Uhr:

ich möchte in einer MS ACCESS 2000 Datenbank eine Anfügeabfrage
ausführen.
Dies soll aus einem VBA-Script in MS Excel angestoßen werden.

Kann mir hier jemand mit ein paar Zeilen Beispielcode weiterhelfen?



Sub accessInsertUpdateDelete()
Dim app As Object
Dim sql As String

On Error GoTo fehler
Application.DisplayAlerts = False

Set app = CreateObject("Access.Application")
app.Visible = False
app.OpenCurrentDatabase ("E:\test.mdb")

'/INSERT/
'--
sql = "INSERT INTO Kunden(name, vorname) VALUES('Meier','Otto')"
app.DoCmd.runsql sql

'/UPDATE/
'--
sql = "UPDATE Kunden SET vorname='Peter' WHERE name='Meier'"
app.DoCmd.runsql sql

'/DELETE/
'--
sql = "DELETE FROM Kunden WHERE name='Meier'"
app.DoCmd.runsql sql

fehler:
Application.DisplayAlerts = True

If Not app Is Nothing Then app.Quit
Set app = Nothing
End Sub

Ähnliche fragen