Office中国论坛/Access中国论坛
标题: VBA易用化研究院:如何在VBA中编写含有变量的SQL语句而不易出错 [打印本页]
作者: 红尘如烟 时间: 2017-3-10 13:21
标题: VBA易用化研究院:如何在VBA中编写含有变量的SQL语句而不易出错
本帖最后由 红尘如烟 于 2017-3-17 15:41 编辑
在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.单号)
复制代码
好了,这下子邋遢女汉子变成清新小美女了。
这一招偷梁换柱大法,虽然看着代码行数增加了,但却更加清晰易懂,不易出错。
推荐各位即将入门或者刚入门的童鞋使用,以后你再也不用犯引号纠结症了!
本公子底裤都翻出来了,各位吃瓜的客官,你们就不点个赞?
作者: Henry D. Sy 时间: 2017-3-10 13:37
谢谢分享!
作者: sohojsp 时间: 2017-3-10 13:38
虽然没看懂,但是很佩服前辈
作者: tmtony 时间: 2017-3-10 14:00
老司机啊
作者: 左耳fwlb 时间: 2017-3-10 14:31
佩服佩服,果然思路最重要
作者: yyalm 时间: 2017-3-10 15:25
哈哈哈哈 学习了
作者: ui 时间: 2017-3-10 17:00
好文,学习了!
作者: LeeTien 时间: 2017-3-10 17:07
老司机整个多条件综合查询插件呗,益下群里兄弟!
作者: koutx 时间: 2017-3-10 21:11
相当适用,相当实用
作者: roych 时间: 2017-3-11 00:33
作为一个刚可以上高速的新司机,表示这一行好像少了个右括号。[attach]60926[/attach]
作者: 天涯过客1123 时间: 2017-3-11 02:02
果然老司机
作者: yanwei82123300 时间: 2017-3-11 09:31
谢谢分享!
作者: yanwei82123300 时间: 2017-3-11 09:31
roych 老师眼睛真尖
作者: tmtony 时间: 2017-3-11 11:08
你是老老司机
作者: fan0217 时间: 2017-3-11 15:56
提供另外一种方法供参考:
http://www.office-cn.net/thread-122666-1-1.html
作者: 红尘如烟 时间: 2017-3-11 20:28
roych 发表于 2017-3-11 00:33
作为一个刚可以上高速的新司机,表示这一行好像少了个右括号。
新老司机眼神好,老老司机老眼昏花了
作者: 红尘如烟 时间: 2017-3-11 20:29
原来被我排版的时候不小心删掉了
作者: ardu95 时间: 2017-3-13 11:27
好文,学习了!
作者: 老鬼 时间: 2017-3-24 15:53
点赞
作者: youdm 时间: 2021-3-17 13:34
感谢分享,谢谢!
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) |
Powered by Discuz! X3.3 |