vb中怎么判断数据库中已有此信息

来源：百度知道 编辑：UC知道 时间：2024/05/15 19:34:01
我做的是学生管理
判断学生编号是否重复?
那个判断语句该怎么写?
那个我知道 我不明白的是
这个判断怎么写
比如 数据库里有0001,0002,0003
我在往数据库里添加0001或0002的时候
它回提示你 "信息已经存在!"

If Text1.Text = "" Or Text4.Text = "" Then
MsgBox ("姓名和身份证号不允许为空!")
Exit Sub
End If

If flag = 0 Then

If rec.State = adStateOpen Then rec.Close '判断记录集状态，如果是打开就先关闭

SQL = "select * from jxgl where 身份证号 = '" + Text4.Text + "' "
rec.Open SQL, con, adOpenStatic, adLockOptimistic '打开记录集
rec.Requery
If Not rec.EOF Then
MsgBox ("身份证号从复!")
Exit Sub
End If

这个是保存数据前的判断....第一为身份证为空值不允许保存...身份证从复不允许保存.
如这两个条件通过的话...就会保存...

连接数据库我就不说了
思路是你查询数据库看看有没有你要判断的编号
比如：0001
rs.open "select * from table where id='0001'",conn,3,3
看看rs有几条记录
不就知道了

if rs.eof and rs.bof then
msgbox "0001已经存在"
rs.close
end if
rs.open "select * from table where id='0002'",conn,3,3
if rs.eof and rs.bof then
msgbox "0002已经存在"
rs.