Я пытаюсь запросить файл доступа из Excel, используя VBA, и он выдает ошибку в строке rs.Open queryStatement, conn, adOpenStatic, adLockOptimistic. Ошибка «Ошибка времени выполнения -2147217904 (80040e10)»: значение не указано для одного или нескольких обязательных параметров. "
Function queryAccess()
'inputs: filterID, desired output
Dim toSheet As Worksheet
Set toSheet = ThisWorkbook.Sheets("Sheet3")
Dim filterID As String
filterID = "CH0002"
Dim conn As ADODB.Connection
Dim rs As ADODB.recordSet
Dim connStr As String
Dim queryStatement As String
Dim cmd As ADODB.Command
connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\rtpwfil03\etu2\cat\projects\asbestos\STREAMS TO101\Testing\TO101 Testing Data.mdb;Persist Security Info=False;"
'conn.Provider=""Microsoft.Jet.OLEDB.4.0"
Set conn = New ADODB.Connection
Set rs = New ADODB.recordSet
Set cmd = New ADODB.Command
queryStatement = "SELECT Filters.NominalLoading FROM Filters WHERE Filters.FilterID=" & filterID & ";"
conn.Open connStr
Debug.Print connStr
Debug.Print queryStatement
rs.Open queryStatement, conn, adOpenStatic, adLockOptimistic
toSheet.Range(toSheet.Cells(1, 1)).CopyFromRecordset rs
conn.Close
rs.Close
End Function
когда я делаю debug.print на мои connStr и queryStatement, я получаю это соответственно:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\rtpwfil03\etu2\cat\projects\asbestos\STREAMS TO101\Testing\TO101 Testing Data.mdb;Persist Security Info=False;
SELECT Filters.NominalLoading FROM Filters WHERE Filters.FilterID=CH0002;
Я получил строку подключения от http://www.connectionstrings.com/access-2007 «стандартная безопасность»
Есть идеи, как исправить эту ошибку?