论坛交流
首页办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库Asp.net  | Flash AS
当前位置 > 文字教程 > Access数据库教程
Tag:2000,2003,2007,查询,sql,,教程,安全,转换,排序,复制,删除,修改,视频教程

VB两种操作Access数据库的方法

文章类别:Access数据库 | 发表日期:2010-7-31 15:13:13

  第一种:使用数据库对象

  首先,要进行有关数据对象的声明,代码如下。

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

  提示:一般情况下,建议使用第二种方法。

上一篇:Access 2002的实用技巧 人气:2708
下一篇:{教程}ACCESS集锦 人气:2907
视频教程列表
文章教程搜索
 
Access数据库推荐教程
Access数据库热门教程
看全部视频教程
购买方式/价格
购买视频教程: 咨询客服
tel:15972130058