Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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

时 间:2017-03-10 12:08:34
作 者:红尘如烟   ID:10768  城市:上海
摘 要:在VBA中编写含有变量的SQL语句的代码,历来是Access初学者甚至已入门者头痛的问题...
正 文:

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


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


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

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


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

于是找到我求助。

W童鞋写的代码如下:


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


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

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

于是本公子随手帮他改写成了下面这样:
strSQL = "Insert INTO 凭证记录表 (状态,日期,制单人,制单时间,关联单号)" _
       & "VALUES ('未审核', " & Format(Me.日期,"\#yyyy-mm-dd\#") & ",'" _
       & Forms!SysFrmMain!Nickname & "',Now(),'" & Me.单号 & "')"

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

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


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


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


改写后的代码如下:
strSQL = " Insert INTO 凭证记录表 (状态,日期,制单人,制单时间,关联单号)" _
       & " VALUES ('未审核', #@日期#,'@制单人',Now(),'@关联单号')"

strSQL = Repalce(strSQL, "@日期", Format(Me.日期, "yyyy-mm-dd"))
strSQL = Repalce(strSQL, "@制单人", Forms!SysFrmMain!Nickname)
strSQL = Repalce(strSQL, "@关联单号", Me.单号)

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


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


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


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



Access软件网官方交流QQ群 (群号:115120150)       access源码网店

最新评论 查看更多评论(24)

2018/6/14 0:57:51常杰
666

2017/12/12 21:21:29ozh2k003
的确是我们这些新手的福音,谢谢分享

2017/6/22 18:57:10心随风动
确实好办法

2017/5/25 11:47:15ntrt
下次试试

2017/5/12 13:34:09李志能
99个赞

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

最新帖子

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助