Question

在往vb连接access数据库输入时怎样判断输入是否重复？

access设了个主键，每当输入重复的字符时就提醒！我想要如果数据库里面有的话，出来个对话框提醒已有但不保！
你看看这样错那里了、好像没用！

Answer 1

显然你的代码是有问题的
xh=“select *..."这句，估计你想查到主键存在与否，但是事实上你这句是一个赋值语句，只是叫xh变量="select *....
给你二个思路，1、在增加新的记录前先查询这个序号是否存在，这个很简单啊，请仔细看相关的资料2、捕捉是主键重复的错误 用on error

追问

我就是不会在心的记录前是否存在，现在手头没关于这方面的书!麻烦你能不能给我说说!谢谢！

追答

查询啊
比如你用dao
dim rs as recordset
dim db as database
set db=opendatabase(数据库地址)
set rs=db.OpenRecordset("select * from 表1 where xh='" & text1 &"'"
if not rs.eof and not rs.bof then
msgbox "有重复！"
end if

Answer 2

在存入前，先select这个主键，如果存在就提示存在，不保存就好了。

追问

你看看这样编程有哪里错了！这个编程没有！

追答

1.你的表是不是只要一个主键栏位？如果不是xh = "select TOP 1 主键 from ...."
2.在比对值时最好左右去空格

追问

就一个“型号”为主键，我现在不知道该怎样来判断数据库里面是否已经有我要输入的型号！每次输入重复就会弹出个这样的窗口！我想让他判断后出来个对话框提醒我这个型号已经有了，就不再保存！

追答

我的意思是你这个表有几个栏位(不管是不是主键)。
你可以在 xh =" select ..."下面一行添加 用MSGBOX(xh)，看看执行过后，xh到底是什么值

Answer 3

Private Sub Command3_Click()
On Error Resume Next
If Text1.Text="" Then
MsgBox "请输入要添加的型号！", vbOKOnly, "提示"
Exit Sub
End If
Data1.RecordSet.AddNew
If Err Then
MsgBox "添加失败！可能是型号重复了。请检查。", vbOKOnly, "错误"
End If
End Sub

Answer 4

没用的东西还要谢谢他