在vb中update access数据库的语法错误

来源：百度知道 编辑：UC知道 时间：2024/05/25 06:01:17
程序如下：
Private Sub cmdRecord_Click()
Dim SqlStr As String
Dim Remark As String
Dim sNow As String
Dim UsrID As String

UsrID = Replace(UserNow.ID, "'", "''")

Remark = Replace(Trim(TextRemark.Text), "'", "''")
sNow = Format(Now, "yyyy-mm-dd hh:mm:ss")

SqlStr = "update ParkingInfo"
SqlStr = SqlStr & "set ExitTime = #" & sNow & "#,"
SqlStr = SqlStr & "Charge=" & txtCost.Text & ","
SqlStr = SqlStr & "ChargeRecID='" & UsrID & "'"
SqlStr = SqlStr & "where ParkingNO='" & txtPkNO.Text & "'"
程序是要更新表ParkingInfo
运行说是：
实时错误‘－2147217900（80040e14）’update语句的语法错误。应该怎么改啊？
急啊,在线等!希望高手说的具体一点
还是不对啊,是不是不只这一个问题啊?我已经加了空格也还是一样的错误啊,
还是都不对啊
急死偶了

SqlStr = "update ParkingInfo set ExitTime = #" & sNow & "#,Charge=" & txtCost.Text & ",ChargeRecID='" & UsrID & "' where ParkingNO='" & txtPkNO.Text & "'"

差空格
SqlStr = "update ParkingInfo "
SqlStr = SqlStr & "set ExitTime = #" & sNow & "#,"
SqlStr = SqlStr & "Charge=" & txtCost.Text & ","
SqlStr = SqlStr & "ChargeRecID='" & UsrID & "' "
SqlStr = SqlStr & "where ParkingNO='" & txtPkNO.Text & "'"

算了，要写语句的话和上面两位一样了。那我解释吧。
楼主写的
SqlStr = "update ParkingInfo"
SqlStr = SqlStr & "set ExitTime = #" & sNow & "#,"
变成SQL语句就是
update ParkingInfoset ExitTime = ···
注意set和前面的字是连起来的。
所以，下面一个赋值语句的 set 前面要加以个空格。

******************************
where 前面也要加空格，如果还不行

SqlStr = SqlStr & "Charge=" &