如果从 Excel 中选择空单元格，则取消 SQL 查询的参数 - VBA

Question

我想知道如果单元格值留空，是否有办法使部分字符串查询无效，而不是使用嵌套的 If 语句。

细胞结构如下：

来自这些参数的单元格值将被传递到查询数据库的 vba 代码中。 理想情况下，我不想为每种选择类型创建单独的查询——我已经让它从位置动态查询。我想扩展查询以包括开始、结束、值 >、值

SELECT * 
from database 
WHERE location = 'cell_loc' 
AND Value >= 'cell_value' 
AND Value <= 'cell_value' 
AND Start >= 'cell_date' 
AND End <= 'cell_date'

现在假设 Start 留空，这意味着我想从数据库中的第一个数据点进行查询：

我可以编写一个嵌套的 if 来处理这个问题，但想知道是否有一种方法可以取消查询参数，以便我可以将单个查询提供给数据库，并根据单元格数据更改不同的参数？

类似的东西：

SELECT * 
from database 
WHERE location = 'cell_loc' 
AND Value >= 'cell_value' 
AND Value <= 'cell_value' 
AND Start >= 'cell_date' --> this would be voided out
AND End <= 'cell_date'

Answer 1

使用 coalesce() 函数，您可以在 WHERE 子句中放置一个相等条件。这是处理数据中的空参数或空值的常用 SQL 技巧。

SELECT * 
from database 
WHERE location = 'cell_loc' 
AND Value >= 'cell_value' 
AND Value <= 'cell_value' 
AND (Start >= 'cell_date' OR Start = coalesce('cell date', Start))
AND End <= 'cell_date'

Answer 2

这是一个非常基本的例子：

Sub Tester()
    Dim sWhere As String, sql As String
    
    sql = "Select * from myTable "
    
    sWhere = ""
    BuildWhere sWhere, "id = <v>", Range("A5")
    BuildWhere sWhere, "pName = '<v>'", Range("B5")
    BuildWhere sWhere, "pDate > '<v>'", Range("C5")
    
    If Len(sWhere) > 0 Then
        sql = sql & " where " & sWhere
        Debug.Print sql
        'run query
    Else
        'don't run if no criteria ?
    End If

End Sub

'add a where clause only if `c` has a value
Sub BuildWhere(ByRef sWhere As String, test As String, c As Range)
    Dim v
    v = Trim(c.Value)
    If Len(v) > 0 Then
        If Len(sWhere) > 0 Then sWhere = sWhere & vbLf & " and "
        sWhere = sWhere & Replace(test, "<v>", v)
    End If
End Sub