VBA连接数据库 检查重复

sy394589008

各位大神，VBA连接数据库，提交数据没问题，但是我想检查是否有重复 但是zh里面定义的变量 数据库中已经存在了，但是VBA运行为什么不提示 已经存在

1. Sub 检查重复()
   
2. zh = "3601A1210103000011"
   
3. Set x = CreateObject("adodb.connection")
   
4. Set y = CreateObject("adodb.recordset")
   
5. Application.DisplayAlerts = False
   
6. Application.CutCopyMode = False
   
7. x.Open "Provider=sqloledb;Server=192.168.11.2;Database=123;Uid=123;Pwd=123"
   
8. Sql = "select * from pay2 where leixing = " & "'" & zh & "'"
   
9. Set y = x.Execute(Sql)
   
10. 
    
11. If y.RecordCount = 0 Then
    
12. MsgBox "已存在!"
    
13. End If
    
14. 
    
15. End Sub
    

复制代码

zpy2

If y.RecordCount > 0 Then

race01

recordset不能用x.execute,只能用y.Open,
否則y.recordcount都為0