Jet 引擎（访问）：将值列表传递给存储过程

Question

我目前正在编写一个基于 VBA 的 Excel 加载项，该加载项很大程度上基于 Jet 数据库后端（我使用的是 Office 2003 套件——无论如何，问题与更新版本的 Office 相同）。

在我的应用程序初始化期间，我创建了在文本文件中定义的存储过程。我的应用会在需要时调用这些过程。

让我举一个简单的例子来描述我的问题：假设我的应用程序允许最终用户选择他们想要详细信息的订单的标识符。这是表定义：

表 tblOrders：OrderID LONG、OrderDate DATE、（其他字段）

最终用户可以选择一个或多个 OrderID，显示在一个表单中 - 她/他只需勾选她/他想要详细信息（OrderDate 等）的相关 OrderID 的复选框。

因为我事先不知道他/她会选择多少个 OrderID，所以我可以根据表单上的选择，通过级联 WHERE 子句，在 VBA 代码中动态创建 SQL 查询：

SELECT * FROM tblOrders WHERE OrderID = 1 OR OrderID = 2 OR OrderID = 3

或者，更简单的是，使用 IN 关键字：

SELECT * FROM tblOrders WHERE OrderID IN (1,2,3)

现在，如果我将这个简单的查询转换为存储过程，以便动态传递我想要显示的 OrderID 列表，我应该怎么做？我已经尝试过：

CREATE PROCEDURE spTest (@OrderList varchar) AS
  SELECT * FROM tblOrders WHERE OrderID IN (@OrderList)

但这不起作用（我期待），因为@OrderList 被解释为字符串（例如“1,2,3”）而不是长值列表。 （我改编自这里找到的代码：Passing a list/array to SQL Server stored procedure）

我想尽可能避免通过纯 VBA 代码（即动态地将值列表分配给在我的应用程序中硬编码的查询）来处理这个问题。如果这是不可能的，我会理解的。

有什么线索吗？

Answer 1

您可以动态创建查询语句字符串。在 SQL Server 中，您可以拥有一个返回值为 TABLE 的函数，并像调用表一样内联调用该函数。或者在 JET 中，您还可以创建一个 kludge - 一个临时表（或提供临时表功能的持久表），其中包含列表中的值，每行一个，并在该表上连接。因此，查询将是一个两步过程：1) 使用 INLIST 值填充临时表，然后 2) 在临时表上执行查询连接。

       MYTEMPTABLE
       autoincrementing id
       QueryID  [some value to identify the current query, perhaps a GUID]
       myvalue  one of the values in your in-list, string


      select * from foo
      inner join MYTEMPTABLE on foo.column = MYTEMPTABLE.myvalue and MYTEMPTABLE.QueryId = ?

      [cannot recall if JET allows ANDs in INNER JOIN as SQL Server does -- 
      if not, adjust syntax accordingly]

而不是

      select * from foo where foo.column IN (... )       

通过这种方式，您可以让同一个表同时处理多个查询，因为每个查询都有一个唯一标识符。完成后，您可以删除列表中的行：

      DELETE FROM MYTEMPTABLE where QueryID = ?

附：有几种方法可以处理联接的数据类型问题。您可以根据需要在 MYTEMPTABLE 中转换字符串值，或者您可以在 MYTEMPTABLE 中有多个不同数据类型的列，插入并加入正确的列：

       MYTEMPTABLE
       id
       queryid
       mytextvalue
       myintvalue
       mymoneyvalue
       etc