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
按索引遍历里面的每一个值啊,分别取第一个值到最后一个值与其他值比较,如果有相同谈成提示,给你一个数组查重的代码你参考下
Dim arr() As String = {"和二", "张三", "李四", _
"王五", "七", "马六", "和三", _
"张四", "李五", "张三", "王六"}
For i As Integer = 0 To arr.Length - 1
For j As Integer = i + 1 To arr.Length - 1
If (arr(i) = arr(j)) Then
MessageBox.Show(arr(i))
End If
Next j
Next i