Datum in Access übertragen

[whisky1108]

Hallo zusammen,

ich bin ratlos bekomme ständig den Fehler: Anzahl der Abfragewerte und Zielfelder stimmen nicht überein.

    Dim dteDatum As Date
    Dim con2 As ADODB.Connection
    Set con2 = New ADODB.Connection
    con2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dte.mdb"
    
    dteDatum = Format(Date, ddmmjj)


    strDatei = "TEST.xls"
    
    con2.Execute "INSERT INTO IP (Datum,Datei) Values (" & "'" & dteDatum & "'", " '" & strDatei & "'" & "); "
    con2.Close

Änder ich das Ganze in:

    con2.Execute "INSERT INTO IP (Datum,Datei) Values ('13.11.2007'," &  "'" & strDatei & "'" & "); "

dann geht es.

 

[larryson]

Ändere folgende Zeile

con2.Execute "INSERT INTO IP (Datum,Datei) Values (" & "'" & dteDatum & "'", " '"& strDatei & "'" & "); "

mal in:

con2.Execute "INSERT INTO IP(Datum, Datei) Values (" ' " & dteDatum & " ' ", strDatei);"

Die Leerzeichen läßt Du aber bitte weg, nur wegen der Sichtbarkeit.

...Values ("'" & dteDatum & "'" ....

 

[whisky1108]

Danke für die Antwort.
Nur setzt er dann den Rest in den kommentierten Bereich:

con2.Execute "INSERT INTO IP(Datum, Datei) Values (" ' " & dteDatum & " ' ", strDatei);"

Gruss,

Andreas

 

[whisky1108]

Habe den Fehler gefunden:

con2.Execute "INSERT INTO IP (Datum,Datei) Values (" & "'" & dteDatum & "'" & "," & "'" & Text1.Text & "'" & "); "

Banale Dinge erkennt man halt nicht sofort.