
VB制作出来的一个程序,修改功能出错
我修改了数据库里的数值之后,点了“修改”按钮他提示出“至少一个参数没有被指定”然后又弹出“车牌号码是主索引字段,不能重复”是什么原因,代码如下:PrivateSubcmd...
我修改了数据库里的数值之后,点了“修改”按钮 他提示出“至少一个参数没有被指定”
然后又弹出“车牌号码是主索引字段,不能重复”
是什么原因,
代码如下:
Private Sub cmdedit_Click()
On Error GoTo errorhandler:
If Text2.Text <> "" Then
Adodc1.RecordSource = "select * from 车型核查 where 车牌号码 =" & Text2.Text
Adodc1.Refresh
Adodc1.Recordset.Fields("车主单位") = Text1.Text
Adodc1.Recordset.Fields("车牌号码") = Text2.Text
Adodc1.Recordset.Fields("报告编号") = Text3.Text
Adodc1.Recordset.Fields("发布批次") = Text4.Text
Adodc1.Recordset.Update
Else
MsgBox "车牌号码是主索引字段,不能为空。", , "错误提示"
End If
Exit Sub
errorhandler: MsgBox "车牌号码是主索引字段,不能重复", , "错误提示"
End Sub 展开
然后又弹出“车牌号码是主索引字段,不能重复”
是什么原因,
代码如下:
Private Sub cmdedit_Click()
On Error GoTo errorhandler:
If Text2.Text <> "" Then
Adodc1.RecordSource = "select * from 车型核查 where 车牌号码 =" & Text2.Text
Adodc1.Refresh
Adodc1.Recordset.Fields("车主单位") = Text1.Text
Adodc1.Recordset.Fields("车牌号码") = Text2.Text
Adodc1.Recordset.Fields("报告编号") = Text3.Text
Adodc1.Recordset.Fields("发布批次") = Text4.Text
Adodc1.Recordset.Update
Else
MsgBox "车牌号码是主索引字段,不能为空。", , "错误提示"
End If
Exit Sub
errorhandler: MsgBox "车牌号码是主索引字段,不能重复", , "错误提示"
End Sub 展开
2个回答
展开全部
"select * from 车型核查 where 车牌号码 =" & Text2.Text
少了一部分吧,是"select * from 车型核查 where 车牌号码 =" & Text2.Text & ""
少了一部分吧,是"select * from 车型核查 where 车牌号码 =" & Text2.Text & ""
追问
我貌似找到问题所在了 我删除掉了 Adodc1.Refresh
好像可以了哦
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询