在VB中用ADODC时,录入数据如何避免重复

因为无论是第三方数据库还是自己的数据库，都不知道你要添加或者修改后的记录是什么内容，是否已经存在。因此我在解决这个问题的时候是根据需要，用要添加的记录的关键字或者整条记录作条件对要插入的表进行查询，如果返回记录条数大于0，说明已经存在了，提示该记录存在，否则就添加进去。步骤如下：

1.检查数据合法性

2.在要插入的表中检索该记录

3.返回记录条数大于0，提示改记录存在

4.等于0，进行相应处理。

不知道你要解决的是不是这样的问题，希望对你有所帮助。

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

....

For i = 0 To Adodc1.Recordset.RecordCount - 1

If Adodc1.Recordset.Fields(" *** 作员").Value &"" <>"" Then

For j = 0 To Combo1.ListCount - 1

If Combo1.List(j) = Adodc1.Recordset.Fields(" *** 作员").Value Then Exit For

Next

If j = Combo1.ListCount Then Combo1.AddItem Adodc1.Recordset.Fields(" *** 作员").Value

End If

Adodc1.Recordset.MoveNext

Next

....

---