在VBA中编写含有变量的SQL语句的代码,历来是Access初学者甚至已入门者头痛的问题。 其中各种引号、连接号的嵌套,看上去纷繁复杂,眼花缭乱,极易把人搞晕菜,别说初学者了,纵然是多年老司机,也时常翻车。 因为在VBA中编写的一句含有多个变量的SQL语句,始终报错不能正常执行,折腾N小时乃至N天,仍然百撕不得骑姐的大有人在。 我们来看一个真实案例(因情节需要有所改编):W童鞋因为下面这个SQL语句的编写,折腾了半天时间(实打实的半天!)。 头发抓掉了几十根,什么学生卡、老年卡、公交卡、处男卡、白领卡……他自己能找到的卡都刷了个遍,却还是上不了Access发的车! 于是找到我求助。 W童鞋写的代码如下: strSQL = 'Insert INTO 凭证记录表 (状态,日期,制单人,制单时间,关联单号)' _ & 'VALUE ('未审核',' & Me.日期 & '',' & Forms!SysFrmMain!Nickname & '',' _ & Now() & '',' & Me.单号 & '')' 作为一名常年发车,具有丰富经验的老司机,本公子瞟了两眼就看出来了下面几点问题: 1. 引号使用有问题,单引号不成对。 2. 日期必须要格式化,并且两端加#号。 3. Now()函数在SQL中同样可以用,不需要放到VBA中解析。 于是本公子随手帮他改写成了下面这样: strSQL = 'Insert INTO 凭证记录表 (状态,日期,制单人,制单时间,关联单号)' _ & 'VALUE ('未审核', ' & Format(Me.日期,'\#yyyy-mm-dd\#') & ','' _ & Forms!SysFrmMain!Nickname & '',Now(),'' & Me.单号 & '')' 但是,W童鞋用了我发给他的代码试了之后告诉我:仍然不行。这就很尴尬了…… 又仔细看了一下,发现第1个左圆括号用的有问题,应该是半角“(”,结果他写成全角的“(”了。 抱歉,这俩孪生兄弟长得太像,我这老司机老眼昏花也难以分辨。改正括号问题再试,一切OK。(中间仍然发生了一些其它问题,但那都不是我们这里要讲的故事了) 最后,做为送一赠一的赠品,我向W童鞋推荐了本公子多年苦修领悟的绝学:偷梁换柱。用 Replace 函数替换的方式,代替引号、连接号的作用。 改写后的代码如下: strSQL = ' Insert INTO 凭证记录表 (状态,日期,制单人,制单时间,关联单号)' _ & ' VALUE ('未审核', #日期#,'@制单人',Now(),'@关联单号')' strSQL = Repalce(strSQL, '@日期', Format(Me.日期, 'yyyy-mm-dd') strSQL = Repalce(strSQL, '@制单人', Forms!SysFrmMain!Nickname) strSQL = Repalce(strSQL, '@关联单号', Me.单号) 好了,这下子邋遢女汉子变成清新小美女了。 这一招偷梁换柱大法,虽然看着代码行数增加了,但却更加清晰易懂,不易出错。 推荐各位即将入门或者刚入门的童鞋使用,以后你再也不用犯引号纠结症了! |
|