SQL 的无效参数查询是否从 Excel - 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() function 您可以在 WHERE 子句中放置一个相等条件。 这是处理数据中 null 参数或 null 值的常见 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