VBA中利用SQL模糊查詢ACCESS)

VBA中利用SQL模糊查詢ACCESS(轉)

在利用ADO+SQL查詢ACCESS資料庫，VB中是這樣的：

？ 任意單個字元 如LIKE ‘?南’ ,LIKE ‘?南?’
*   零個或多個字元 如:LIKE ‘*南’ , LIKE '*南*'
而在VBA中則不能這樣用,它的用法竟然和SQL查詢SQL Server資料庫的文法一致：
_ 任意單個字元 如LIKE ‘_南’ ,LIKE ‘_南_’
% 零個或多個字元 如:LIKE '%南’ , LIKE '%南%'

 

 
例:

Sub 矩形13_單擊()

 Dim CNN As New ADODB.Connection
 Dim RST As New ADODB.Recordset
Dim Stpath, strSQL As String

Stpath = ThisWorkbook.Path & Application.PathSeparator & "學生檔案.mdb"
CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath '& ";Jet OLEDB:Database Password=" &

"123"
StrSQL = "Select * from 檔案 WHERE 籍貫 LIKE '%南%"       正確
strSQL = "Select * from 檔案 WHERE 籍貫 LIKE '*南*'"        錯誤
RST.Open strSQL, CNN Sheet1.Range("A2:G100").ClearContents
Sheet1.Cells(2, 1).CopyFromRecordset RST

 RST.Close
 Set RST = Nothing
Set CNN = Nothing

 End Sub