如何在VBA代码中构造动态SQL语句

1、在VBA代码中构造SQL语句之所以看上去很复杂，主要是因为在查询对象的设计中使用S兑恶铼融QL语句时，我们只需要遵循SQL的语法规则即可。但在VBA中构造不光要遵循SQL的傥态尬锪语法规则，还必须要遵循VBA的语法规则。于是就会多出来好些如连接符（&）、双引号（"）等符号，很多初学者就是被这些符号搞晕了。下面就简单讲一下如何通过拆分法来理解VBA中动态SQL语句的构造。在查询的时候虽然我们可以将查询条件绑定到窗体控件，如下面的示例：Select * FROM 订单表 Where客户名称 =Forms!客户查询窗体!客户名称输入框但这样只能适用于比较简单的查询，随着条件复杂度的增加，SQL语句的构造难度也会直线上升，更重要的是这样的SQL语句很难理解，就算最终做出来了，一旦过了一段时间需要修改的话，就非常麻烦。于是在VBA中使用变量构造动态的SQL语句就成了一种理想的选择。我们来看一个例子，比如我们要通过在窗体上的三个文本框（txt客户名称、txt开始日期、txt结束日期）内输入相应的条件值，来构造一个查询订单表中指定客户在某个时间段内销售记录的SQL语句，在VBA中的代码如下：strSQL=" Select * FROM 订单表 Where 客户名称='www.gzlij.com" & Me.txt客户名称 & "' AND 销售日期 Between #" & Me.txt开始日期 & "# And #" & Me.txt结束日期 & "#"上面的的语句该如何理解呢？这里通过替换法来进行拆分，我们先假设文本框的值分别是：txt开始日期=2010-5-1txt结束日期=2010-5-31txt客户名称=东南实业根据上面的条件，我们需要得到的SQL语句应该是：Select * FROM 订单表 Where 客户名称="东南实业" AND 销售日期 Between #2010-5-1# And #2010-5-31#这里的由于要在VBA中构造，而双引号（"）是VBA中的字符串界定符，所以我们需要把它改成单引号（'）来符合VBA的语法规则，那么SQL语句就成了：Select * FROM 订单表 Where 客户名称='东南实业' AND 销售日期 Between #2010-5-1# And #2010-5-31#（当然我们也可以根据VBA的语法来用两个双引号，这样VBA编译器就会把这两个连续的双引号识别为一个双引号字符，而不是字符串界定符，不过这样相对来说更加复杂和麻烦一些，还有一些其它原因这里就不细说了。）我们再把里面的条件值换回变量，由于条件需要用变量代替，所以我们这里把上面的SQL语句拆分成如下的多个片段：Select * FROM 订单表 Where 客户名称='东南实业' AND 销售日期 Between #2010-5-1# And #2010-5-31#然后把其中的条件值换成变量，就成了：Select * FROM 订单表 Where 客户名称='Me.txt客户名称' AND 销售日期 Between #Me.txt开始日期# And #Me.txt结束日期#接下来再把其中不是变量的片段两头加上双引号，使其符合VBA中的字符串语法："Select * FROM 订单表 Where 客户名称='"Me.txt客户名称"' AND 销售日期 Between #"Me.txt开始日期"# And #"Me.txt结束日期"#"最后我们再用连接符（&）把这些拆分处理后得到的片段连接组合成一个字符串（注意，使用连接符组合多个字符串或变量时，连接符两边要有空格），就得到了我们需要的VBA中的动态SQL语句的写法："Select * FROM 订单表 Where 客户名称='" & Me.txt客户名称 & "' AND 销售日期 Between #" & Me.txt开始日期 & "# And #" & Me.txt结束日期 & "#"