Private Sub Command3_Click()
Call openconn
sqlstr = "update hello set password='" & Text5.Text & "',quanxian='" & Check1.Value & "' where user= '" & Text4.Text & "'"
Call rs(sqlstr)
Call closeconn
MsgBox "Changed Successfully!", vbInformation
End Sub
我的目的是修改数据,可是不对,老给我报错,如下:Erroe occured:-2147217900 UPDATE的语法错误。in Microsoft JET Database Engine
我的数据库如下access
user 文本
password 文本
quanxian 文本
Call openconn
sqlstr = "update hello set password='" & Text5.Text & "',quanxian='" & Check1.Value & "' where user= '" & Text4.Text & "'"
Call rs(sqlstr)
Call closeconn
MsgBox "Changed Successfully!", vbInformation
End Sub
我的目的是修改数据,可是不对,老给我报错,如下:Erroe occured:-2147217900 UPDATE的语法错误。in Microsoft JET Database Engine
我的数据库如下access
user 文本
password 文本
quanxian 文本
这样看下
user --> [user]
建议楼主不要将保留字作为表名与字段名来使用