说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

为VB5辩解: VB处理数据库时求数据表记录总数的最佳方法

HTML文档下载 WORD文档下载 PDF文档下载
为VB5辩解: VB处理数据库时求数据表记录总数的最佳方法
作者:深圳宝安原来电子有限公司
倪坚明
---- ---- VB主要处理的是MDB格式的数据库,但就在这方面,它就偏偏出了差错,先看看下例:

Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path & "\zzr.mdb")
Set rs = db.OpenRecordset("test")
Debug.Print rs.RecordCount

---- ---- 此例假设在应用程序目录下有一个名为"zzr.mdb"的数据库,而且它里边有一个名为"test"的表,此程序的目的就是求出该表中的记录的总数。此处用到的是"表"对象的RecordCount属性,这样用在一般性况下是正确的,但并不能保证在所有的情况下都能得出正确的结果,比如说表中的数据量很大,或者是数据库受到过什么损害等等。如果碰到这种情况,我们可以换一个角度来处理。请看下面的程序:
Dim db As Database
Dim rs As Recordset
Dim Num As Long
Set db = OpenDatabase(App.Path & "\zzr.mdb")
Set rs = db.OpenRecordset("test")
Num = 0
rs.MoveFirst
Do While Not rs.EOF()
Num = Num + 1
rs.MoveNext
Loop
Debug.Print Num

---- ---- 这样,最后得到的Num即为正解结果,这种方法的思路是从表的开始处一直顺序走到结尾,就可以"数"出表中到底有多少条记录。这种方法看起来很笨,但是它却是一个相当准确的方法,大家不防可以试一下。
---- 再看笔者的说法:

---- 先看上面一行程序:Debug.Print rs.RecordCount,VB5在读取数据表时并非一次性将全部记录均读入内存(想想看如果有一个表,里面有一百万个记录甚至一亿个或更多,要想全部读入内存,你的机器能承受得了吗?),只是先读入一部分(在下认为这是VB的优异这处),recordset对象并非表的全部记录,只是已读入内存的部分,故用rs.recordcount得到的不是表的记录总数。

---- 再看上面程序的改良部份:


Do While Not rs.EOF()
Num = Num + 1
rs.MoveNext
Loop
Debug.Print Num

---- 在下用十万个记录的表对上面这段程序做了个测试,结果花了六分半钟(intel 166,32M内存),如此的等待,阁下有耐心无?请看在下的对策:
---- 假设数据表已打开,用

rs.Recordset.MoveLast '将指针移到表的最后一笔记录
debug.print rs.Recordset.RecordCount
即可得出正确结果。

或者用下一种方法亦可

rs.Recordset.MoveLast
debug.print rs.Recordset.AbsolutePosition+1
'调用绝对位置,因vb的第一笔记录是由零算起,故要+1。

红包大战!双11过后,微信支付宝的又一个营销游戏 O2O大潮来袭,洗牌将至? 谈谈UI架构设计的演化 Node.js 开源基金会成立,Joyent让出领导权 LinkedIn分布式实时性能跟踪与效率优化实例 DIY机器人不是事!软硬两不误的开发平台RoboCORE 详解OS X和iOS图像处理框架Core Image 快的打车联合创始人兼技术副总裁闻诚:CTO要有“334”能力 阿里巴巴正式加入W3C,成为W3C会员 在Swift中,如何像Objective-C定义可选接口? DARPA:4年内推出具备触觉的机械手 Silver:用Swift编写iOS、Android和.NET应用 Swift没有异常处理,遇到功能性错误怎么办? 基于Python的测试驱动开发实战 不能守株待兔!移动互联网时代:产品找用户 淘汰传统屏幕,虚拟现实新纪元何时开启? 《近匠》SENSORO CTO赵东炜:解密iBeacon生态 我由Angular转向React,为什么? 产品设计中的九个注意事项 昂贵、复杂、不可靠!智能家居产品的尴尬现状 Facebook的CIO都做些什么? 穷游网CTO黄向阳:成果与价值是最好的驱动力 2015移动游戏行业方向标:创业者必须关注的几个领域 基于Python的行为驱动开发实战 面向WP和Android!微软车库发布多款免费应用 GRPC:谷歌发布的首款基于HTTP/2和protobuf的RPC框架 革命,就是现在!——CES 2015行纪 HTML5游戏引擎排行榜 Construct 2最受欢迎 2015手游营销新趋势:电视广告,及其投放逻辑 详解下一代开源混合应用框架Reapp 应用内一键交易!Google公布Android Pay项目 开机时显示 NTLDR IS MISSING, 谁知道这是怎么回事? 急!应该用什么实现? CListCtrl如何让动态改变图标!GetItem()如何使用??,解决加分 怎样设置oracle的maximum number of processes 那个知道那里有DELPHI 7.0下啊,给分 delphi&spl GGJJ们谁有电子版《windows核心编程》的完整的第27章啊?偶的那一版这章只有半截 请教一个写入文本的问题,解决200分相送,在线等 如何做到高人一筹 有没有人能具体讲一讲关于大文本处理的过程! 函数返回值问题,给高分 DX抓图,如何保存为Bmp文件? 3个NF 嵌入文件夹窗格怎么使用 创业中的软件公司招人(有兴趣的弟兄进来看看) 数据库中事务的特点及其应用,急,不够再给分500,在线,急。 关于对话框.高分请教 创业中的软件公司招人(有兴趣的弟兄进来看看) 做的网站在IE5.0和IE6.0显示的问题 寻找采用WebSnap 技术的例子? matrxII观后感 关于JSP文件和BEAN的存放 创业中的软件公司招人(有兴趣的弟兄进来看看) c#做的程序可以直接在新安装的win98下(没有.net环境)跑吗?有经验的请留步 c#做的程序可以直接在新安装的win98下(没有.net环境)跑吗?有经验的请留步 存储过程分页有点问题,谁帮我看一下 基础问题!困扰我! 请哥哥姐姐帮忙,把下面的代码转换成VC代码 大家case工具都用到什么程度? 为什么编译的可执行文件在其他计算机无法运行? ACCESS操作问题,高手... 我是刚刚入门,请帮助 怎样把一个已建好的主域服务器更改域名(在线等) 如何得到DataGrid控件里面的某行某列得值? 关于rave报表的问题 weblogic部属程序问题! 组合查询的问题 怎样在改变一个下拉菜单,不刷新页面的情况下,改变另一个菜单的内容??? 有使用BCG库的朋友吗?有些问题不明白,想讨论一下。 sqlmangr.exe文件受到了损坏,应该怎么做恢复[急] 请问,广东的高程报名在什么时候?谢谢! lwangzi(磊子)请关注 win2000下读注册表的怪问题??? 在线等待,急急急 菜鸟百问之一 在VS.NET中无法调试ASP.NET应用程序 从一个表select等好久也没有东西返回,别的表正常,这是为什么呀 大哥大姐: 请问BC与DELPHI有什么区别 ? 问个小问题,权当散分 怎么把终端服务的3389端口号改为自己需要的端口? 怎么样使用实体bean来修改数据库中的记录? 高手请进!!急 如何知道打开子窗体的父窗体是谁 复合函数求导,如图,求导函数里有多个函数,怎么求 In case after 请举例说明. 马晨明的藏戏 中国节日 英语是什么要一个一个的说 若cosx>0,且sin2x0是一四象限,另一个我就不知道了 求马晨明的藏戏的原文.不是课本上的那个. Vertical-align用于控制文字或图象相对与其母体元素的垂直位置. 设θ是第二象限角,则A tanθ/2>1 B tanθ/2cosθ/2 Dsinθ/2 whose is it hat?可以这样写吗?为什么不能这么写,请举例说明,怎样选择满意回答。 "放"字.钢笔.楷书,放在米字格里 99°是第二象限角吧 whose hat is it?可不可以写成whose is it hat?如果不能为什么?请举例说明,具体些, 谁有钢笔楷体写字口诀 in case in case 后加虚拟怎么用啊? 什么明星稀成语 hustle.是什么意思 become less active and more calm and happy是哪个单词 成语大全 四字成语什么明星稀 hustle& bustle是什么意思? 一个平行四边形的四个顶点分别是a.b.c.d如果a点的位置是(1,4),b点的位置是(0,0)c点的位置是(3,3)那么c点的位置是( ) 成语:( )尘莫及 ( )明星稀 hustle&bustle是什么意思啊?hustle&bustle of the outside world 翻译:Their organs become weak and may stop working properly 下列关于矢量和标量的说法正确的是 hustle 若α是第四象限角,试分别确定—α,180度—α是第几象限 明星稀的前一个词是什么 成语 她说话10句有9句是说他哥哥是他亲哥哥.还有她也有时会和我说她想她的网前任男友、虽然我听了不是很舒服.但我没说什么 若a位的一象限的角,那么能确定的为正值的是?若a位的一象限的角,那么能确定的为正值的是(d)A:cos2a B:sina/2 c:cosa/2 d:tana/2a在第一象限的,那么a/2也是第一象限的吧,那么bc怎么不选阿? 关于矢量和标量,下列论述中正确的是?(注明解题原因)选项:A.有方向的物理量一定是矢量B.矢量一定具有方向C.只有大小而没有方向的物理量一定是标量D.标量一定只有大小而没有方向 as applicable 如何翻译?在正规文档中,如何翻译成中文比较准确、自然?请高手指教,不要机器翻译... 如果函数y=f(x)的图像关于点P中心对称,则称函数f(x)为中心对称函数,P为对称中心1,判断函数f(x)=[(x+1)的-1/3次方]+1是否为中心对称函数,若是,求对称中心2,求证:函数g(x)=(cx+d)/(ax+b) ,a≠0为中心对称 知了怎么捕捉食物 把一个大正方体表面涂色,每条棱都平均分成2份,然后切开,能得到()个小正方体,3面涂色的有()个 高一向量题我有疑问 给出向量OA=(3,-4)向量OB=(6,-3)向量OC=(5-m,-(3+m)). 知道△ABC是直角三角形 求m 我知道分三种情况 但是我自己做的和答案不一样答案我划横线的地方是否写错了?当 为什么孔子认为《韶》乐尽善尽美?《武》乐尽美而不够尽善? 把一个表面涂色的正方体的每条棱平均分成10份,再切成同样大小的正方体.(1)共可以切成多少个小正方体?(2) 3面、2面、1面涂色的小正方体各有几个?6面都不涂色的正方体有多少个? 轴承上的数学和字母代表什么意思啊? "knock on vertical fins是什么意思 in that 爱情是不是想象中的那样完美?爱我 的 人我 不爱 ,我 爱的 人不 爱我 1爱,从何而来! fins是什么意思 in every Knock on wood. 陶渊明和周敦颐有什么不同和相同 关于爱惜资源的公益用语 俊秀唱过knock on wood吗我也很奇怪觉得没有啊,可是在搜索标签里碰到过不只一次~~ 所以就来问问亲们~~ 在OMEGLE上聊天最常用的英语语句.我在OMEGLE上聊天遇到最大的问题就是词汇量太少,说几句话就不知道说什么了.谁能给我一些英语聊天常用的语句?还有英文的缩略词,比如:LOL ASL 等.谢谢 vertical什么意思,详细解释 甘肃省庆阳市有多少个县? 人教版八年级全部古诗文上下册全部,暑假要背完,请全部写出来. 莲花比菊花高雅在哪里?(也就是说:周敦颐与陶渊明不同在哪里?) 英语翻译国际物流收费是非常昂贵的,并且费用都以重量的增加而增加,以下是一些国际物流公司小于500g包裹的收费:(表省略)有少数买家误会我们运费收高了,但是相对与这些昂贵的国际快 八年级人教版的重点文言文 若x为4象限角,则x^2sinx+y^2=sin2x 表示的曲线为 藏戏 马晨明简洁一点哦 英文单词 最后是L的.意思好一点,像天使之类.最好短一点.只要3个、4个或者5个字母的。L在中间也可以的。麻烦带中文翻译。 若sin2x 马晨明的(藏戏)是怎么形成的 飓风袭击德国致多地交通瘫痪 乘客被困波兰国家法律顾问称该国养老金制度改革一架直升机在莫斯科坠毁 未致地面人员埃及穆兄会领袖案开审 三名法官请辞俄罗斯总理说“俄入世崩溃论”未成真强风暴席卷北欧地区 造成大面积交通瘫金砖国家农业部长共商粮食安全消息称美考虑停止对盟国领袖监听 未做消息称美考虑停止对盟国领袖监听 未做希中经贸合作潜力巨大——访希腊新任驻一架直升机在莫斯科坠毁 未致地面人员强风暴席卷北欧地区 造成大面积交通瘫一架直升机在莫斯科坠毁 未致地面人员消息称美考虑停止对盟国领袖监听 未做强风暴席卷北欧地区 造成大面积交通瘫一架直升机在莫斯科坠毁 未致地面人员中非民兵与前叛军爆发冲突 造成近40埃及穆兄会领袖案开审 三名法官请辞印度连环爆炸案系激进组织所为日俄将首次举行外长防长级磋商 欲促进美国批发物价指数9月环比下降0.1%动力·引领·契机抓住机遇发挥更好作用中哈加强在上合组织内协调合作张德江与萨摩亚议长会谈上海技术产权拍卖有限公司拍卖公告“上海金”拟年内落地细碎中,那份坚持有意义虹口建拆房企业黑名单 腾空待迁屋禁使央企高管怨钱少 该不该被吐槽自贸区2014版负面清单比去年再缩短世界俄文媒体大会开幕“高官和卫兵”点击假淘宝账户密码被盗细碎中,那份坚持有意义体验“智慧旅游”后卡扎菲时代,利比亚变节猛将要“政变沪台两地携手做强“云产业”联影凭什么打破“GPS神话”两本上海通志在沪首发孟建柱会见塔吉克斯坦总统拉赫蒙驾车撞人后继子替继父顶包
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘