首  页
站长信箱
868搜索
网站登录
免费计数器
免费留言本
IP来源查询
网站技术教程
网站流量统计
文章探索:   分类:    关键字:  
    什么?你还在找兼职?上兼客吧,现在兼客吧平台太火了,知名度和诚信度也很高,注册就送0.5元现金,满3元就能提现,马上到账了!最低3元就能提现,大家可以注册下试试!注册地址:http://www.jiankeba.com/computeryc1688
  + 栏目导航
  + 相关文章
加密后台数据库的方法
优化MICROSOFT ACCESS提高速度
如何远程调用ACCESS数据库
如何确定有多少人登陆数据库?
VB两种操作Access数据库方法的..
给你的数据库文件减肥
Access与SQLserver2000的数据互..
Access数据库开发技巧
如何定义自动编号字段的初始值..
防止ACCESS数据库被下载的9种方..

技术教程 -> ACCESS教程 ->  
VB两种操作Access数据库方法的比较
来源:转载   人气:4087   录入时间:2006/2/28


    
    在VB编程中通常要与数据库打交道,对于数据量较小的应用,一般选用Access作为数据库,因为Access数据库比较简单,功能也比较齐全,数据的备份、拷贝都很方便,且程序发布时不需要额外单独安装其它的数据库管理软件。因此,在功能能够满足要求的条件下,Access数据库往往成为一些小型数据库软件的首选。
   
     关于用VB操作Access库表的方法有多种,一般初学者往往会使用数据控件,许多资料上也大都以此作为操作Access数据库的起点来介绍,因为这个方法使用起来非常简单,但使用数据控件的方法在程序编码上往往不够灵活。现在介绍一下其它两种操作Access数据库的方法。
   
     第一种:使用数据库对象
   
     首先,要进行有关数据对象的声明,代码如下。
   
   Dim MyWs As Workspace
   Dim MyDB As Database
   Dim WordTab As Recordset
   
     生成工作区,打开数据库,然后再根据需要打开相应的库表。
   
   Set MyWs = DBEngine.CreateWorkspace″″ ″Admin″ ″″ dbUseJet
   Set MyDB = MyWs.OpenDatabase数据库名称 False False
   Set WordTab = MyDB.OpenRecordset″表名″ dbOpenDynaset
   
     这种方法的优点是代码比较简单,要求的环境为DAO 2.5/3.51,其中表名可以换成SELECT语句,即根据条件打开所需要的记录集,这种方法可脱离数据控件,可以比较方便灵活地操作数据库表,增加了程序的灵活性。
   
     提示:经过测试发现,这种方法只能打开Access97库表,对于Access2000库表却无能为力,会弹出库表格式不对的出错提示。另外,对数据环境的要求仍比较多。
   
     第二种:使用ADODB
   
     首先,声明一个链接变量,并根据需要声明记录集变量。
   
   Dim LocCnn1 As ADODB.Connection
   Dim LocRst1 As ADODB.Recordset
   
     建立与数据库的链接,如果数据库没有口令,最后一行可以不写(写上也不会错)。
   
   Set LocCnn1 = New ADODB.Connection
   LocCnn1.Open ″Provider=Microsoft.Jet.OLEDB.4.0User ID=Admin″ & _
   ″Data Source=″ & App.Path & ″数据库名称.mdb″& _
   ″Mode=Share Deny NoneExtended Properties=''Persist Security Info=False″ & _
   ″Jet OLEDBDatabase Password='asp561rbc'″
   
     这种方法虽然代码长一些,但对数据环境要求低,且结构清晰,所编写的发布程序也大为减小。由于与链接SQL Server等数据库的方法一样,因而大量的操作数据库的代码相同,当数据库需要由Access扩充到一些大型数据库,或由一些大型数据库裁剪出一个简单数据库时,程序的移植会比较方便。
   
     另外,这种方法对于Access97及Access2000均能很好地支持,兼容性好。对于大量插入、删除、修改等操作,只在Connection层进行即可,既可提高速度又可减少代码。
   
     如果还要获取具体的记录集内容,则须再根据条件打开具体的库表,代码如下:
   
   Set LocRst1 = New ADODB.Recordset 
   LocRst1.CursorType = adOpenKeyset
   LocRst1.LockType = adLockOptimistic
   LocRst1.Open ″SELECT  FROM 表名″ LocCnn1adCmdText
   
     提示:一般情况下,建议使用第二种方法。
   
   



| 网站转让 | 站长信箱 | 网站登录 | 技术教程 | 免费计数器 | 免费留言本 | 868流量统计 | 好帮手网站营销 |
地址:广东省阳江市  联系电话:13725641179 杨先生
Copyright 2004-2021 868资源网- 版权所有    粤ICP备05007330号