VB update 语句的语法错误 10
运行一个图书馆管理系统的读者信息管理模块,修改读者信息单击“保存”按钮时出现“update语句的语法错误”的错误提示!!修改读者信息(保存按钮)代码如下:PrivateS...
运行一个图书馆管理系统的读者信息管理模块,修改读者信息单击“保存”按钮时出现 “update 语句的语法错误”的错误提示!!
修改读者信息(保存按钮)代码如下:
Private Sub Command5_Click()
If Text11.Text = "" Or Text12.Text = "" Then
MsgBox "不能修改空记录信息", vbInformation
Else
Dim i, sql As String
i = MsgBox("是否修改此条记录!", vbYesNo + vbOKOnly)
If i = vbYes Then
sql = "update dzxxtb set 读者编号='" & Text11 & "',读者姓名='" & Text12 & "',性别='" & Combo4 & "',出生日期='" & DTPicker3 & "',单位='" & Text13 & "',住址='" & Text14 & "',固定电话='" & Text15 & "',手机号码='" & Text16 & "',MSN/QQ='" & Text17 & "',Email='" & Text18 & "',证件类型='" & Combo5 & "',证件号码='" & Text19 & "',登记日期='" & DTPicker4 & "',读者级别='" & Text20 & "',备注='" & Text21 & "' where 读者编号 like '" & Text11.Text & "'"
cnn.Execute (sql)——黄色小箭头落在此!!
Adodc1.Refresh
clear
Else
On Error Resume Next
rs.CancelUpdate
End If
End If
End Sub
错误提示是 实时错误!! 展开
修改读者信息(保存按钮)代码如下:
Private Sub Command5_Click()
If Text11.Text = "" Or Text12.Text = "" Then
MsgBox "不能修改空记录信息", vbInformation
Else
Dim i, sql As String
i = MsgBox("是否修改此条记录!", vbYesNo + vbOKOnly)
If i = vbYes Then
sql = "update dzxxtb set 读者编号='" & Text11 & "',读者姓名='" & Text12 & "',性别='" & Combo4 & "',出生日期='" & DTPicker3 & "',单位='" & Text13 & "',住址='" & Text14 & "',固定电话='" & Text15 & "',手机号码='" & Text16 & "',MSN/QQ='" & Text17 & "',Email='" & Text18 & "',证件类型='" & Combo5 & "',证件号码='" & Text19 & "',登记日期='" & DTPicker4 & "',读者级别='" & Text20 & "',备注='" & Text21 & "' where 读者编号 like '" & Text11.Text & "'"
cnn.Execute (sql)——黄色小箭头落在此!!
Adodc1.Refresh
clear
Else
On Error Resume Next
rs.CancelUpdate
End If
End If
End Sub
错误提示是 实时错误!! 展开
3个回答
展开全部
vb6支持默认属性 这样的提示 已经很明显了。就是你sql 语句语法错误。你可以把的sql语句显示出来。这样就好调试了。就可以看到 那里错了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
update dzxxtb set 读者编号='" & Text11 & "',读者姓名='" & Text12 ......
这些里的text11肯定不行,这是对象,不是值,你要用text11.text
这些里的text11肯定不行,这是对象,不是值,你要用text11.text
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
应该是SQL语句的错误吧
读者编号这些是别名么?
我记得UPDATE不能用别名的~
读者编号这些是别名么?
我记得UPDATE不能用别名的~
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询