VBA 변수를 Access Query (Excel VBA)로 전달

Question

vba에서 쿼리를 생성하는 중 새로운 기능이 추가되었습니다. VBA 구문 내부에 변수를 전달하는 방법을 찾으려고합니다. 내가 어리 석고있는 곳을 보여주는 마음?

아래에서 시도했지만 자동화 오류가 나타납니다. 필자는 구문 오류가 생겼을 때 자동화 오류가 발생한다는 사실을 알아 차 렸습니다.

은 어떤 도움이 크게 OrderNumber를 가정하면 숫자는 따옴표를 사용하지 마십시오입니다

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

! 동적 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