Access交流网
  • 设为首页|收藏本站|繁体中文|手机版
  •     
  • Access培训-Access开发平台-Access行业开发

  • 首页
  • 资讯
  • 技巧
  • 源码
  • 行业
  • 资源
  • 活动
  • 关于

技巧

ACCESS数据库

启动/设置/选项/背景

修复/压缩

安全/加密/解密

快捷键

版本升级/其它等

数据表

命名方式/设计规范

表设计

查询

Sql语言基础

选择查询

更新查询

删除查询

追加查询

生成表查询

交叉表查询

SQL特定查询

查询参数

查询综合应用

界面/窗体/控件

标签

文本框

命令按钮

组合框/列表框

选项组/复选框/选项按钮

选项卡

子窗体

窗体本身/综合应用

其它

报表打印

报表设计

高级报表

模块/函数/VBA/API/系统

VBA基础

内置函数

调试/跟踪/Debug

模块/类模块

API/COM/系统相关

字符数字日期

网络通信游戏

加密解密安全

文件处理

经典算法

宏/菜单/工具栏/功能区

宏/脚本

菜单/工具栏

功能区/Ribbon

图表/图形/图像/多媒体

图表

图形/图像

音频

视频/动画

DAO/链接表/ADO/ADP

DAO/链接表/ODBC

ADO/RDO

ADP

ActiveX/第三方控件/插件

Treeview树控件

ListView列表控件

Toolbar工具栏控件

微软其它控件

Dbi-Tech

CodeJock

Grid++Report

FastReport

ComponentOne

加载项/插件/Addin

OFFICE集成/导入导出/交互

Excel导入导出/交互

Word导入导出/交互

PPT交互

Outlook控制/邮件

Text文本文件/INI/CSV

PDF/SWF/XML格式

CAD格式

Sharepoint/其它Office

SqlServer/其它数据库

表

视图

存储过程/触发器

函数

用户/权限/安全

调试/维护

SqlServer其它/综合

发布/打包/文档/帮助

开发版/运行时

打包/发布/部署

开发文档/帮助制作

Access完整行业系统

采购管理系统

销售管理系统

仓库管理系统

人力资源管理HRM

CRM管理系统

MRP/ERP管理系统

BRP/流程优化

其它管理系统

心得/经验/绝招
其它/杂项
Excel技巧

Excel应用与操作

Excel开发编程

Word技巧

Word应用与操作

Word开发编程

Outlook技巧

Outlook应用与操作

Outlook开发编程

热门文章

  • 如何用sql语句添加删除主..
  • Access在查询中使用公..
  • 查询获取数据库对象的名称
  • 根据要求去掉最大与最小的数..
  • 配合窗体使用查询
  • Partition,让你的..

最新文章

  • Access联合查询实例解..
  • Access在查询中使用公..
  • 统计本月最大与上月最大值之..
  • 如何在VBA中编写含有变量..
  • Access以只读方式或新..
  • VBA代码打开或关闭表和查..

联系方式

Access交流网(免费Access交流)

QQ:18449932 

网  址:www.access-cn.com

当前位置:首页 > 技巧 > 查询 > 查询综合应用
查询综合应用

如何在VBA中编写含有变量的SQL语句而不易出错

在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.单号)



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


这一招偷梁换柱大法,虽然看着代码行数增加了,但却更加清晰易懂,不易出错。
推荐各位即将入门或者刚入门的童鞋使用,以后你再也不用犯引号纠结症了!




发布人:红尘如烟  
分享到:
点击次数:  更新时间:2017-05-23 17:25:46  【打印此页】  【关闭】
上一条:自定义时差函数(加入跨天计算功能)  下一条:在打开Ado记录集之前尽量先判断记录集有否打开,如打开则先关闭之



相关文章

  • • Access联合查询实例解析
  • • Access在查询中使用公共函数
  • • 统计本月最大与上月最大值之差
  • • Access以只读方式或新增方式打开数据表或查询
  • • VBA代码打开或关闭表和查询的数据表视图中的合计行(列汇总)
  • • Access 表和查询 数据表视图的合计行计算可使用的聚合函数
  • • Access如何在数据表(表或查询)中显示列汇总(汇总行)

热门文章

  • [2009-08-29] 在Access中利用搜索窗体中的值生成动态查询access数据库
  • [2004-08-18] 一个排名的例子access数据库
  • [2005-07-15] Partition,让你的分组统计更加得心应手access数据库
  • [2017-02-09] Access如何在数据表(表或查询)中显示列汇总(汇总行)access数据库
  • [2009-08-01] Dlookup在查询中满足2个条件的用法示例access数据库
  • [2017-02-09] Access 表和查询 数据表视图的合计行计算可使用的聚合函数access数据库

热门产品

公司动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图

Access交流网 版权所有 1999-2018 粤ICP备10043721号

QQ:18449932

Access应用 Access培训 Access开发 Access平台

access|数据库|access下载|access教程|access视频|access软件

Powered by MetInfo 5.3.12 ©2008-2023  www.metinfo.cn