SQL INSERT INTO語句不起作用VBA

Question

似乎很簡單，但是我不認為它不起作用，它給出了錯誤消息msg（INSERT INTO語句中的語法錯誤）。

Call Connect_to_db

strSQL = "INSERT INTO Table2 ( Name, StaffNumber , Title , Number , ext , Nationalty , Section , Sector , Side , Department , Civil , Job_title ) Values ('" & addName.TExt & "', " & Val(addStaffID.TExt) & ", '" & addTitle.TExt & "', " & Val(addNumber.TExt) & " , " & Val(addExt.TExt) & " , '" & addNation.TExt & "', '" & addSection.TExt & "', '" & addSector.TExt & "', '" & addSide.TExt & "', '" & addDept.TExt & "' , " & Val(addCivil.TExt) & ", '" & addJob.TExt & "'  )"
Debug.Print strSQL
cn.Execute strSQL

MsgBox ("Data Added to the Database")

Call Close_db

除（StaffNumber，ext，Number，Civil）外的所有數據類型文本均為數字

我認為我需要先修剪，但是我認為這不是問題的原因。

Answer 1

您缺少VALUES子句中的Job_title值。 另外，您還錯放了“ Department和“ Civil列。

應該是這樣的：

INSERT INTO Table2
  ([NAME],
    StaffNumber,
    Title,
    Number,
    ext,
    Nationalty,
    Section,
    Sector,
    Side,
    Department,
    Civil,
    Job_title)
VALUES
  ('" & addName.TExt & "',
    " & Val(addStaffID.TExt) & ",
    '" & addTitle.TExt & "',
    " & Val(addNumber.TExt) & ",
    " & Val(addExt.TExt) & ",
    '" & addNation.TExt & "',
    '" & addSection.TExt & "',
    '" & addSector.TExt & "',
    '" & addSide.TExt & "',
    '" & addDept.TExt & "',
    " & Val(addCivil.TExt) & ",
     ADD_JOB_TITLE_VALUE_HERE)