字典如何实现SQL的Select From [Sheet3$] Where 功能。

ning84

现在用字典方法实Select From [Sheet3$] Where 功能，只能用循环方法。

1. 
   
2. Sub DELDELDEL()
   
3.    Dim Str, Rs As ADODB.Recordset
   
4.       Str = "Select  AAAA, BBBB  From [Sheet3$A1:C876] Where AAAA = 'IMG_20231107_095633.jpg'"
   
5. 
   
6. 
   
7.       
   
8.       Debug.Print Str
   
9.       
   
10.       Set Rs = SqlRetuRs(Str)
    
11.       Debug.Print Rs.RecordCount
    
12.       
    
13. End Sub
    

复制代码

1. Function SqlRetuRs(Str)
   
2.    Dim Cn As ADODB.Connection
   
3.        Set Cn = New ADODB.Connection
   
4.    Dim Rs As ADODB.Recordset
   
5.        Set Rs = New ADODB.Recordset
   
6.         Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
   
7.         Rs.Open Str, Cn, adOpenKeyset, adLockOptimistic
   
8.        Set SqlRetuRs = Rs
   
9. End Function
   

复制代码