Question

怎么用VB判断是否在数据库中已经有重复值

Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 编号 where 编号='" & Text1.Text & "'"
If Adodc1.Recordset.RecordCount > 0 Then
MsgBox "记录己存在"
Else
MsgBox "记录不存在"
Adodc1.Recordset.AddNew
End If
End Sub
Private Sub Form_Load()
Adodc1.Recordset.AddNew
End Sub
测试用的做的比较简单，就一个按钮两个TEXT框一个ADO，ADO连接数据库成功，TEXT也连接到了ADO和字段上，现在是要做一个注册的界面，判断编号是否已经存在，不存在就注册，存在就不注册，可是如果form_load事件不加addnew事件的话TEXT框里一出来是有字段的，就是数据库第一条记录，加了ADDNEW事件的话注册填写信息的时候就已经把记录插入到了数据库表中，也就是说每次注册都是有重复的记录了，有没有什么方法能避免这样的情况啊？

Answer 1

Text不要和Adodc1绑定，这样：
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 编号 where 编号='" & Text1.Text & "'"
If Adodc1.Recordset.RecordCount > 0 Then
MsgBox "记录己存在"
Else
MsgBox "记录不存在"
Adodc1.Recordset.AddNew
Adodc1.Recordset("编号")=Text1.Text
Adodc1.Recordset("其他字段")=Text2.Text
'......
Adodc1.Recordset.Update
End If
End Sub
Private Sub Form_Load()
'这里就不用AddNew了
End Sub

Answer 2

VB下用可能出现重复值的数据做条件，查询数据库，如果查询的到数据，就是有重复值
这里问题有点不明确，如果是不知道vb下怎么执行sql查询数据那就多了

Answer 3

可以在form_load事件里面注明text1.text=‘’，有几个文本框，同时都显示为空值，就没有重复的了。

追问

这样的话就等于把数据库表中的第一条记录字段全部变为空值了。。。

追答

不是第一条记录，是窗体刚显示的时候全部为空值，当控件里面填入具体的值之后点击command1（保存），才可以保存呢。把form_load中的Addnew事件去掉。