Question

vb access数据库判断是否有重复 急急急！！！

我要添加一行数据，前四个字段检测是否有重合。。。。。怎么做，求大侠指点

Answer 1

Dim rs As ADODB.Recordset
Dim cnn As ADODB.Connection
Set rs=new ADODB.Recordset
Set cnn=new ADODB.Connection
cnn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ACCESS完整路径名或相对地址
cnn.Open
rs.Open "Select * from 表名 where 字段1+字段2+字段3+字段4='*"+变量+"*'"",cnn,3,1
If rs.Recordset.EOF Then    //如果没有找到值
   rs.AddNew    
   rs.Recordset.Fields("字段1")=...
   ...
   rs.Update           //插入数据
End IF

Answer 2

假如
字段名称： 字段1，字段2，字段3，字段4
变量名称 ：变量1，变量2，变量3，变量4

1、如果四个字段都是文本型的话就将四个字段全部加起来判断
用ADO 数据连接
Dim adoConn As New ADODB.Connection
Dim adoRect As New ADODB.Recordset

adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\xxx.mdb"
'其中 D:\xxx.mdb 是你数据库全路径名称

adoRect.Open "Select 字段1+字段2+字段3+字段4 From 数据表 Where 字段1+字段2+字段3+字段4='"+变量1+变量2+变量3+变量4+"'",adoConn,adOpenStatic, adLockReadOnly

If Not adoRect.BOF And Not adoRect.Eof Then
MsgBox "数据库中该数据记录重复！"
End If
2、也可以单个字段判断
....
adoRect.Open "Select 字段1+字段2+字段3+字段4 From 数据表 Where 字段1='"变量1+“‘ And 字段2='"+变量2+"' And 字段3='"+变量3+"' And 字段4='"+变4+"'",adoConn,adOpenStatic, adLockReadOnly
.....

3、如果有非字符型字段，只有单个判断了

Answer 3

最佳做法其实就是最笨做法，把四个比较连在一起。
形如： Select Count(ID) From 表名 Where ((字段1=变量1) And (字段2=变量2) And ……)

如果一定不能接受这种写法，认为不符合自己的美学观念就是受不了这个，那也可以尝试这样：
Select Count(ID) From 表名 Where ((字段1 + '分隔符' + 字段2 + '分隔符' + …… = 变量1 + '分隔符' + 变量2 + '分隔符' + ……)
其中的要点是一定要加分隔符，以避免连接字段产生的数据模糊。但理论上无法绝对避免。
分隔符可以是一个字符（比如‘|’或者‘，’），也可以是一个汉字（比如‘㊣’或者‘朤’），也可以是一个字符串。总之越古怪越好，越古怪越能避免偶然出现的错误。

Answer 4

这很简单，SELECT COUNT(*) 条件是四个字段，如果COUNT大于0就是有重复，反之那就是添加数据。

追问

麻烦代码写下

追答

VB的代码，我会，这个代码相信你完全能搞定，我只能说思路，你只需把COUNT的值存到一个变量里，然后判断这个变量就行了。

Answer 5

你先根绝这行记录的前四个字段值作为条件查询一下，看是否有结果记录，如果有记录，就说明有重合