vb数据库数据添加重复时提示错误的代码怎么打 急急急 30
IfText1.Text<>""ThenAdodc1.CommandType=adCmdUnknownAdodc1.RecordSource="select*from表1...
If Text1.Text <> "" Then
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "select * from 表1 where zhongwenduiming = '" & Trim(Text1) & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.AddNew
Else: MsgBox "此学生信息已录入，请勿重复输入"
这是我的程序，问题出在哪里 在线等 展开
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "select * from 表1 where zhongwenduiming = '" & Trim(Text1) & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.AddNew
Else: MsgBox "此学生信息已录入，请勿重复输入"
这是我的程序，问题出在哪里 在线等 展开
展开全部
最后加2个End If。Adodc1.CommandType =adcmdtext
追问
最后那句话加在哪，还是无法运行啊，有点良心行不，无法运行
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
