vb基础 vb实例教程 api调用 控件使用 经验技巧 数据库操作 算法及技术 vb源码下载
  杀毒频道 | 短信频道 | 网络电视 | 论文中心 | 学上网 | 学软件 | 网页特效 | 电脑基础 | 返回首页  
  NCRE | 软考 | CET | 职称英语 | 司法考试 | 报关员 | 公务员 | CATTI | CPA考试  
  Html教程 | Css教程 | Xml教程 | Asp教程 | Asp.net | Php教程 | Jsp教程 | Linux教程 | QQ技巧  
Photoshop Illustrator ImageReady Maya教程 3D Max教程 Lightscape Coredraw教程 Authorware Autocad教程 Freehand教程
Access教程 Mysql教程 Sql server Oracle教程 Word教程 Excel教程 Powerpoint Frontpage Asp.net源码 Php源代码
Flash教程 Fireworks Dreamweaver C#教程 outlook教程 系统安装 vbscript教程 Javascript Jsp源代码 Asp源代码
您的位置:首页 >> vb教程

访问Microsoft Jet数据库
----用Microsoft Jet 访问桌面数据库(一)
文章来源:vb大世界

访问其它Microsoft Jet数据库(.mdb)中的数据,包括用M1crosoft Jet的老版本建的各种数据库。

1.链接外部 Microsoft Jet表
为了在本地 Microsoft Jet数据库中链接外部Microsoft Jet表,可以先用OpenDatabase方法打开本地Microsoft Jet数据库,建立一个TableDef对象,并设置该对象的 Connect和SourceTableName属性,以分别指定希望链接的外部Microsoft Jet表的路径和名称。这种方法适用于Microsoft Jet 1.x,2.x和3.x数据库。

例:编写程序链接外部MicrosoftJet表。在窗体上画一个命令按钮,然后编写如下事件过程:

Private sub Commandl_C1ick()Dim dbsJet As DatabaseDim tdfExtemalJetTable As TableDef‘打开Microsoft Jet数据库Set dbsJet=OpenDatabase ("C:\dbdir\db1.mdb")’建立TableDef对象Set tdfExtemalJetTable=dbsJet.CreateTableDef ("LinkTable")’设置连接信息

tdfExtemalJetTable.Connect=";DATABASE=" & "d:\dbtest\dbtest.mdb"

tdfEXternalJetTable.SourceTableName="tb"

’追加TableDef对象以创建链接

dbSJet.TableDefs.Append tdfExtemalJetTable

’显示确认信息

MSgBOx "F1nishedlinhng" & tdfEXternalJetTable.SourceTableName & ".",0

End Sub

该例链接了外部Microsoft Jet表,然后显示一个信息框作为确认。注意,当连接使用Microsoft Jet数据库引擎的外部数据库时,不能用源数据库类型作为连接字符串。本例中的连接字符串以一个分号开头,而不是以源数据库类型开头。说明:

(1)建立了对一个表的链接之后,就可以像处理其它Access表一样来使用链接表。但是应注意,在引用链接表时,不要使用表的初始名,而应使用链接该表时为其分配的名字。对于上面的例子来说,所建立的链接表为LinkTable,可以用下面的语句打开这个表:

Set MyTable=MyDB.OPenReCordset(“LinkTable“,dbOPenTable)

(2)在链接一个外部表后,如果试图再次链接该表,将会显示出错信息。因此,在运行一个链接外部表的程序时,应确保要建立的链接表不存在,或者在处理完后解除链接。可以用TableDefs集合的Delete方法解除链接,例如:

MvDB.TableDefs.Delete”LinkTable“2.打开外部Microsoft Jet表可以用OpenDatabase方法直接打开外部Microsoft Jet表,分别用路径、独占访问值、只读值和数据源名称作为参数。

例:编写程序,打开外部MicrOsoftJet表,并输出表的内容。在窗体上画一个命令按钮,然后编写如下的事件过程:

Private Sub Command1_Click()Dim dbsExtemalJet As Database

Dim rstAccounts As Recordset

FontSize=12

’打开名为dbtest的外部MicrosoftJet数据库Set dbsExtemalJet=OpenDatabase ("d:\dbtest\dbtest.mdb",False,False,"")

'打开tb表中的Recordset

Set rstAccounts=dbsExtemalJet.OpenRecordset("tb")

Print Tab(2); "姓名"; Tab(14); "地址"; Tab(32); "电话"; _

Tab(44); "邮政编码"

Print

DO Until rstAccounts.EOF

Print rstAccounts.姓名; " ";

Print rstAccounts.地址;

Print Tab(30); rstAccounts.电话;

Print Tab(44); rstAccounts.邮政编码

rstAccounts.MoveNextlooprstAccounts.closedbSEXtemalJet.Close

End sub

该例打开了一个外部Microsoft Jet表,然后从该表中建立Recordset对象,并输出表中的全部记录。

[返回]

编程语言 web开发 数据库 网络技术 操作系统 服务器 网页设计 图形设计 办公软件 常用软件 学电脑

Copyright© www.bianceng.cn Powered by 编程入门网 All Rights Reserved.
关于本站 | 版权声明 | 联系我们 | 友情链接 |
编程入门网 版权所有