VB6.0数据库访问技术与例程解析

2008-04-09 04:43:36来源：互联网阅读 ()

引言

　　作为微软旗下一款优秀的RAD工具，VB在数据库应用开发方面的能力十分强大。微软设计了多种数据库访问方法，下面通过对VB访问数据库的多种技术进行深入剖析，并总结出实际开发中的几点经验。希望能够对那VB的初学者有所帮助。（注意，文中所有的描述均在Windows 2000 professional和Visual Basic 6.0的环境下进行的）

　　一. DAO、RDO、ODBC和ADO
<BR><BR>　　程序代码分析：<BR></P> <TBODY> <P><BR>'整个程序功能是选择不同的连接方式来进行显示工作，三种方式显示效果完全相同<BR>'下面是主程序过程<BR>Private Sub Command1_Click()<BR>　Dim selitem As Integer<BR>　'判断连接数据库的方式<BR>　If Option1.Value = True Then<BR>　　selitem = 1<BR>　Else<BR>　　If Option2.Value = True Then<BR>　　　selitem = 2<BR>　　Else<BR>　　　selitem = 3<BR>　　End If<BR>　End If<BR><BR>　'选取不同的数据库连接方式<BR>　Select Case selitem<BR>　Case 1:<BR>　　'使用DAO的数据库连接方式<BR>　　Call ShowByDAO<BR>　Case 2:<BR>　　'使用ADO的数据库连接方式<BR>　　Call ShowByADO<BR>　Case 3:<BR>　　'使用ODBC的数据库连接方式<BR>　　Call ShowByODBC<BR>　Case 4:<BR>　　'使用OLEDB的数据库连接方式<BR>　　Call ShowByOLEDB<BR>　End Select<BR>End Sub<BR><BR>Private Sub ShowByDAO()<BR>　'使用DAO的数据库连接方式<BR>　Dim db As Database<BR>　Dim rs As Recordset<BR>　Dim sqlstr$ '存放查询语句<BR>　Set db = OpenDatabase(App.Path & "\db1.mdb")<BR>　sqlstr = "select * from 成绩表"<BR>　Set rs = db.OpenRecordset(sqlstr)<BR>　'显示结果<BR>　Call GridShow(rs)<BR>End Sub<BR><BR>Sub ShowByADO()<BR>　Dim conn As New ADODB.Connection<BR>　Dim rs As New ADODB.Recordset<BR>　'使用数据源来连接数据库<BR>　conn.Open "dsn=data"<BR>　rs.CursorType = adOpenKeyset<BR>　rs.LockType = adLockOptimistic<BR>　rs.Open "select * from 成绩表", conn<BR>　Call GridShowOfADO(rs)<BR>End Sub<BR><BR>Sub ShowByODBC()<BR>　Dim conn As New ADODB.Connection<BR>　Dim rs As New ADODB.Recordset<BR>　'使用数据源来连接数据库<BR>　conn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=data"<BR>　rs.Open "select * from 成绩表", conn<BR>　'显示结果<BR>　Call GridShowOfADO(rs)<BR>End Sub<BR><BR>Sub ShowByOLEDB()<BR>　Dim conn As New ADODB.Connection<BR>　Dim rs As New ADODB.Recordset<BR>　'使用数据源来连接数据库<BR>　conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path & "\db1.mdb" ";Persist Security Info=False"<BR>　rs.Open "select * from 成绩表", conn</P> <P>　'显示结果<BR>　Call GridShowOfADO(rs)<BR>End Sub<BR><BR>Sub GridShow(rs As Recordset)<BR>　'对dao方式进行显示工作<BR>　MSFlexGrid1.TextMatrix(0, 0) = "姓名"<BR>　MSFlexGrid1.TextMatrix(0, 1) = "性别"<BR>　MSFlexGrid1.TextMatrix(0, 2) = "语文"<BR>　MSFlexGrid1.TextMatrix(0, 3) = "数学"<BR>　MSFlexGrid1.TextMatrix(0, 4) = "英语"<BR>　rs.MoveLast<BR>　MSFlexGrid1.Rows = rs.RecordCount 1<BR>　MSFlexGrid1.Cols = rs.Fields.Count<BR>　Dim i%<BR>　i = 1<BR>　rs.MoveFirst<BR>　While (Not rs.EOF)</P> <P>　　MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0)<BR>　　MSFlexGrid1.TextMatrix(i, 1) = rs.Fields(1)<BR>　　MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2)<BR>　　MSFlexGrid1.TextMatrix(i, 3) = rs.Fields(3)<BR>　　MSFlexGrid1.TextMatrix(i, 4) = rs.Fields(4)<BR>　　rs.MoveNext<BR>　　i = i 1<BR>　　'If (rs.EOF = True) Then<BR>　　' Exit For<BR>　Wend<BR>End Sub<BR><BR>Sub GridShowOfADO(rs As ADODB.Recordset)<BR>　'对ado方式进行显示工作<BR>　MSFlexGrid1.TextMatrix(0, 0) = "姓名"<BR>　MSFlexGrid1.TextMatrix(0, 1) = "性别"<BR>　MSFlexGrid1.TextMatrix(0, 2) = "语文"<BR>　MSFlexGrid1.TextMatrix(0, 3) = "数学"<BR>　MSFlexGrid1.TextMatrix(0, 4) = "英语"<BR>　'注意recordcount属性必须在当前记录指针在最后一条记录时才会返回正确的值<BR>　rs.MoveLast<BR>　MSFlexGrid1.Rows = rs.RecordCount 1<BR>　MSFlexGrid1.Cols = rs.Fields.Count<BR>　Dim i%<BR>　i = 1<BR>　rs.MoveFirst<BR>　While (Not rs.EOF)<BR>　　MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0)<BR>　　MSFlexGrid1.TextMatrix(i, 1) = rs.Fields(1)<BR>　　MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2)<BR>　　MSFlexGrid1.TextMatrix(i, 3) = rs.Fields(3)<BR>　　MSFlexGrid1.TextMatrix(i, 4) = rs.Fields(4)<BR>　　rs.MoveNext<BR>　　i = i 1<BR>　Wend<BR>End Sub<BR><BR>Private Sub Command2_Click()<BR>End<BR>End Sub</P></TBODY> <P>　　上述代码已经在Windows 2000 professional和Visual Basic 6.0的环境下调试成功。<BR><BR>　　<B>四.小结</B><BR><BR>　　本文通过对数据库访问相关技术的分析与总结，提出若干有价值的经验。借鉴这些经验，会给开发带来一定的便利。</P> <DIV></DIV> <DIV class=left><SPAN id=ad7></SPAN></DIV> <p class="article-con-biaoqian mt-20"> <span>标签：</span> </p> <p class="banquan">版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com<br/> 特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有 </p> </div> <a href="https://love.4c.cn/" target="_blank"><img src="http://www.west999.com/www/wp-content/uploads/2019/10/-20" alt=""/></a> <div class="other-article mt-10 font14"> <p><span class="mr-20">上一篇：<a href='/info/html/wangluobiancheng/DotNetBianCheng/20080411/67447.html'>VB.NET开发扫描客户端服务工具</a> </span></p> <p><span class="mr-20">下一篇：<a href='/info/html/wangluobiancheng/DotNetBianCheng/20080411/67449.html'>Win Server2003使用VB.NET：新基准测试</a> </span></p> </div> <div class="relative-link mt-20"> <div class="relative-tab"> <span class="relative-tab-active">相关文章</span> </div> <div class="relative-con"> <div class="relative-list mt-20"> <ul> </ul> </div> </div> </div> </div> <div class="category mt-20"> <p><span>IDC资讯：</span> <a href="/info/html/IDCzixun/xunizhuji/">主机资讯</a> <a href="/info/html/IDCzixun/yumingzhuce/">注册资讯</a> <a href="/info/html/IDCzixun/zhujizuyong/">托管资讯</a> <a href="/info/html/IDCzixun/vpszhuji/">vps资讯</a> <a href="/info/html/IDCzixun/zhinenjianzhan/">网站建设</a> </p><p><span>网站运营：</span> <a href="/info/html/wangzhanyunying/jianzhanjingyan/">建站经验</a> <a href="/info/html/wangzhanyunying/cehuayingli/">策划盈利</a> <a href="/info/html/wangzhanyunying/sousuoyouhua/">搜索优化</a> <a href="/info/html/wangzhanyunying/wangzhantuiguang/">网站推广</a> <a href="/info/html/wangzhanyunying/mianfeiziyuan/">免费资源</a> </p><p><span>网站联盟：</span> <a href="/info/html/wangzhanlianmeng/lianmengxinwen/">联盟新闻</a> <a href="/info/html/wangzhanlianmeng/lianmengjieshao/">联盟介绍</a> <a href="/info/html/wangzhanlianmeng/lianmengdianping/">联盟点评</a> <a href="/info/html/wangzhanlianmeng/wangzhuanjiqiao/">网赚技巧</a> </p><p><span>行业资讯：</span> <a href="/info/html/xingyezixun/sousuoyinqing/">搜索引擎</a> <a href="/info/html/xingyezixun/wangluoyouxi/">网络游戏</a> <a href="/info/html/xingyezixun/dianzishangwu/">电子商务</a> <a href="/info/html/xingyezixun/guanggaochuanmei/">广告传媒</a> </p><p><span>网络编程：</span> <a href="/info/html/wangluobiancheng/DotNetBianCheng/">Asp.Net编程</a> <a href="/info/html/wangluobiancheng/Aspbiancheng/">Asp编程</a> <a href="/info/html/wangluobiancheng/Phpbiancheng/">Php编程</a> <a href="/info/html/wangluobiancheng/Xmlbiancheng/">Xml编程</a> <a href="/info/html/wangluobiancheng/Access/">Access</a> <a href="/info/html/wangluobiancheng/Mssql/">Mssql</a> <a href="/info/html/wangluobiancheng/Mysql/">Mysql</a> <a href="/info/html/wangluobiancheng/qita/">其它</a> </p><p><span>服务器技术：</span> <a href="/info/html/fuwuqijishu/Webfuwuqi/">Web服务器</a> <a href="/info/html/fuwuqijishu/Ftpfuwuqi/">Ftp服务器</a> <a href="/info/html/fuwuqijishu/Mailfuwuqi/">Mail服务器</a> <a href="/info/html/fuwuqijishu/Dnsfuwuqi/">Dns服务器</a> <a href="/info/html/fuwuqijishu/anquanfanghu/">安全防护</a> </p><p><span>软件技巧：</span> <a href="/info/html/ruanjianjiqiao/qitaruanjian/">其它软件</a> <a href="/info/html/ruanjianjiqiao/Word/">Word</a> <a href="/info/html/ruanjianjiqiao/Excel/">Excel</a> <a href="/info/html/ruanjianjiqiao/Powerpoint/">Powerpoint</a> <a href="/info/html/ruanjianjiqiao/Ghost/">Ghost</a> <a href="/info/html/ruanjianjiqiao/Vista/">Vista</a> <a href="/info/html/ruanjianjiqiao/QQkongjian/">QQ空间</a> <a href="/info/html/ruanjianjiqiao/QQ/">QQ</a> <a href="/info/html/ruanjianjiqiao/FlashGet/">FlashGet</a> <a href="/info/html/ruanjianjiqiao/xunlei/">迅雷</a> </p><p><span>网页制作：</span> <a href="/info/html/wangyezhizuo/FrontPages/">FrontPages</a> <a href="/info/html/wangyezhizuo/Dreamweaver/">Dreamweaver</a> <a href="/info/html/wangyezhizuo/Javascript/">Javascript</a> <a href="/info/html/wangyezhizuo/css/">css</a> <a href="/info/html/wangyezhizuo/photoshop/">photoshop</a> <a href="/info/html/wangyezhizuo/fireworks/">fireworks</a> <a href="/info/html/wangyezhizuo/Flash/">Flash</a> </p><p><span>程序设计：</span> <a href="/info/html/chengxusheji/Javajishu/">Java技术</a> <a href="/info/html/chengxusheji/C-C--/">C/C++</a> <a href="/info/html/chengxusheji/VB/">VB</a> <a href="/info/html/chengxusheji/delphi/">delphi</a> </p><p><span>网络知识：</span> <a href="/info/html/wangluozhishi/wangluoxieyi/">网络协议</a> <a href="/info/html/wangluozhishi/wangluoanquan/">网络安全</a> <a href="/info/html/wangluozhishi/wangluoguanli/">网络管理</a> <a href="/info/html/wangluozhishi/zuwangfangan/">组网方案</a> <a href="/info/html/wangluozhishi/Ciscojishu/">Cisco技术</a> </p><p><span>操作系统：</span> <a href="/info/html/caozuoxitong/Win2000/">Win2000</a> <a href="/info/html/caozuoxitong/WinXP/">WinXP</a> <a href="/info/html/caozuoxitong/Win2003/">Win2003</a> <a href="/info/html/caozuoxitong/Mac-OS/">Mac OS</a> <a href="/info/html/caozuoxitong/Linux/">Linux</a> <a href="/info/html/caozuoxitong/FreeBSD/">FreeBSD</a> </p> </div> </div> <div class="rightcon f-r ml-20"> <div class="sider-img"> <a href="https://www.west.cn/cloudhost/?ReferenceID=zzxxw999" target="_blank" title="云服务器仅需0.69元/天起！快速备案，无需幕布！"><img src="http://www.west999.com/www/wp-content/uploads/2019/10/-12"></a> </div> <div class="right-sider mt-20"> <div class="sider-title clearfix"><strong class="f-l"><i class="iconfont font20 icon-read"></i>热门词条</strong></div> <div class="biaoqian-con"> </div> </div> <div class="right-sider mt-20"> <div class="sider-title"><strong><i class="iconfont font20 icon-liebiaodaohang_zixun"></i>最新资讯</strong></div> <div class="sider-con pt-10"> <ul> <li><a href="/info/html/wangyezhizuo/photoshop/20210526/4674019.html"><i class="radius"></i>Photoshop绘制立体风格的微笑表情</a></li> <li><a href="/info/html/wangyezhizuo/photoshop/20210525/4674018.html"><i class="radius"></i>PS文字特效教程：制作公路上个性的涂鸦</a></li> <li><a href="/info/html/wangyezhizuo/photoshop/20210525/4674017.html"><i class="radius"></i>Photoshop设计卷边效果的变形金刚电影</a></li> <li><a href="/info/html/wangyezhizuo/photoshop/20210525/4674016.html"><i class="radius"></i>PS色彩修复教程：利用色阶工具快速给红</a></li> <li><a href="/info/html/wangyezhizuo/photoshop/20210524/4674015.html"><i class="radius"></i>PS半透明物体抠图：利用通道选区工具抠</a></li> <li><a href="/info/html/wangyezhizuo/photoshop/20210524/4674014.html"><i class="radius"></i>PS海报设计技巧教程：学习制作个性的扭</a></li> <li><a href="/info/html/wangyezhizuo/photoshop/20210524/4674013.html"><i class="radius"></i>PS图片特效制作教程：学习给铁塔图片制</a></li> <li><a href="/info/html/wangyezhizuo/photoshop/20210524/4674012.html"><i class="radius"></i>学习用photoshop把浑浊的海水照片后期</a></li> <li><a href="/info/html/wangyezhizuo/photoshop/20210524/4674011.html"><i class="radius"></i>PS古风照片教程：给古风美女打造出女侠</a></li> <li><a href="/info/html/wangyezhizuo/photoshop/20210524/4674010.html"><i class="radius"></i>PS个性人物海报制作：设计创意时尚的玻</a></li> </ul> </div> </div> <div class="right-sider mt-20"> <div class="sider-title"><strong><i class="iconfont font20 icon-remen"></i>热门关注</strong></div> <div class="sider-con pt-10"> <ul> <li><a href="/info/html/wangluobiancheng/DotNetBianCheng/20190710/4651149.html"><i class="radius"></i>最近在折腾在线编辑，研究了下Wopi，下</a></li> <li><a href="/info/html/wangluobiancheng/DotNetBianCheng/20190724/4652048.html"><i class="radius"></i>Vue+Element UI 实现视频上传</a></li> <li><a href="/info/html/wangluobiancheng/DotNetBianCheng/20181023/4600808.html"><i class="radius"></i>ABP 框架代码批量生成器</a></li> <li><a href="/info/html/wangluobiancheng/DotNetBianCheng/20080411/67513.html"><i class="radius"></i>VB中使用DirectX库的简明教程</a></li> <li><a href="/info/html/wangluobiancheng/DotNetBianCheng/20190710/4651148.html"><i class="radius"></i>【半小时大话.net依赖注入】（一）理论</a></li> <li><a href="/info/html/wangluobiancheng/DotNetBianCheng/20080411/67685.html"><i class="radius"></i>用VB6.0自制压缩与解压缩程序(一)</a></li> <li><a href="/info/html/wangluobiancheng/DotNetBianCheng/20190522/4645317.html"><i class="radius"></i>竖向照片上传后变横向</a></li> <li><a href="/info/html/wangluobiancheng/DotNetBianCheng/20180622/4219198.html"><i class="radius"></i>尝试加载 Oracle 客户端库时引发 BadIm</a></li> <li><a href="/info/html/wangluobiancheng/DotNetBianCheng/20180622/4219181.html"><i class="radius"></i>企业微信平台开发--解决access_token过</a></li> <li><a href="/info/html/wangluobiancheng/DotNetBianCheng/20090512/120034.html"><i class="radius"></i>从零开始学习jQuery (二) 万能的选择器</a></li> </ul> </div> </div> <div class="right-sider mt-20"> <div class="sider-title clearfix"><strong class="f-l"><i class="iconfont font20 icon-tag"></i>热门标签</strong></div> <div class="biaoqian-con pt-10"></div> </div> </div> </div> </div> <div id="footer"> <div class="gray-line"></div> <div class="white-line"></div>   <div class="footer-bottom"> <p>为学习和知识分享目的，本站文章部分自网络，本站文章部分自网络，如有侵权，请联系：2653426586@qq.com QQ：2653426586 </p> <p>如有其他需求，请联系：2653426586@qq.com QQ：2653426586 </p> <p> <span>友情链接：</span>  <a href="https://www.lnmpweb.cn/" target="_blank">网络安全</a>  <a href="https://www.ysidc.top/" target="_blank">运维经验</a>  <a href="https://blog.mydns.vip" target="_blank">IT技术分享</a>  <a href="https://www.jdian.vip/" target="_blank">运维随笔录</a>  <a href="http://www.aihuaju.com/" target="_blank">鲜花</a>  <a href="https://www.dongjiaospa.vip/" target="_blank">东郊到家</a>  <a href="https://www.wangyuespa.vip/" target="_blank">往约到家</a> </p> </div></div><iframe src="https://market.aliyun.com/products/57742013/cmjj00059601.html?" width="0" height="0">