MS Access Ошибка выполнения 3464

Question

Я работаю в базе данных для моей работы, и я пытаюсь вставить и обновить значения из таблиц с SQL внутри редактора VB Это мой код:

Option Compare Database 

Private Sub Übernehmen_Click() 
    Dim strSQL1 As String 
    Dim strSQL2 As String 
    Dim strSQL3 As String 
    Dim ArtikelNr As Integer 
    Dim Stück As Integer 
    Dim Lieferant As String 
    Dim Bestellnr As Integer 
    Dim EkPreis As String 
    Dim Mwst As String 
    Dim Einkaufsort As String 
    Dim GhIndex As String 
    Dim Datum As String 
    Dim Uhrzeit As String 
    Dim Lager As String 
    Dim Beschreibung As String 

    ArtikelNr = [Forms]![Einkauf]![ArtikelNr].Value 
    Stück = [Forms]![Einkauf]![Stück].Value 
    Lieferant = [Forms]![Einkauf]![Lieferant].Value 
    Bestellnr = [Forms]![Einkauf]![Bestellnr].Value 
    EkPreis = [Forms]![Einkauf]![EK-Preis].Value 
    Mwst = [Forms]![Einkauf]![Mwst-Satz].Value 
    Einkaufsort = [Forms]![Einkauf]![Einkaufsort].Value 
    GhIndex = [Forms]![Einkauf]![GH-Index].Value 
    Datum = [Forms]![Einkauf]![Datum].Value 
    Uhrzeit = [Forms]![Einkauf]![Uhrzeit].Value 
    Lager = [Forms]![Einkauf]![Lager].Value 

    strSQL1 = "INSERT INTO Einkäufe (ArtikelNr, Stück, Lieferant, Bestellnr, EKPreis, MwstSatz, Einkaufsort, GHIndex) VALUES (" & ArtikelNr & "," & Stück & ",'" & Lieferant & "','" & Bestellnr & "','" & EkPreis & "','" & Mwst & "','" & Einkaufsort & "','" & GhIndex & "');" 

    Beschreibung = DLast("EinkaufID", "Einkäufe") 

    strSQL2 = "INSERT INTO Transaktionen VALUES ('" & ArtikelNr & "','" & Datum & "','" & Lager & "','" & Stück & "','EinkaufID ' + '" & Beschreibung & "' ,'Einkauf',NULL,NULL,'" & Uhrzeit & "');" 
    strSQL3 = "UPDATE Lagerbestand SET Stück = Stück+" & Stück & " WHERE ArtikelNr = '" & ArtikelNr & "' AND Lager = '" & Lager & "';" 

    DoCmd.RunSQL strSQL1 
    DoCmd.RunSQL strSQL2 
    DoCmd.RunSQL strSQL3 

End Sub 

После попытки чтобы нажать кнопку, она сначала добавляет две записи и останавливается на третьем, просто чтобы выдать сообщение об ошибке «Runtime Error: 3464». После того, как я нажимаю debug, он отмечает строку DoCmd.RunSQL strSQL3.

Буду признателен за любой ответ, который я получаю. Большое спасибо заранее.

Answer 1

Моя ошибка пыталась сравнить целое число со строкой. Несмотря на то, что sql отличает его от целого числа до строки, если вы создаете новую запись, она не отображает ее, если вы хотите сравнить ее.

Answer 2

Быстрая ошибка Google Runtime Error 3464 предполагает, что это несоответствие типа данных. Обычно вы увидите это, когда пытаетесь сохранить значение даты в поле строки или что-то в этом роде.

Двойная проверка типов, переданных вашим операторам SQL, соответствует столбцам, которые они должны быть сохранены, и применять любые необходимые преобразования, если вы обнаружите различия.

Кроме того, один финальный хедз-ап ... путем динамического создания вашей строки SQL, вы оставляете себя уязвимым для атак SQL-инъекций - вам следует рассмотреть возможность использования ADOCommands с параметрами.