Call query with parameters from excel

[Vbanoob98]

Hi everyone, I have this code that calls a query from my access database. The issue is that I need to call a query with 2 parameters, how can I add this to the code?

Thanks in advance

Sub test111()

Const cstrPath As String = "C:\Data.mdb"
Const cstrQuery As String = "View_qry"
Dim dbe As Object 'DAO.DBEngine '
Dim rs As Object 'DAO.Recordset '
Dim ws As Worksheet

Application.DisplayAlerts = True 'leave alerts on during testing '
Set dbe = CreateObject("DAO.DBEngine.120")
Set rs = dbe.OpenDatabase(cstrPath).OpenRecordset(cstrQuery)

For i = 0 To rs.Fields.Count - 1
        Sheets("Sheet1").Cells(1, i + 1) = rs.Fields(i).Name
    Next i
If Not rs.EOF Then
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ws.Range("A2").CopyFromRecordset rs
End If

rs.Close
Application.DisplayAlerts = True

End Sub

 

[xenou]

Hi, there's no reason why anything in this code would limit your query to 35k records. Have you confirmed that the result is correct given your parameters?

 

[Vbanoob98]

Indeed. I fixed it, it was a matter of learning the syntax. Thanks a lot, you guys do God's work