SQL：在Access中繼查詢到SQL Server輸入提示

Question

我在訪問鏈接的SQL Server表，我通過用戶輸入使用

WHERE (RIGHT(dbo.qryrptWhereUsed.ITEM, 9)=[INPUT_PROMPT:]) 

工作查詢我想繼續使用Access存儲類似的簡單查詢需要用戶輸入，但希望通過直通查詢直接訪問SQL Server數據庫，從而消除Access中的鏡像表。

我該如何做到這一點？

Answer 1

您可以使用下面的代碼：如果您運行報告

Dim strPrompt  As String 

    strPrompt = InputBox("Enter where used >") 

    With CurrentDb.QueryDefs("qryPass") 
    .SQL = "select * from dbo.qryWhereUsed where ITEM = '" & strPrompt & "'" 
    .Execute 
    End With 

，然後只是去：

Dim strPrompt  As String 

    strPrompt = InputBox("Enter where used >") 

    With CurrentDb.QueryDefs("qryPass") 
    .SQL = "select * from dbo.qryWhereUsed where ITEM = '" & strPrompt & "'" 
    End With 

    DoCmd.OpenReport "myreport", acViewPreview