|
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
- Function SqlRetuRs(Str)
- Dim Cn As ADODB.Connection
- Set Cn = New ADODB.Connection
- Dim Rs As ADODB.Recordset
- Set Rs = New ADODB.Recordset
- Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
- Rs.Open Str, Cn, adOpenKeyset, adLockOptimistic
- Set SqlRetuRs = Rs
- End Function
- Sub SqlTrueFalse()
- 'Dim Cn As ADODB.Connection
- Dim Rst As ADODB.Recordset
- Dim Sql As String
- 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$X11:Z50] "
- Sql = "Select AfterMoveFile, MoveFile,TorF From[Sheet5$X1:Z30] Where TorF = 'F'"
- Set Rst = SqlRetuRs(Sql)
- Debug.Print Rst.RecordCount
-
- With Rst
- .MoveFirst
- For ii = 0 To .RecordCount - 1
- For jj = 0 To .Fields.Count - 1
- Debug.Print .Fields(jj),
- Next jj
- .MoveNext
- Debug.Print
- Next ii
- End With
-
-
- End Sub
复制代码
|
|