Sql Where TRUE/FALSE不通过,只能用T/F

ning84

        Sql = "Select AfterMoveFile, MoveFile,TorF From[Sheet5$] Where TorF = False"
        Sql = "Select AfterMoveFile, MoveFile,TorF From[Sheet5$] Where TorF = TRUE "
        Sql = "Select AfterMoveFile, MoveFile ,TorF From[Sheet5$X11:X30] Where TorF = 'True'"        
        Sql = "Select TorF From[Sheet5$] Where TorF = 'FALSE'"
结果记录为零,错误如下




        Sql = "Select AfterMoveFile, MoveFile,TorF From[Sheet5$X1:Z30] Where TorF = 'F'"

结果正常

D:\StreetSnap\2019年\2019年09月\2019年09月01日\IMG_20190901_071123.jpg              D:\StreetSnap\2019年\2019年09月\2019年09月01日\IMG_20190901_071123.jpg              F            
D:\StreetSnap\2019年\2019年09月\2019年09月01日\IMG_20190901_071138.jpg              D:\StreetSnap\2019年\2019年09月\2019年09月01日\IMG_20190901_071138.jpg              F            
D:\StreetSnap\2019年\2019年09月\2019年09月05日\IMG_20190905_222134.jpg              D:\StreetSnap\2019年\2019年09月\2019年09月05日\IMG_20190905_222134.jpg              F            

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
   
10. 
    
11. 
    
12. Sub SqlTrueFalse()
    
13.     'Dim Cn As ADODB.Connection
    
14.     Dim Rst As ADODB.Recordset
    
15.     Dim Sql As String
    
16.         Sql = "Select AfterMoveFile, MoveFile,TorF From[Sheet5$] Where TorF = False"
    
17.         Sql = "Select AfterMoveFile, MoveFile,TorF From[Sheet5$] Where TorF = TRUE "
    
18.         Sql = "Select AfterMoveFile, MoveFile ,TorF From[Sheet5$X11:X30] Where TorF = 'True'"
    
19.         
    
20.         Sql = "Select TorF From[Sheet5$] Where TorF = 'FALSE'"
    
21.         Sql = "Select AfterMoveFile, MoveFile,TorF From[Sheet5$X11:Z50] "
    
22.         Sql = "Select AfterMoveFile, MoveFile,TorF From[Sheet5$X1:Z30] Where TorF = 'F'"
    
23.         Set Rst = SqlRetuRs(Sql)
    
24.         Debug.Print Rst.RecordCount
    
25.         
    
26.         With Rst
    
27.             .MoveFirst
    
28.             For ii = 0 To .RecordCount - 1
    
29.                  For jj = 0 To .Fields.Count - 1
    
30.                      Debug.Print .Fields(jj),
    
31.                  Next jj
    
32.                  .MoveNext
    
33.                  Debug.Print
    
34.             Next ii
    
35.         End With
    
36.         
    
37.    
    
38. End Sub
    

复制代码

笑着...两年过去

='FALSE'
或者
='TRUE'

WANT-T

得 先解决数据类型 问题

ning84

笑着...两年过去 发表于 2024-5-5 10:02
='FALSE'
或者
='TRUE'

Sql = "Select TorF From[Sheet5$] Where TorF = 'FALSE'"
结果Recortset为0




Sql = "Select AfterMoveFile, MoveFile,TorF From[Sheet5$X1:Z30] Where TorF = 'F'"



Recordset的结果为3

笑着...两年过去

你这两个图片的结果最后不都是 Sql = "Select TorF From[Sheet5$] Where TorF = 'FALSE'"
为啥一个为0一个为3 ？？？

上个附件吧

leeson7502

Access数据库里的TRUE是-1,FALSE是0

ning84

leeson7502 发表于 2024-5-5 15:33
Access数据库里的TRUE是-1,FALSE是0

谢谢,回复解答.



0和-1条是通过.
Sql = "Select * From[Sheet1$] Where DD = -1"

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.         
   
8.         Rs.Open Str, Cn, adOpenKeyset, adLockOptimistic
   
9.        Set SqlRetuRs = Rs
   
10. End Function
    
11. 
    
12. 
    
13. Private Sub SqlTrueFalse()
    
14.     'Dim Cn As ADODB.Connection
    
15.     Dim Rst As ADODB.Recordset
    
16.     Dim Sql As String
    
17. 
    
18.          Sql = "Select * From[Sheet1$] Where A4 = 0"
    
19.          Sql = "Select * From[Sheet1$] Where A4 = 'FALSE'"
    
20.          Sql = "Select * From[Sheet1$]" ' Where A5 = 'F'"
    
21.          Sql = "Select * From[Sheet1$] Where EE = 'T'"
    
22.          Sql = "Select * From[Sheet1$] Where DD = 'FALSE'"
    
23.          Sql = "Select * From[Sheet1$] Where DD = -1"
    
24.         Set Rst = SqlRetuRs(Sql)
    
25.         Debug.Print Rst.RecordCount
    
26.         Stop
    
27.    
    
28.         With Rst
    
29.             .MoveFirst
    
30.             For ii = 0 To .RecordCount - 1
    
31.                  For jj = 0 To .Fields.Count - 1
    
32.                      Debug.Print .Fields(jj),
    
33.                  Next jj
    
34.                  .MoveNext
    
35.                  Debug.Print
    
36.             Next ii
    
37.         End With
    
38.         
    
39.    
    
40. End Sub
    

复制代码