让VB快速读取数据库的函数中，为什么"rs.MoveFirst "会出错啊？

VB > 数据库(包含打印，安装，报表)
收藏 回复
[问题点数：40分，结帖人zgqtxwd]
更多帖子
私信 空间 博客
版主
zgqtxwd
等级
本版专家分：0
结帖率 81.58%
让VB快速读取数据库的函数中，为什么"rs.MoveFirst "会出错啊？
Set rs = GetDb("set.mdb", "select * from Set_SmtpMail")
MsgBox rs("smtpname")
rs.MoveFirst   ' 为什么会在这句上出错啊？
MsgBox rs("smtpname")


Public Function GetDb(ByVal aDbFile As String, ByVal aSql As String)
Dim Conn, SQL
Dim ConnectionString As String
Set Conn = CreateObject("ADODB.Connection") '连接数据库
Conn.Open "provider=Microsoft.Jet.oledb.4.0;" & "data source=" & aDbFile
Dim rs As New ADODB.Recordset
SQL = aSql
rs.Open SQL, Conn, 1, 2
GetDb = rs

Set rs = Nothing
Set Conn = Nothing
End Function
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
Lynn_learn_Java
等级
本版专家分：5
是不是BOF为真啊？
if rs.BOF=false then
rs.Movefirst
End if
只看TA 引用 举报 #1得分 5
更多帖子
私信 空间 博客
版主
zgqtxwd
等级
本版专家分：0
总共有9个记录呢，监视了一下，函数返回的值好像不是记录集了，好像是一个集合一样的数值
只看TA 引用 举报 #2得分 0
更多帖子
私信 空间 博客
clear_zero
等级
本版专家分：19622
看看返回了什么

另外研究下rs.Open SQL, Conn, 1, 2

1，2是什么意思，这两个参数决定你rs的形式
只看TA 引用 举报 #3得分 5
更多帖子
私信 空间 博客
阿呆哥
等级
本版专家分：935
勋章
Blank
黄花 2012年2月 扩充话题大版内专家分月排行榜第二
Public Function GetDb(ByVal aDbFile As String, ByVal aSql As String) as Recordset
只看TA 引用 举报 #4得分 5
更多帖子
私信 空间 博客
worldy
等级
本版专家分：26139
勋章
Blank
红花 2015年8月 硬件/嵌入开发大版内专家分月排行榜第一
2015年7月 VC/MFC大版内专家分月排行榜第一
2015年5月 VC/MFC大版内专家分月排行榜第一
2015年4月 VC/MFC大版内专家分月排行榜第一
2015年3月 VC/MFC大版内专家分月排行榜第一
2015年1月 硬件/嵌入开发大版内专家分月排行榜第一
2013年12月 VC/MFC大版内专家分月排行榜第一
2013年11月 VC/MFC大版内专家分月排行榜第一
2013年6月 VB大版内专家分月排行榜第一
2013年5月 VB大版内专家分月排行榜第一
2013年1月 VB大版内专家分月排行榜第一
2012年12月 VB大版内专家分月排行榜第一
Blank
黄花 2015年9月 VC/MFC大版内专家分月排行榜第二
2015年7月 硬件/嵌入开发大版内专家分月排行榜第二
2014年5月 VC/MFC大版内专家分月排行榜第二
2014年3月 VC/MFC大版内专家分月排行榜第二
2013年10月 VB大版内专家分月排行榜第二
2013年7月 VB大版内专家分月排行榜第二
2012年5月 VB大版内专家分月排行榜第二
2012年4月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第二
2011年11月 VB大版内专家分月排行榜第二
Blank
蓝花 2015年11月 VC/MFC大版内专家分月排行榜第三
2015年6月 VC/MFC大版内专家分月排行榜第三
2015年2月 VC/MFC大版内专家分月排行榜第三
2014年1月 VC/MFC大版内专家分月排行榜第三
2012年3月 VB大版内专家分月排行榜第三
2011年12月 VB大版内专家分月排行榜第三
2011年10月 VB大版内专家分月排行榜第三
Set rs = GetDb("set.mdb", "select * from Set_SmtpMail")
if rs.recordcount>0 then'必须进行判断
MsgBox rs("smtpname")
rs.MoveFirst ' 为什么会在这句上出错啊？
MsgBox rs("smtpname
........
end if
只看TA 引用 举报 #5得分 5
私信 空间 博客
semonjiangwei
等级
本版专家分：5
函数中，RS已经被释放掉了，如何RS.MOVEFIRST?看4楼
只看TA 引用 举报 #6得分 5
更多帖子
私信 空间 博客
赵4老师
等级
本版专家分：40553
勋章
Blank
状元 2017年 总版技术专家分年内排行榜第一
Blank
榜眼 2014年 总版技术专家分年内排行榜第二
Blank
探花 2013年 总版技术专家分年内排行榜第三
Blank
进士 2018年总版新获得的技术专家分排名前十
2012年 总版技术专家分年内排行榜第七
rs.Open SQL, Conn, 1, 2
研究一下1代表啥意思，2代表啥意思？
只看TA 引用 举报 #7得分 0
更多帖子
私信 空间 博客
worldy
等级
本版专家分：26139
勋章
Blank
红花 2015年8月 硬件/嵌入开发大版内专家分月排行榜第一
2015年7月 VC/MFC大版内专家分月排行榜第一
2015年5月 VC/MFC大版内专家分月排行榜第一
2015年4月 VC/MFC大版内专家分月排行榜第一
2015年3月 VC/MFC大版内专家分月排行榜第一
2015年1月 硬件/嵌入开发大版内专家分月排行榜第一
2013年12月 VC/MFC大版内专家分月排行榜第一
2013年11月 VC/MFC大版内专家分月排行榜第一
2013年6月 VB大版内专家分月排行榜第一
2013年5月 VB大版内专家分月排行榜第一
2013年1月 VB大版内专家分月排行榜第一
2012年12月 VB大版内专家分月排行榜第一
Blank
黄花 2015年9月 VC/MFC大版内专家分月排行榜第二
2015年7月 硬件/嵌入开发大版内专家分月排行榜第二
2014年5月 VC/MFC大版内专家分月排行榜第二
2014年3月 VC/MFC大版内专家分月排行榜第二
2013年10月 VB大版内专家分月排行榜第二
2013年7月 VB大版内专家分月排行榜第二
2012年5月 VB大版内专家分月排行榜第二
2012年4月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第二
2011年11月 VB大版内专家分月排行榜第二
Blank
蓝花 2015年11月 VC/MFC大版内专家分月排行榜第三
2015年6月 VC/MFC大版内专家分月排行榜第三
2015年2月 VC/MFC大版内专家分月排行榜第三
2014年1月 VC/MFC大版内专家分月排行榜第三
2012年3月 VB大版内专家分月排行榜第三
2011年12月 VB大版内专家分月排行榜第三
2011年10月 VB大版内专家分月排行榜第三
引用 7 楼  的回复:
rs.Open SQL, Conn, 1, 2
研究一下1代表啥意思，2代表啥意思？


1,2这个问题不大，一般在客户端游标时，1,2可能不支持，但是ado会自动修改，使用最合适的参数代替之
只看TA 引用 举报 #8得分 0
更多帖子
私信 空间 博客
嗷嗷叫的老马
等级
本版专家分：53925
勋章
Blank
微软MVP 2012年1月 荣获微软MVP称号
2011年1月 荣获微软MVP称号
Blank
黄花 2007年9月 VB大版内专家分月排行榜第二
Blank
蓝花 2008年3月 VB大版内专家分月排行榜第三
2007年8月 VB大版内专家分月排行榜第三
Set rs = GetDb("set.mdb", "select * from Set_SmtpMail")

这后面为啥不判断一下有没有数据?
只看TA 引用 举报 #9得分 5
更多帖子
私信 空间 博客
lsgis2001
等级
本版专家分：173
引用 3 楼  的回复:
看看返回了什么

另外研究下rs.Open SQL, Conn, 1, 2

1，2是什么意思，这两个参数决定你rs的形式


这个是正解.研究一下对你有帮助.
只看TA 引用 举报 #10得分 0
1 2
收起
收藏 回复
zgqtxwd

等级：

关注 私信 TA的帖子
asp网络编程

用ASP编程实现网络内容快速查找 有一天我突发奇想，要是我每到一个网站，那里都能立刻调出我需要看的信息，那岂非美妙得很。接下来我想更深入地考虑这个问题，坐到椅子上拿一支铅笔，却不知道自己写什么。如此一来，...

VB数据库编程

SQL功能与特性　其实，在前面的文章中，已经提及SQL命令的一些基本功能，然而，通过SQL命令，程序设计师或数据库管理员（DBA）可以：　（一）建立数据库的表格。（包括设置表格所可以使用之空间）　（二）改变数据库...

VB.NET 导出数据到EXCEL中

VB.NET 导出数据到EXCEL中[日期：2007-07-29] 来源： 作者： [字体：大 中 小] ----------VB.NET 导出数据到Excel中------------- Dim oExcel As New Excel.Application Dim obook As Excel.Workbook Dim oSheet As ...

ADO MoveFirst, MoveLast, MoveNext, 与 MovePrevious 方法

The MoveFirst Method MoveFirst方法 This method is used to move to the first record in a Recordset object. It also make the first record the current record. Method方法的作用是：将记录指针移动到...

Javascript如何获取选中项的文本值TEXT不是VALUE

页面中用的DropDownList控件时,需要用javascript客户端脚本进行验证时,var ddl = document.getElementById("控件名");取得选中的列的文本值ddl.options[ddl.selectedIndex].innerText 取得选中值相对应的valueddl....

VC访问数据库学习总结

VC连接数据库方式 目前Windows系统上常见的数据库接口包括： ODBC（开放数据库互连）：访问数据库得先配置数据源 MFC（Microsoft基础类）ODBC类 DAO（数据访问对象） RDO（远程数据对象） OLE DB（对象链接嵌入...

js技巧收集(200多个)

1.文本框焦点问题onBlur:当失去输入焦点后产生该事件onFocus:当输入获得焦点后，产生该文件Onchange:当文字值改变时，产生该事件Onselect:当文字加亮后，产生该文件(value==) {value=郭强}">点击时文字消失，失去...

不错VB代码，收藏！！！

实现毫秒精度的延时Module Code:Option ExplicitDeclare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As LARGE_INTEGER) As LongDeclare Function QueryPerformanceCounter Lib "kernel32" _ ...

VB6基本数据库应用（十）：【增补篇】游标Cursor和锁Lock简介

VB6基本数据库应用（十）：【增补篇】游标Cursor和锁Lock简介 说起来，我自己对游标并不怎么了解。这里简单就我所知道的做一些介绍。之所以要说一下，是因为趁着出增补篇的机会，将游标和锁也要提及一下，尽管这在...

论坛精华

[转]ASP.NET四种页面导航方式之比较与选择 在ASP.NET应用中，Web表单之间的导航有多种方式：用超级链接，用Response.Redirect，用Server.Transfer，或者用Server.Execute。本文将分析这四种导航方式的异同及其优缺点...

HTML ASP VBSCRIPT JAVASCRIPT SKILLS 常见问题

1.如何 最小化、最大化、关闭窗口答：2.如何静止页面缓存答：htm网页或者asp网页response.expires=-1response.expiresabsolute=now()-1response.cachecontrol="no-cache"php网页header("expires:mon,26j

Excel+VBA+之快速上手

定义 标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号，利用它可以完成对变量、常 量、过程、函数、类等的引用。 二．命名规则 1） 字母打头，由字母、数字和下划线组成，如 A987b_23Abc 2） ...

经典ASP代码大集合

1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键no 可用于Table 2. 取消选取、防止复制3. onpaste="return false" 不准粘贴4. oncopy="return false;" oncut="return false;...

ADO 开发指南（程式猎人收集整理）----发现最好的ADO MFC的数据库操作

ADO(ActiveX Data Object)是Microsoft数据库应用程序开发的新接口，是建立在OLE DB之上的高层数据库访问技术，请不必为此担心，即使你对OLE DB，COM不了解也能 轻松对付ADO,因为它非常简单易用，甚至比你以往所...

JavaScript代码收集

正在处理您的请求... <!-- function getObject(objectId) { if(document.getElementById) { return document.getElementById(objectId) } else if(document.all&&document.all(objectId))

200多个js技巧代码

1.文本框焦点问题 onBlur:当失去输入焦点后产生该事件 onFocus:当输入获得焦点后，产生该文件 Onchange:当文字值改变时，产生该事件 Onselect:当文字加亮后，产生该文件 ...style="background-color:rgb(235

js技術大全

1.文本框焦点问题onBlur:当失去输入焦点后产生该事件onFocus:当输入获得焦点后，产生该文件Onchange:当文字值改变时，产生该事件Onselect:当文字加亮后，产生该文件(value==) {value=郭强}">点击时文字消失，失去...

一些常用的辅助代码 (网络收藏)

点击返回上页代码:弹出警告框代码:function AlertButton(){window.alert("要多多光临呀！");}// -->点击打开新窗口function NewWindow(){window.open("http://www.mcmx.com","","height=240,width=340,status=no,...

asp经典例子

主　题： ASP常见问题及解答征集中，请大家积极参与~~~~~~~~ 作　者： awaysrain (绝对零度)(新的一年，新的开始) 等　级： 信 誉 值： 155 所属论坛： Web 开发 ASP 问题点数： 200 回复次数： 160 发表...

鼠标离开事件集

1.文本框焦点问题 onBlur:当失去输入焦点后产生该事件 onFocus:当输入获得焦点后，产生该文件 Onchange:当文字值改变时，产生该事件 Onselect:当文字加亮后，产生该文件 (value=='') {value='... 

VBA快速上手－常用对象之使用

第一节 文件的操作 1) Excel 文件 1.1 新建与打开 一.新建 Workbooks.Add 二.打开 Workbooks.Open "路径/" & "文件名.xls" 三

一个常见数据库操作错误的分析（三）

接下来再看看什么是ADO/OLEBD一致的数据访问技术——ADO/OLE DB潘爱民北京大学计算机科学技术研究所(100871)【摘要】本文首先介绍了Microsoft提出的一致数据访问技术——ADO/OLE DB，然后介绍了ADO的对象模型，以及...

JavaScript 各种参数 详解

1.文本框焦点问题 onBlur:当失去输入焦点后产生该事件 onFocus:当输入获得焦点后，产生该文件 Onchange:当文字值改变时，产生该事件 Onselect:当文字加亮后，产生该文件 ...style="background-color:rgb(235

转载 js大全

事件源对象 捕获释放 event.srcElement.setCapture(); event.srcElement.releaseCapture(); 事件按键 event.keyCode event.shiftKey event.altKey event.ctrlKey 事件返回值 event.returnValue 鼠标位置

200多个JS小技巧

1.文本框焦点问题 onBlur:当失去输入焦点后产生该事件 onFocus:当输入获得焦点后，产生该文件 Onchange:当文字值改变时，产生该事件 Onselect:当文字加亮后，产生该文件 ...style="background-col

收集的JS代码，学习js的入门经典

作者介绍挺全面的，所以转载过来让感兴趣的朋友看一下。呵呵～～～适合阅读范围：对JavaScript一无所知～离精通只差一步之遥的人基础知识：HTMLJavaScript就这么回事1：基础知识 1 创建脚本块1: 2: JavaScript code ...

JavaScript 各种事件、方法、参数详解示例及常见问题等（全）

1.文本框焦点问题 onBlur:当失去输入焦点后产生该事件 onFocus:当输入获得焦点后，产生该文件 Onchange:当文字值改变时，产生该事件 Onselect:当文字加亮后，产生该文件 ...<input type=button name="Submit1" ...

Javascript技巧大集合(转自http://www.mscto.com/JavaScript/041043806.html)

1.文本框焦点问题onBlur:当失去输入焦点后产生该事件onFocus:当输入获得焦点后，产生该文件Onchange:当文字值改变时，产生该事件Onselect:当文字加亮后，产生该文件(value==) {value=郭强}">点击时文字消失，失去...

初学者SQL语句介绍 +ASP中使用SQL语句

它告诉数据库引擎返回什么字段。 Select 子句的常见形式是： Select * 该子句的意思是“返回在所指定的记录源中能找到的所有字段”。这种命令形式很方便，因为你无需知道从表中检索的字段名称。然而，检索表中...

2020美赛O奖论文.zip

包含2020美赛所有题目的所有O奖论文，A题8篇，B题5篇，C题6篇，D题7篇，E题5篇，F题6篇。

相关热词 c# 打印 等比缩放 c#弹出右键菜单 c# 系统托盘图标 c#结构体定义 c# 根据网络定位 c# 清除html标签 c# uwp最小化 c#和java的区别 64位转换 c# 十进制 c# 点击保存草稿的实现