| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 969 人关注过本帖
标题:下面这个函数为什么不用command的对象也行?
只看楼主 加入收藏
ruixuelong
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2004-5-3
收藏
 问题点数:0 回复次数:4 
下面这个函数为什么不用command的对象也行?

请问各路vb数据库编程高手,偶虽然看懂了下面这个函数的意思,但是纳闷的事却来了,为什么它不用存储命令也能执行对数据库的操作,请问你们是怎么写对数据库进行操作函数的!

Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As ADODB.Recordset 'executes SQL and returns Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset 定义记录集 Dim sTokens() As String On Error GoTo ExecuteSQL_Error 定义错误 sTokens = Split(SQL) 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 'rst.MoveLast 'get RecordCount Set ExecuteSQL = rst MsgString = "查询到" & rst.RecordCount & _ " 条记录 " End If ExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit Function ExecuteSQL_Error: MsgString = "查询错误: " & _ Err.Description Resume ExecuteSQL_Exit End Function

搜索更多相关主题的帖子: 函数 SQL command 数据库 对象 
2004-07-10 16:24
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

看见这行吗? 'executes SQL and returns Recordset 意思是执行SQL语句并返回记录集

这个函数调用的时候递两 个参数,一个是SQL,即要执行的SQL语句,一个是MsgString,即执行结果是否成功(返回值)

函数简单分析了SQL语句,能自动根据SQL是否返回记录集而设置函数的返回值


天津网站建设 http://www./
2004-07-10 23:00
ruixuelong
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2004-5-3
收藏
得分:0 
为什么不用command对象也能进行对记录集的访问呢?
2004-07-10 23:04
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

看见这行吗? [QUOTE] rst.Open Trim$(SQL), cnn, _ adOpenKeyset, _ adLockOptimistic [/QUOTE]

使用Recordset对象返回记录集

[此贴子已经被作者于2004-07-12 20:55:39编辑过]


天津网站建设 http://www./
2004-07-12 20:53
joinfly
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2004-10-1
收藏
得分:0 
请用ADO。NET
老大哥
2004-10-03 22:49
快速回复:下面这个函数为什么不用command的对象也行?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.098296 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved