UC知道在vb中编辑ACCESS的问题!
来源：百度知道 编辑：UC知道 时间：2024/05/25 12:29:52
vb中text_change()事件中如何实现查找数据是否有相同数据,比如输入"学生学号"如果数据库中存在相同的号据就弹出提示,我用那个data.recordset.findfist没有成功.代码如下:
data1.recordset.movefisrt
data1.recordset.findfisrt "号据='" & text1(0).text & "'"
if data1.recordset.nomatch then
text1(1).setfocus
else
msgbox"已有相同的号据存在",0
但是不行
后来又在ACCESS中设置主键.VB再添加这个选项的时候.直接弹出有重复的索引这样的信息.然后就退出了整个生成的exe.如果不写上面代码的话怎么样捕捉ACCESS返回的信息.不让整个程序异常中止呢?
还有实现在text中输入一下数据库的项..如果删除此项!我用adodc1.recordset.delete发现删掉的不是我想删的内容..
data1.recordset.movefisrt
data1.recordset.findfisrt "号据='" & text1(0).text & "'"
if data1.recordset.nomatch then
text1(1).setfocus
else
msgbox"已有相同的号据存在",0
但是不行
后来又在ACCESS中设置主键.VB再添加这个选项的时候.直接弹出有重复的索引这样的信息.然后就退出了整个生成的exe.如果不写上面代码的话怎么样捕捉ACCESS返回的信息.不让整个程序异常中止呢?
还有实现在text中输入一下数据库的项..如果删除此项!我用adodc1.recordset.delete发现删掉的不是我想删的内容..
data1.recordset.findfisrt "号据='" & text1(0).text & "'"
这行写错了吧应该是
data1.recordset.findfirst "号据='" & text1(0).text & "'"
别用data控件...麻烦
还有就是 我大会用data控件...我做的数据库都是直接打开和直入...
If rec.State = adStateOpen Then rec.Close '判断记录集状态，如果是打开就先关闭
SQL = "select * from jbxx where 股权代码 = " & T2.Text & ""
rec.Open SQL, con, adOpenStatic, adLockOptimistic '打开记录集
rec.Requery
If Not rec.EOF Then
MsgBox ("身份证号从复!")
Exit Sub
End If
给你参考。..你要用的话要修改...
_________
注data ado 都很不方便