使用Visual Basic表单和SQL

时间:2018-11-01 09:47:22

标签: sql visual-studio-2010 ms-access

我一直在为学校做一个简单的项目,但遇到了一些问题。我正在尝试使用SQL从可视基本表单中编辑访问记录。通常这很琐碎,但我根本无法解决这个问题。我已经尝试过几乎所有方式都可以重新排列引号,但无济于事。我收到的错误如下:

OleDbException was Unhandled, syntax error in UPDATE statement.

我遇到麻烦的那条线在下面,

 Dim SQLSendEdit As String = "UPDATE StaffT SET Forename= '" & StaffForename     & "', Surname= '" & StaffSurname & "', DOB= '" & TxtDOBStaff.Text & "', Position= '" & TxtPositionStaff.Text & "', Address= '" & TxtAddressStaff.Text & "', Postcode= '" & TxtPostcodeStaff.Text & "', Tel= '" & TxtTelStaff.Text & "', Email= '" & TxtEmailStaff.Text & "', WHERE StaffID= '" & TxtIDStaff.Text & "'"

这是我解决方案中的全部一行,因此下划线不是这里的问题。我确定我缺少一些非常明显的东西,但我真的很感谢您的帮助。这是我的第一篇文章,因此,如果我错过任何重要信息或提出错误建议,请随时告诉我。非常感谢。

1 个答案:

答案 0 :(得分:-2)

很有可能,并非所有字段都是文本。因此,也许 DOB StaffID 分别是日期和数字:

Dim SQLSendEdit As String = "UPDATE StaffT SET Forename= '" & StaffForename & "', Surname= '" & StaffSurname & "', DOB= #" & TxtDOBStaff.Text & "#, Position= '" & TxtPositionStaff.Text & "', Address= '" & TxtAddressStaff.Text & "', Postcode= '" & TxtPostcodeStaff.Text & "', Tel= '" & TxtTelStaff.Text & "', Email= '" & TxtEmailStaff.Text & "', WHERE StaffID= " & TxtIDStaff.Text & ""