ExecuteSQL函数
'传递参数SQL传递查询语句,MsgString传递查询信息。自身以一个数据集对象的形式返回
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
Dim Cnn As ADODB.Connection '定义连接对象
Dim Rst As ADODB.Recordset
Dim sTokens() As String '定义字符串数组
On Error GoTo ExecuteSQL_Error '异常处理
sTokens = Split(SQL) '用Split函数产生一个包含各个子串的数组
Set Cnn = New ADODB.Connection '创建连接对象
Cnn.Open ConnectString '打开连接对象
If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then '判断字符串中是否含有指定内容
Cnn.Execute SQL '执行查询语句
MsgString = sTokens(0) & "query successful" '返回查询信息
Else
Set Rst = New ADODB.Recordset '创建数据集对象
Rst.Open Trim$(SQL), Cnn, adOpenKeyset, adLockOptimistic '打开记录集,返回查询结果 。Trim$(SQL)为所执行的sql命令字符串。Cnn为Recordset对象的ActiveConnection属性值,即数据源的活动链接,即设定连接的是哪个数据库。后面两个参数为“键集游标”和“乐观锁”。
Set ExecuteSQL = Rst '返回记录集对象
MsgString = "查询到" & Rst.RecordCount & " 条记录"
End If
ExecuteSQL_Exit:
Set Rst = Nothing '清空数据集对象
Set Cnn = Nothing '中断连接
Exit Function
ExecuteSQL_Error: '错误处理
MsgString = "查询错误:" & Err.Description
MsgBox MsgString
Resume ‘在错误处理程序结束后,恢复到'ExecuteSQL_Exit' 行继续执行
End Function
ExecuteSQL函数相关推荐
- ExecuteSQL函数 和 call 调用
对于现阶段来说,我们用得最多的就是SQL语句,那么对于ExecuteSQL函数应该就不会很陌生了吧. ExecuteSQL他是一种自定义函数,是ODBC中的一个API函数,用来执行由SQLPrepar ...
- localStorage
length:唯一的属性,只读,用来获取storage内的键值对数量. key:根据index获取storage的键名 getItem:根据key获取storage内的对应value setItem: ...
- HTML5 Web SQL
Web Sql Database,中文翻译作"本地数据库",是随着HTML5规范加入的在浏览器端运行的轻量级数据库. 在HTML5中,大大丰富了客户端本地可以存储的内容,添加了很多 ...
- (九)HTML5本地存储——本地数据库SQLLite的使用
在HTML5中,大大丰富了客户端本地可以存储的内容,添加了很多功能将原本必须要保存在服务器上的数据转为保存在客户端本地,从而大大提高了web应用程序额的性能,减轻了服务器端的负担,使web时代重新回到 ...
- 40 个重要的 HTML5 面试问题及答案
2019独角兽企业重金招聘Python工程师标准>>> 介绍 我是一个ASP.NET MVC开发人员.最近当我找工作的时候,我发现很多问题都是围绕HTML 5和它的新功能展开的.所以 ...
- Visual C++中的ODBC编程实例
Visual C++中的ODBC编程实例 Microsoft Developer Studio为大多数标准的数据库格式提供了32位ODBC驱动器.这些标准数据格式包括有:SQL Server.Acce ...
- Visual C++ 中的ODBC编程
Visual C++ 中的ODBC编程 ODBC(Open Database Connectivity,开放式数据库连接),是一种用来在相关或不相关的数据库管理系统(DBMS)中存取数据的标准应用程序 ...
- canvas中文显示乱码 html5_40个常见的HTML5 面试问题及答案
编辑注:前端开发面试的过程中,对HTML5的考察是一个比较大的分量的,很多人简历上也常常有精通HTML5,但是你真的对这些HTML5的东西精通吗?本文讲解了40个重要的HTML5面试题及答案,来看看有 ...
- HTML5开发 Web SQL Database 本地数据库
Web Database 介绍 Web SQL数据库API实际上不是HTML5规范的组成部分,而是单独的规范.它通过一套API来操纵客户端的数据库.Safari.Chrome.Firefox.Oper ...
最新文章
- Vim 高亮显示单词并查找
- 【面试招聘】有哪些好的秋招经验分享?数据、算法岗的几点经验分享
- Traffic Simulator Applet(交通模拟器小程序)
- rds oracle utl file,本地Oracle数据上传到AWS的RDS
- 内网访问不到内网网站问题和不用端口号访问网站问题
- PHP中 $_SERVER的信息汇总
- exit与_exit函fork与vfork函数
- 典型的 C++ 程序员成长经历
- getelementsbyname谷歌浏览器兼容_常用的浏览器内核有哪些?常用浏览器及其内核介绍...
- class根据状态 vue_搞懂并学会运用 Vue 中的无状态组件
- log4j教程_Log4j教程
- python-字典方法(dict)知识整理
- Jquery ajax, Axios, Fetch区别之我见
- Algorithm:数学建模大赛(CUMCM/NPMCM)之全国大学生数模竞赛简介 相关书籍、文章推荐等详细攻略
- 怎么用python实现序列比对_生信学习笔记——Python+Mafft实现批量化多序列比对
- img中的title属性和alt属性的异同:
- Oracle Analyze
- 【FinalIK】Full Body Biped IK
- electron 11 win10 全屏透明窗口是不透明
- 12星座的出生年月日性格_十二个星座的出生年月日