如何使用Excel ListBox进行SQL查询参数

Question

我必须在数据库上执行SQL查询并将数据分析到Excel文件中。

重点是从列表框中将多个参数放入IN构造中。 我设法在Excel中创建列表框但我遇到问题从中提取数据并将其放入查询。

您知道如何参考指南吗？

回顾：

1. 我有一个填充了数据的列表框
2. 我需要将列表框的多个条目作为SQL查询的参数（IN构造）
3. 我不介意使用VBS或类似的

Answer 1

这是你在找什么？

Dim strSQL As String
Dim lngRow As Long

strSQL = ""
For lngRow = 0 To frmUsers.lstUsers.ListCount - 1
    strSQL = strSQL & frmUsers.lstUsers.List(lngRow, 0) & ", "
Next lngRow
strSQL = "where SearchForUserCriteria in (" & Mid(strSQL, 1, Len(strSQL) - 2) & ") "