VBA変数をアクセスクエリに渡す（Excel VBA）

Question

vbaからクエリを作成しようとしました。私はどのようにVBAの構文内で変数を渡すかを理解しようとしています。どこに私の馬鹿を見せてくれるの？

私はこれを試しましたが、ポップアップする自動化エラーがあります。私はあなたが文法が間違っているときにオートメーションエラーが出てくることを気付いたので、うまくいけばそれは小さいものですか？

すべてのヘルプは非常に注文番号が数字で、引用符を使用していないと仮定すると、

Sub GetDataFromAccess() 
    Dim cmd As New ADODB.Command, rs As ADODB.Recordset 
    Dim recordNum As Integer 

    recordNum = 7 

    cmd.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Ashleysaurus\Desktop" & "\" & "xyzmanu3.accdb" 
    cmd.CommandType = adCmdText 

    cmd.CommandText = "SELECT * FROM Invoice WHERE OrderNumber <" & "'" & recordNum & "'" & "ORDER BY OrderNumber ASC" 

    Set rs = cmd.Execute 
    Sheet1.Range("A2").CopyFromRecordset rs 

    rs.Close 
    cmd.ActiveConnection.Close 

    Debug.Print "Done!" 
End Sub 

Answer 1

を高く評価しています。 、VBAクエリを構築するパラメータ化クエリを考慮し、引用符のいずれかの必要性を回避するために、学習しながら

cmd.CommandText = "SELECT * FROM Invoice WHERE OrderNumber <" & recordNum & " ORDER BY OrderNumber ASC" 

Answer 2

： はまた、あなたは、ORDER BYの前にスペースがあることを確認してください！これは、動的SQLクエリで値を渡す際に、すべての言語で業界のベストプラクティスです。

Sub GetDataFromAccess() 
    Dim cmd As New ADODB.Command, rs As ADODB.Recordset 
    Dim recordNum As Integer 

    recordNum = 7 

    With cmd 
     .ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" _ 
       & "Data Source=C:\Users\Ashleysaurus\Desktop" & "\" & "xyzmanu3.accdb" 
     .CommandType = adCmdText 
     .CommandText = "SELECT * FROM Invoice" _ 
         & " WHERE OrderNumber < ? ORDER BY OrderNumber ASC"  
    End With 

    cmd.Parameters.Append cmd.CreateParameter("recordNumParam", adInteger, adParamInput, 10) 
    cmd.Parameters(0).Value = recordNum 

    Set rs = cmd.Execute 
    Sheet1.Range("A2").CopyFromRecordset rs 

    rs.Close 
    cmd.ActiveConnection.Close 

    Debug.Print "Done!" 

End Sub