|
Hallo,
ich möchte gern Daten über VBA in eine Access-Tabelle einfügen. Die Tabelle besteht, hat aber auch ein paar mehr Felder als ich nutzen möchte.
Sub testinsert()
Dim sqlstr As String
sqlstr = "INSERT INTO bestellungen(BestNr,ArtNr,Anzahl) VALUES ('12345', '6789', '3');"
CurrentDb.Execute sqlstr, dbFailOnError
End Sub
Ich habe es auch schon so versucht:
Public Sub DoSQL()
Const QUERY_NAME As String = "dummy"
Dim db As DAO.Database
Dim qd As DAO.QueryDef
Set db = CurrentDb
Set qd = db.CreateQueryDef(QUERY_NAME, "INSERT INTO bestellungen(BestNr,ArtNr,Anzahl) VALUES ('12345', '6789', '3');")
DoCmd.OpenQuery QUERY_NAME
End Sub
Leider wird in beiden Varianten nix in die Tabelle eingefügt. Ich verstehe noch nicht ganz, ob ich zuerst eine Verbindung zur Datenbank herstellen muss, da aktuell ja genau eine Datenbank geöffnet ist mit der ich arbeiten möchte. Wenn ja fehlt mir der Ansatz, wie ich mich am besten mitt der *.accdb verbinde und die SQL-Querys auführe.
Würde mich sehr freuen, wenn mir jemand weiter helfen kann.
VG Stefan
|