sql - 在 SQL 语句中使用 VBA 数组

Question

我正在尝试编写一些代码，使用 SQL 从多个表中删除行。

用户会在文本框中键入数字，这些数字由 SQL DELETE 语句的 WHERE 子句中使用的逗号分隔。

我已经设法将字符串拆分成一个变体数组，现在我想将它插入到我的 SQL 语句中。

如何将变量插入到 SQL 语句中并让它遍历数组的每个元素？

编辑:更多的挖掘让我了解了 For Each Next 语句。这可能就是我要找的。

Answer 1

我建议您在 VBA 中构建查询，然后您的数字列表可以是 IN 语句:

 sSQL = "DELETE FROM table WHERE ID In (" & MyList & ")"

其中 MyList = "1,2,3,4"或诸如此类。

如您所见，您不需要数组，文本框比组合框更合适。如果您希望允许您的用户通过名称来选择，那么列表框很有用。您可以循环 Access 列表框中的选定项，并根据要在 Delete 语句中使用的 ID 构建一个字符串。 ( MS Access 2007 - Cycling through values in a list box to grab id's for a SQL statement )

然后您可以对数据库实例执行 sql。例如:

 Dim db As Database

 Set db = CurrentDB
 db.Execute sSQL, dbFailOnError

 MsgBox "You deleted " & db.RecordsAffected & " records."