访问MicrosoftJet数据库---用MicrosoftJet访问桌面数据库(一)

2016-02-19 12:27 10 1 收藏

get新技能是需要付出行动的,即使看得再多也还是要动手试一试。今天图老师小编跟大家分享的是访问MicrosoftJet数据库---用MicrosoftJet访问桌面数据库(一),一起来学习了解下吧!

【 tulaoshi.com - 编程语言 】

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

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

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

PrivatesubCommandl_C1ick()

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)DimdbsJetAsDatabase

DimtdfExtemalJetTableAsTableDef

‘打开MicrosoftJet数据库

SetdbsJet=OpenDatabase("C:dbdirdb1.mdb")

'建立TableDef对象

SettdfExtemalJetTable=dbsJet.CreateTableDef("LinkTable")

'设置连接信息

tdfExtemalJetTable.Connect=";DATABASE="&"d:dbtestdbtest.mdb"

tdfEXternalJetTable.SourceTableName="tb"

'追加TableDef对象以创建链接

dbSJet.TableDefs.AppendtdfExtemalJetTable

'显示确认信息

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

EndSub

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

说明:

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

SetMyTable=MyDB.OPenReCordset(“LinkTable“,dbOPenTable)

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

MvDB.TableDefs.Delete”LinkTable“

2.打开外部MicrosoftJet表

可以用OpenDatabase方法直接打开外部MicrosoftJet表,分别用路径、独占访问值、只读值和数据源名称作为参数。

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

PrivateSubCommand1_Click()

DimdbsExtemalJetAsDatabase

DimrstAccountsAsRecordset

FontSize=12

'打开名为dbtest的外部MicrosoftJet数据库

SetdbsExtemalJet=OpenDatabase("d:dbtestdbtest.mdb",False,False,"")

'打开tb表中的Recordset

SetrstAccounts=dbsExtemalJet.OpenRecordset("tb")

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

Tab(44);"邮政编码"

Print

DOUntilrstAccounts.EOF

PrintrstAccounts.姓名;"";

PrintrstAccounts.地址;

PrintTab(30);rstAccounts.电话;

PrintTab(44);rstAccounts.邮政编码

rstAccounts.MoveNext

loop

rstAccounts.close

dbSEXtemalJet.Close

Endsub

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)该例打开了一个外部MicrosoftJet表,然后从该表中建立Recordset对象,并输出表中的全部记录。

->

来源:http://www.tulaoshi.com/n/20160219/1600918.html

延伸阅读
1.尽量使用事务处理更新数据库 VB的事务处理包括以BeginTrans开始,以CommitTrans或Rollback结尾的多条数据库操作指令。事务处理除了能很好的保证数据库的完整性以外,同时能大大提高数据库批量更新的效率。这是因为如果数据库更新操作没有使用事务处理,则每次Update操作都会引起数据库写盘一次。使用事务处理后,更新只在内存缓冲区内进行...
using System; using System.Data; using System.Data.OleDb; using System.Collections; namespace XLang.VideoOnline.Framework.Database.Access { /// /// Summary description for ACCESS_DataViewsCollection. /// public class DataViewsCollection { private Database.Access.DataView[] _views; private int _count; pub...
标签: ASP
一. 访问WEB数据库的多种方案   目前在WINDOWS环境下有多种访问WEB数据库的技术,主要有:   1.公共网关接口CGI(Common Gateway Interface)   CGI是较早实现的技术。适用于多种服务器平台,如UNIX、WINDOWS等,但CGI的开发成本高、维护困难、功能有限、不具备事务处理功能、占用服...
using System; using System.Data; using System.Data.OleDb; using System.Collections; namespace XLang.VideoOnline.Framework.Database.Access { /// /// Summary description for ACCESS_DataTablesCollection. /// public class DataTablesCollection { private Database.Access.DataTable[] _tables; private int _count; ...
通过控件访问数据库 (1)启动VB。 (2)出现如图10.12所示的新建工程的选项卡。 (3)出现如图10.13所示的VB主界面。 (4)如图10.14所示。 (5)出现如图10.15所示的界面。 ――――――――――――――――――――――――――――――――――――― odbc;dsn=graduateDB;uid=scott;pwd=...

经验教程

849

收藏

78
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部