高手救命啊 关于ADODC控件的
求高手帮忙啊!!!急只求帮我实现一个很简单的功能,就是当我按添加后,我可以在上面数据框中添加,这个我已经实现了 。ADDNEW
但我希望 当如何我输入的学号上面已经有的时候,程序会提醒我说 已经有重复数据,而不是出错 关闭
--------------------编程问答-------------------- 。。。。。。。。。。。。。。。。。。。。。。。 --------------------编程问答-------------------- 有没有人啊 --------------------编程问答-------------------- 先判断是否存在这个ID号,简单判断就是 adodc.find 好像这么写,具体在谷歌查下。 --------------------编程问答-------------------- Adodc1.Recordset.Find "学号='" & textxh.text & "'"
你也可以在addnew前加个错误处理:
on error goto myerr:
.addnew
....
myerr:
msgbox "学号重复!"
另外这样的程序最引用Microsoft ActiveX Data Objects 2.X controls
而不是用adodc控件。。。 --------------------编程问答--------------------
'如楼上,但是find的参数更准确点才行
dim rs as adodc.recordset
rs.Find "学号='" & textxh.text & "'", , adSearchForward, adBookmarkFirst
'find()有四个参数,注意逗号不要缺失.尤其是后两个参数很重要,加上这两个参数的意思就是每次查找的时候保证从第一条记录开始找一直到rs.eof
'然后判断时候存在
if rs.absoluteposition<>adposeof then msgbox"此学号已存在!":exit sub
补充:VB , 数据库(包含打印,安装,报表)