vb 传递给SQL参数空值处理

Question

有个“学历”的COMBO控件，当COMBO取值时，传递值给SQL的where 子句，但当COMBO取空值时，默认取出所有学历的人，这个SQL语句应该怎样实现

Answer 1

select * from tabel where '1'='1' & case when cmb='' then "and 学历=''" else "and 学历="cmb.text end大致是这样的。

Answer 2

dim StrSql   as string
dim strWhere as string'判断combo控件内容
if trim(combo.text)="" then
    strWhere=""
else
    strWhere=" AND 学历='"& trim(combo.text) &"'"
end if'构造SQL查询语句
StrSql=" SELECT * FROM 表名 WHERE 1=1 " & strWhere