Hallo Gemeinde,
Ich setze einen Insert Into-Befehl an eine MS-Access-Db ab. Dieser Funktioniert auch und macht die Eintragung.
Hat jemand eine Idee warum die Befehle
den im Anhang dargestellten Fehler auswerfen?
Spoiler anzeigen
#include <Array.au3>
#include <ADO.au3>
#include <Access.au3>
Global $sTableName = "Empfänger"
Global $sDatabaseName = @ScriptDir & "\TestHW.accdb"
Global $sVorname = "Idiot"
Global $sNachname = "Voll"
If Not FileExists($sDatabaseName) Then
MsgBox(0, "Alert Missing Db", '! Error : DatabaseName = ' & $sDatabaseName & ' nicht gefunden' & @CRLF)
Exit
EndIf
Global $oConnection = ObjCreate("ADODB.Connection")
$oConnection.Open("Driver=Microsoft Access Driver (*.mdb, *.accdb); DBQ=" & $sDatabaseName)
Global $oRecordSet = ObjCreate("ADODB.RecordSet")
;Global $sQuery = "Select Seriennummer, Standort, Leihgerät From " & $sTableName & " WHERE Seriennummer = " & "'" & $sVar & "'"
;Global $sQuery = "Update " & $sTableName & " SET Leihgerät = True, Ausleihdatum = '" & _Now() & "', [Kunden-Nr] = '" & $sEmployee & "', Standort = '" & $sPlatz & "' " & "WHERE Seriennummer = " & "'" & $sVar & "'"
Global $sQuery = "INSERT INTO " & $sTableName & " (`Nachname`,`Vorname`) " & "VALUES ('" & $sNachname & "'," & "'" & $sVorname & "')"
$oConnection.Execute($sQuery)
$oRecordSet.Close()
$oConnection.Close()