用rs.AddNew追加数据时,如何判断DataGrid中的数据是否存在呢??

[gzhi1984]

我已将表绑定到DataGrid中了.(是用ADO)
我想把文本框的数据追加到DataGrid中,如何判断DataGrid中的数据是否存在呢??
如果存在就提示"已有".
如果没有就追加数据,(要求在DataGrid显示所有的内容)

[guyehanxinlei]

加的时候进去查询一下

[gzhi1984]

呵呵谢谢 我已经解决了!!!!!!!

[of123]

查询以下就可以了：

Dim rs As ADODB.Recordset

Set rs = ADODC1.Recordset.ActiveConnection.Execute("Select * From 表名 Where 字段名 = '" & 控件名.text & "'"

If rs.EOF Then
ADODC1.Recordset.ActiveConnection.Execute("Insert Into 表名(字段名) Values('" &控件名.text & "'")
ADODC1.Refresh
Else
Msgbox "已有"
End If