錯誤2147217904查詢從Excel中訪問時，沒有給出一個或多個所需參數的值

Question

我在查詢表1從Excel訪問。我正在根據在用戶表單上檢查的三個標準篩選where子句中的列SampleType。

我還需要根據where子句中的選擇返回列SampleID中不同記錄的數目。

我的代碼可能有一些小問題，我無法弄清楚。請幫忙。謝謝

Dim cnn As ADODB.Connection 'dim the ADO collection class 
Dim rs As ADODB.Recordset 'dim the ADO recordset class 
Dim dbPath As String 
Dim SQLwhere As String 
Dim StrSql As String 
Dim i As Integer 
Dim tar6 As String 
Dim tar7 As String 
Dim tar8 As String 
tar6 = "col" 
tar7 = "lun" 
tar8 = "mel" 

'add error handling 
On Error GoTo errHandler: 
'Disable screen flickering. 
Application.ScreenUpdating = False 

dbPath = "C:\Users\Temp1\Documents\Annie\MDL_IonTorrent.accdb" 
'set the search variable 

Set cnn = New ADODB.Connection ' Initialise the collection class variable 

cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath 

'Create the SQL statement to retrieve the data from table. 

SQLwhere = "WHERE " 

If CheckBox2 = True Then 
SQLwhere = SQLwhere & "[Table1].[SampleType] LIKE '" & tar6 & "%" & "' AND " 
'count a total district records in column SampleID. 
End If 

If CheckBox3 = True Then 
SQLwhere = SQLwhere & "[Table1].[SampleType] LIKE '" & tar7 & "%" & "' AND " 
End If 

If CheckBox4 = True Then 
SQLwhere = SQLwhere & "[Table1].[SampleType] LIKE '" & tar8 & "%" & "' AND " 
End If 

StrSql = "SELECT COUNT(*) AS UniqueRecordsCount FROM (SELECT DISTINCT [SampleID] FROM [Table1]) " 


'Remove the last AND applicable 

If SQLwhere = "WHERE " Then 
    SQLwhere = "" 
Else 
    SQLwhere = Left(SQLwhere, Len(SQLwhere) - 5) 
End If 

StrSql = StrSql & SQLwhere 


'Create the ADODB recordset object. 
Set rs = New ADODB.Recordset 'assign memory to the recordset 

'ConnectionString Open '--5 aguments-- 
'Source, ActiveConnection, CursorType, LockType, Options 
rs.Open StrSql, cnn 


GetDistinctValue = rs("UniqueRecordsCount") 
MsgBox (GetDistinctValue) 

UserForm1.Controls("txtCrt6").Value = rs!UniqueRecordsCount 

'Check if the recordset is empty. 
If rs.EOF And rs.BOF Then 
'Close the recordet and the connection. 
rs.Close 
cnn.Close 
'clear memory 
Set rs = Nothing 
Set cnn = Nothing 
'Enable the screen. 
Application.ScreenUpdating = True 
'In case of an empty recordset display an error. 
MsgBox "There are no records in the recordset!", vbCritical, "No Records" 

Exit Sub 
End If 

'Close the recordset and the connection. 
rs.Close 
cnn.Close 
'clear memory 
Set rs = Nothing 
Set cnn = Nothing 

'Enable the screen. 
Application.ScreenUpdating = True 


'error handler 
On Error GoTo 0 
Exit Sub 
errHandler: 
'clear memory 
Set rs = Nothing 
Set cnn = Nothing 
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure FindSampleId" 

Answer 1

括號是在錯誤的地方。舉例來說，如果只是CheckBox2是真的，那麼你的SQL語句會落得像：

"SELECT COUNT(*) AS UniqueRecordsCount FROM (SELECT DISTINCT [SampleID] FROM [Table1]) WHERE [Table1].[SampleType] LIKE '" & tar6 & "%" & "'" 

後FROM [Table1])需求括號移動到SQL的盡頭，否則要檢查的[SampleType]的值爲一個表，其僅具有一個列 - [SampleID]

所以：

StrSql = "SELECT COUNT(*) AS UniqueRecordsCount FROM (SELECT DISTINCT [SampleID] FROM [Table1] " 

再後來：

If SQLwhere = "WHERE " Then 
    SQLwhere = ")" 
Else 
    SQLwhere = Left(SQLwhere, Len(SQLwhere) - 5) & ")" 
End If 

Answer 2

我遇到了同樣的錯誤，經過幾個小時才發現我從Word文檔中複製了一條SQL語句，並且Word用特殊格式的傾斜引號替換了標準引號（'）。我只是在將SQL語句複製到記事本並重試之後才發現它們之間的差異。