VBA易用化研究院：如何在VBA中编写含有变量的SQL语句而不易出错

红尘如烟

在VBA中编写含有变量的SQL语句的代码，历来是Access初学者甚至已入门者头痛的问题。

其中各种引号、连接号的嵌套，看上去纷繁复杂，眼花缭乱，极易把人搞晕菜，别说初学者了，纵然是多年老司机，也时常翻车。

因为在VBA中编写的一句含有多个变量的SQL语句，始终报错不能正常执行，折腾N小时乃至N天，仍然百撕不得骑姐的大有人在。

我们来看一个真实案例（因情节需要有所改编）：W童鞋因为下面这个SQL语句的编写，折腾了半天时间（实打实的半天！）。

头发抓掉了几十根，什么学生卡、老年卡、公交卡、处男卡、白领卡……他自己能找到的卡都刷了个遍，却还是上不了Access发的车！

于是找到我求助。

W童鞋写的代码如下：

1. strSQL = "INSERT INTO 凭证记录表 （状态,日期,制单人,制单时间,关联单号)" _
   
2.        & "VALUES ('未审核'," & Me.日期 & "'," & Forms!SysFrmMain!Nickname & "'," _
   
3.        & Now() & "'," & Me.单号 & "')"

复制代码

作为一名常年发车，具有丰富经验的老司机，本公子瞟了两眼就看出来了下面几点问题：

1. 引号使用有问题，单引号不成对。
2. 日期必须要格式化，并且两端加#号。
3. Now()函数在SQL中同样可以用，不需要放到VBA中解析。

于是本公子随手帮他改写成了下面这样：

1. strSQL = "INSERT INTO 凭证记录表 (状态,日期,制单人,制单时间,关联单号)" _
   
2.        & "VALUES ('未审核', " & Format(Me.日期,"\#yyyy-mm-dd\#") & ",'" _
   
3.        & Forms!SysFrmMain!Nickname & "',Now(),'" & Me.单号 & "')"

复制代码

但是，W童鞋用了我发给他的代码试了之后告诉我：仍然不行。这就很尴尬了……

又仔细看了一下，发现第1个左圆括号用的有问题，应该是半角“(”，结果他写成全角的“（”了。

抱歉，这俩孪生兄弟长得太像，我这老司机老眼昏花也难以分辨。改正括号问题再试，一切OK。（中间仍然发生了一些其它问题，但那都不是我们这里要讲的故事了）

最后，做为送一赠一的赠品，我向W童鞋推荐了本公子多年苦修领悟的绝学：偷梁换柱。用 Replace 函数替换的方式，代替引号、连接号的作用。

改写后的代码如下：

1. strSQL = " INSERT INTO 凭证记录表 (状态,日期,制单人,制单时间,关联单号)" _
   
2.        & " VALUES ('未审核', #@日期#,'@制单人',Now(),'@关联单号')"
   
3. 
   
4. strSQL = Repalce(strSQL, "@日期", Format(Me.日期, "yyyy-mm-dd"))
   
5. strSQL = Repalce(strSQL, "@制单人", Forms!SysFrmMain!Nickname)
   
6. strSQL = Repalce(strSQL, "@关联单号", Me.单号)

复制代码

好了，这下子邋遢女汉子变成清新小美女了。

这一招偷梁换柱大法，虽然看着代码行数增加了，但却更加清晰易懂，不易出错。

推荐各位即将入门或者刚入门的童鞋使用，以后你再也不用犯引号纠结症了！

本公子底裤都翻出来了，各位吃瓜的客官，你们就不点个赞？

Henry D. Sy

谢谢分享！

sohojsp

虽然没看懂,但是很佩服前辈

tmtony

老司机啊

左耳fwlb

佩服佩服，果然思路最重要

yyalm

哈哈哈哈 学习了

ui

好文，学习了！

LeeTien

老司机整个多条件综合查询插件呗，益下群里兄弟！

koutx

相当适用，相当实用

roych

作为一个刚可以上高速的新司机，表示这一行好像少了个右括号。