VBA - 列表框和 SQL IN 语句

Question

我有一个列表框，其中填充了以下数据。我只希望能够按名称列进行选择（视觉上）。

id | name
1  | value1
2  | value2

我需要一些条件发生并将它们应用到我的 SQL 中的 where 语句中。

1. 如果未选择任何内容，则将 where 语句全部省略
2. 如果包含 1 个值，请将 where id = 1

3. 如果两个值都被选中，则创建如下 IN 语句

   IN ('1','2')

编辑 --//

这是在初始化时填充列表框的代码

Sub UserForm_Initialize()

    'SQL query that will populate the Mode Box
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset

    cnn.Open "Provider=SQLOLEDB;Data Source=yadayda;" & _
             "Initial Catalog=db;" & _
             "Integrated Security=SSPI;"

    Set rst = cnn.Execute("SELECT [ID] AS [ID],[Name] AS [Name] FROM [Table]")
    rst.MoveFirst
    i = 0

    With Me.form_mode

        .Clear
        Do
            .AddItem
            .List(i, 0) = rst![Mode]
            .List(i, 1) = rst![ID]
            i = i + 1
            rst.MoveNext
        Loop Until rst.EOF

    End With

    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing

End Sub

编辑 -// 使用以下方法让它工作

`将 strFilter 调暗为字符串 将 i 调暗为整数

    For i = 0 To Main_Window.form_mode.ListCount - 1
        If Main_Window.form_mode.Selected(i) Then
            If strFilter <> vbNullString Then strFilter = strFilter & ", "
            strFilter = strFilter & "'"
            strFilter = strFilter & Main_Window.form_mode.List(i, 1)
            strFilter = strFilter & "'"
        End If
    Next i`

感谢此线程中的@ralph - VBA - SQL with optional joins

Answer 1

在您的 UserForm_Initialize 函数中设置 Me.form_mode.MultiSelect = fmMultiSelectMulti 或 fmMultiSelectExtended 以允许多选（或通过 ListBox 属性设置）。

然后在按钮单击事件中使用以下代码获取选定的值：

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim arr() As String
    For i = 0 To form_mode.ListCount - 1
        If form_mode.Selected(i) Then
            ReDim Preserve arr(i)
            arr(i) = form_mode.List(i, 1)
        End If
    Next i
    MsgBox "WHERE [ID] IN ('" & Join(arr, "','") & "')"
End Sub