更改SQL Server通过查询变量

Question

所以我有一个SQL Server通过查询设计创建的MS-Access中的查询。我只是双击它，然后在数据表视图中运行并打开。然后我可以导出它。查询看起来像：

DECLARE @acyr AS varchar(4);
 SELECT @acyr = '2018'
SELECT *
FROM Table
WHERE year = @acyr

我也有一个名单上标有acyrist的表格。

我该如何实现？

Answer 1

您可以在列表框的单击事件中重建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