请问为什么我的insert into 语法总是显示错误

screw

Private Sub cmdSave_Click()
    If IsNull(Me.id) Or Me.id = "" Then
            CurrentProject.Connection.Execute "INSERT INTO manage " & _
                "(report, kdqr, lot, qty, date, remark, case, pn) VALUES (" & _
                "'" & Me.report & "', '" & Me.kdqr & "','" & Me.lot & "','" & Me.qty & "',' " & Me.date & "','" & Me.remark & "',' Me.case & " ', '" & Me.pn & "')"
        Else
            CurrentProject.Connection.Execute "UPDATE manage " & _
                "report = '" & Me.report & "', " & _
                "kdqr = '" & Me.kdqr & "', " & _
                "lot = '" & Me.lot & "', " & _
                "qty = '" & Me.qty & "', " & _
                "date = '" & Me.date & "', " & _
                "remark = '" & Me.remark & "', " & _
                "case = '" & Me.case & "', " & _
                "pn = '" & Me.pn & "'," & _
                " WHERE id=" & Me.id
    End If
      
    Call SetButt("保存")
End Sub

kangking

可能是数据类型不对，比如，日期类型的数据应该用＃＃号括起来而不是用“”。

screw

我已经把数据类型都改为文本格式了，可是还是显示有错误，不知道为什么

kangking

错误提示是什么？能把你的库传上来吗？

screw

库

tz-chf

还有，字段名不要用date

kangking

insert into 语法错误
1、不要用系统保留的关键字做字段名，如果一定要用，在句中要用方括号括起来，如[date]，[case] 。
2、因为文本框中录入的数据默认是文本，最好加一个文本转数据的函数，如val(文本)。

3、如ganrong 所言，UPDATE manage  后要加 set
正确的语句如下：
"INSERT INTO manage " & _
                "(report, kdqr, lot, qty, [date], remark, [case], pn) VALUES (" & _
                "'" & Me.report & "'," & val(Me.kdqr) & "," & val(Me.lot) & "," & val(Me.qty) & ",#" & Me.date & "# ,'" & Me.remark & "','" & Me.case & "', '" & Me.pn & "')"

kangking

还有，在执行查询前要验证数据是否正确，例如日期的值是否正确？数字是否为null，等等。

screw

谢谢大侠！！我都弄了2天了，我确实对具体的语法不是很了解，多谢讲解