Question

如何用VB实现向数据库添加数据时搜索数据库看是否有重复数据？

小弟学VB做数据库不久·现在有个问题

我想向数据库添加一个记录，当command2再次按下时先搜索表中的数据，看有没有重复的，然后在询问添加与否。
代码：

Private Sub Command2_Click()
判断个TEXT是否为空，不为空则
Else
Data1.RecordSource = "select * from keshi where 课程名称='" & Text3.Text & "'"
If Data1.Recordset.EOF = False Then
If MsgBox("已经存在课程名称为 " & Text3.Text & " 的记录！，确定添加？", vbOKCancel + vbExclamation, "警告") = vbOK Then

添加记录
......

问题是当表中没有我要添加的记录时，也会msgbox，问我是否添加，我用data做的·请问问题在哪？代码应该怎么写？
万分感谢·小弟菜鸟表笑我
command2是向数据库添加数据，我想实现当我输入完数据时按下command2,程序搜索数据表 keshi 看是否有课程名称和 text3 里输入的一样，有则msgbox，没有则直接添加数据。
现在的效果是无论 keshi 里有没有 text3里输入的“课程名称”
都会msgbox.

Answer 1

不太明白你想要什么效果，不过给个思路你看看是否合适：

Data1.RecordSource = "select * from keshi where 课程名称='" & Text3.Text & "'"
If Data1.Recordset.RecordCount > 0 Then
MsgBox "记录己存在"
Else
MsgBox "记录不存在"
End If

如果不是，请表达清楚！

===========================================================

如果只是这样,那把上面的改一下就好了:

Data1.RecordSource = "select * from keshi where 课程名称='" & Text3.Text & "'"
If Data1.Recordset.RecordCount > 0 Then
If MsgBox("已经存在课程名称为 " & Text3.Text & " 的记录！，确定添加？", vbOKCancel + vbExclamation, "警告") = vbOK Then
'记录己存在，确认后接添加数据

......

End If
Else
'记录不存在,直接添加数据

......

End If