数据库教程:使用VBA动态创建SQL查询语句教程演示

在VBA使用ADO可以高效的查询数据，但是写SQL查询语句是个有些令人头痛的事情，其实在ADO中用到的SQL语句的语法并不是很复杂，很多时候是由于即要思考SQL的语法，又要用VBA的字符串连接命令，最终搞得一团糟。

其实，这个创建SQL语句的工作可以交给VBA来完成，当然其前提是——你已经想清楚了要如何构建你的SQL。

1. 定义参数

为了和VBA中数组元素编号一致，称为“参数0”到“参数4”，共5个，分别对应SQL语句的不同部分。代码中给出了“聚合SQL”和“非聚合带排序”两个例子。

2. 使用变量

参数数组也可以用变量，比如需要查询当前年份的记录，参数3初始赋值为"[年]=''"，然后使用下面代码进行替换

  aPara(2) = VBA.Replace(aPara(2), REPLACE_CHAR, Year(Date))

3. SQL语句模板

将SQL模板定义为"SELECT FROM WHERE "，共有5个问号，对应5个参数。

4. 可选SQL关键字

由于GROUP BY和ORDER BY是可选部分，因此如果不需要相关部分的话，请将相应的参数置空，参见“非聚合带排序”。

5. 动态创建SQL字符串

准备工作已经完成，循环替换就可以创建SQL字符串，Replace方法的第5个参数需要指定为1，以实现逐个替换。

  sSQL = VBA.Replace(sSQL, REPLACE_CHAR, aPara(i), 1, 1, vbTextCompare)

6. 完整代码

  Sub CreateSQL()      Dim sSQL, aPara      Const REPLACE_CHAR = ""  '==============================================================  '    aPara = Array("Fields", _  参数0: 字段  '                "Table", _     参数1:  数据表  '                "Where", _     参数2:  条件  '                "Group By", _  参数3： 分组  '                "Order By")    参数4： 排序  '--------------------------------------------------------------  ' 聚合SQL  '    aPara = Array("[班级],[科目],SUM([成绩])", _  '                  "[成绩表$A:K]", _  '                  "[年]='2017'", _  '                  "[班级]", _  '                  "[班级],[科目]")  '--------------------------------------------------------------  ' 非聚合带排序      aPara = Array("[班级],[科目],[姓名],[成绩]", _                    "[成绩表$A:K]", _                    "[年]=''", _                    "", _                    "[班级],[科目]")  '--------------------------------------------------------------  ' 使用变量替换参数      aPara(2) = VBA.Replace(aPara(2), REPLACE_CHAR, Year(Date))  '==============================================================      sSQL = "SELECT  FROM  WHERE   "      For i = 0 To 4          If i > 2 And Len(aPara(i)) > 0 Then              aPara(i) = IIf(i = 3, "GROUP BY ", "ORDER BY ") & aPara(i)          End If          sSQL = VBA.Replace(sSQL, REPLACE_CHAR, aPara(i), 1, 1, vbTextCompare)          'Debug.Print sSQL      Next      Debug.Print sSQL  End Sub    

7. SQL查询字符串

  ' 聚合SQL  SELECT [班级],[科目],SUM([成绩]) FROM [成绩表$A:K] WHERE [年]='2017' GROUP BY [班级] ORDER BY [班级],[科目]    ' 非聚合带排序  SELECT [班级],[科目],[姓名],[成绩] FROM [成绩表$A:K] WHERE [年]='2018'  ORDER BY [班级],[科目]

每次只需要稍加修改参数数组就可以创建出SQL语句，感觉不错吧！大家也可以把这个Sub过程改造成Function函数，更便于在代码中调用。

需要了解更多数据库技术:使用VBA动态创建SQL查询语句教程演示，都可以关注数据库技术分享栏目—计算机技术网(www.ctvol.com)!