【Access文章】如何在VBA代码中构造动态SQL语句

时　间:2014-07-13 08:19:15
作　者:缪炜   ID：24010  城市：江阴
摘　要:在VBA中构造动态SQL语句时，一大堆的连接号、引号等符号往往会让初学者犯晕。本文对此问题做了讲解（由红尘如烟大师整理），希望能够对初学的朋友理解和掌握如何在VBA代码中构造动态SQL语句有所帮助。
正　文:

在VBA代码中构造SQL语句之所以看上去很复杂，主要是因为在查询对象的设计中使用SQL语句时，我们只需要遵循SQL的语法规则即可。但在VBA中构造不光要遵循SQL的语法规则，还必须要遵循VBA的语法规则。于是就会多出来好些如连接符（&）、双引号（"）等符号，很多初学者就是被这些符号搞晕了。下面就简单讲一下如何通过拆分法来理解VBA中动态SQL语句的构造。

在查询的时候虽然我们可以将查询条件绑定到窗体控件，如下面的示例：

Select * FROM 订单表 Where客户名称 =Forms!客户查询窗体!客户名称输入框

但这样只能适用于比较简单的查询，随着条件复杂度的增加，SQL语句的构造难度也会直线上升，更重要的是这样的SQL语句很难理解，就算最终做出来了，一旦过了一段时间需要修改的话，就非常麻烦。

于是在VBA中使用变量构造动态的SQL语句就成了一种理想的选择。我们来看一个例子，比如我们要通过在窗体上的三个文本框（txt客户名称、txt开始日期、txt结束日期）内输入相应的条件值，来构造一个查询订单表中指定客户在某个时间段内销售记录的SQL语句，在VBA中的代码如下：
       strSQL=" Select * FROM 订单表 Where 客户名称='" & Me.txt客户名称 & "' AND 销售日期 Between #" & Me.txt开始日期 & "# And #" & Me.txt结束日期 & "#"

上面的的语句该如何理解呢？这里通过替换法来进行拆分，我们先假设文本框的值分别是：

txt开始日期=2010-5-1

txt结束日期=2010-5-31

txt客户名称=东南实业

根据上面的条件，我们需要得到的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结束日期 & "#"

附：两个和题目相关的小技巧

技巧一：在实际应用中，很多动态SQL语句比较长，为了更加易读，我们一般会对通过换行符在多行代码中显示，但经常会遇到少写了一行后面的空格而导致出错，而且排错也不是很容易，针对 这个问题，我们可以把空格加在每一行的最前面，这样这个问题就能基本避免了。例如下面的示例代码：

strSQL=" Select *" & _

   " FROM 订单表" & _

   " Where 客户名称='" & Me.txt客户名称 & "'" & _

   " AND 销售日期 Between #" & Me.txt开始日期 & "# And #" & Me.txt结束日期 & "#"

技巧二：通过查询的设计视图创建查询时，所自动生成的SQL语句中，会在每个字段名称前面加上表名，而我们在VBA中构建SQL语句时为了让其更加简洁易懂，完全可以把字段名前面的表名去掉。例如：

Select 客户表.客户名称,客户表.客户类别,客户表.电话,客户表.地址 FROM 客户表

我们就可以写成：

Select 客户名称,客户类别,电话,地址 FROM 客户表

而对于多表查询时，一般又必须将表明写出来才会易读，这时我们可以把表名取一个简洁的别名，例如：

Select 客户表.客户名称,客户表.客户类别,客户表.地址,客户表.电话,订单表.订单号,订单表.销售日期,订单表.销售金额 FROM 客户表 RIGHT JOIN 订单表 ON 客户表.客户名称=订单表.客户名称

我们可以写成：

Select C.客户名称,C.客户类别,C.地址,C.电话,O.订单号,O.销售日期,O.销售金额 FROM 客户表 AS C INNER JOIN 订单表 AS O ON C.客户名称=O.客户名称

（示例中的表名其实本身就比较简洁，而在我们实际的应用中，有些表名可能要长的多。）