从多个多选列表框构建 SQL 时遇到困难

Question

我有一个表单，其中大约有 6 个多选列表框。列表框由不同的表填充。我可以将列表框中的选择存储在变量中，然后在 SQL 查询中使用这些变量。该变量存储从 listBox 中选择的项目，如下所示：

If clientList.SelCount > 0 Then

    For i = 0 To clientList.ListCount - 1

      If clientList.Selected(i) Then
           If Len(criteria_cl) = 0 Then
               criteria_cl = Chr(39) & clientList.List(i) & Chr(39)
      Else
         criteria_cl = criteria_cl & "," & Chr(39) & clientList.List(i) & Chr(39)
      End If

 End If
Next

 Else 
 End If

SQL 查询如下，带有更多称为 criteria_xx 的变量，

 strsql = "select * from pmt_hist_dmart_step2 where dbr_portfolio in (" & criteria_pf & ") and DBR_CLIENT in (" & criteria_cl & _
 ") and DBR_ACCT_TYPE in (" & criteria_ac & ")..... ;"

如何处理用户未进行选择的情况。目前，criteria_xx 变量变为空白，并且 IN 子句包含 ('') 并引发错误。

请提供一些关于如何克服这个问题的建议？如果只有两个或三个列表框，我会编写不同的查询，但这是六个多选列表框，我不知道。

提前致谢。

Answer 1

这是一种方法：

strsql = " select *                          " &                        _
         "   from pmt_hist_dmart_step2       " &                        _
         "  where " & iif(len(criteria_pf) = 0,                         _
                          "",                                           _
                          "dbr_portfolio in (" & criteria_pf & ") and " _
                         ) &                                            _
                      iif(len(criteria_cl) = 0,                         _
                          "",                                           _
                          "DBR_CLIENT in (" & criteria_cl & ") and "    _
                         ) &                                            _
                      iif(len(criteria_ac) = 0,                         _
                          "",                                           _
                          "DBR_ACCT_TYPE in (" & criteria_ac & ") and " _
                         ) &                                            _
                      ... &                                             _
                  " 1 = 1;"

这里的想法是，仅当 ... 非空白时才应包含 dbr_portfolio in (...) 形式的每个子句。 iif 是一个带有三个参数的内置函数；如果第一个参数为 true，则返回第二个参数；如果第一个参数为 false，则返回第三个参数。例如，iif(1 = 1, 5, 10) 返回 5，iif(1 = 2, 5, 10) 返回 <代码>10。 （注意，第二个和第三个参数始终都会被求值，即使其中一个随后被忽略。）

由于像 where and 或 and and 这样的东西不是有效的 SQL，我将每个 and 包含在上一个子句的 iif 控制代码中。然后，由于最终的and 不是有效的 SQL，因此我添加了最终的1 = 1 子句，该子句没有实际效果。

（顺便说一句，抱歉，如果我的缩进方案很难看；自从我上次编写 VB6 以来已经有十几年了，所以我真的不记得 VB6 代码通常是如何格式化的。）