更改 SQL Server 直通查詢變量

Question

因此，我在使用查詢設計創建的 MS-Access 中有一個 SQL Server 直通查詢。 我只需雙擊它，它就會運行並在數據表視圖中打開。 然后我可以導出它。 查詢如下所示：

DECLARE @acyr AS varchar(4);
 SELECT @acyr = '2018'

SELECT *
FROM Table
WHERE year = @acyr

我還有一個帶有標記為 acyrList 的 listBox 的表單，用戶從 2017、2018、2019 年選擇。我希望 acyrList.Value 在傳遞查詢中傳遞給 @acyr 並返回該年的記錄。

我怎樣才能做到這一點？

Answer 1

您可以在列表框的 Click 事件中重建 SQL，然后將該 SQL 分配給傳遞查詢。 就像是：

Private Sub acyrList_Click()
  Dim strSQL As String
  strSQL = "DECLARE @acyr AS varchar(4); " & _
           "SELECT @acyr = '" & acyrList.value & "'; " & _
           "SELECT * From Table WHERE year = @acyr;"

  'MsgBox strSQL
  CurrentDb.QueryDefs("passthrough_query_name").sql = strSQL
End Sub