如何用VB访问外来数据库

文章作者 100test 发表时间 2007:11:14 12:59:11
来源 100Test.Com百考试题网

vb最引人注目的特点，也是其最令程序员关心的地方，就是它访问多种数据库的强大功能。vb中将非ms access数据库称为外来数据库(external database)，如dbase、foxpro、odbc等。vb中使用数据控制访问外来数据库同访问access数据库类似，这里不再赘述，现在主要读一下用生成对象的方法来访问外来数据库。访问外来数据库((以dbase为例)大致分为以下几步：

　　第一步：建立一个access型数据库，并在数据库中创建新表—即为附加表。通过设置

　　附加表的各属性值，使其与你所要访问的数据库建立链接关系。程序代码如下：
　　　　dimdbasdatabase
　　　　dimtdasnewtabledef
　　　　setdb=opendatabase("mydb.mdb")
　　　　td.connect="dbase:database=c:\datadir"
　　　　td.sourcetablename="au thor"
　　　　td.name="dbaseauthortable"
　　　　db.tabledefsappendtd
　　　　db.close
　　第二步：设置ini文件路径。在vb的程序中使用了访问外来数据库操作，将应用程序生成exe文件后，必须提供一个ini文件。若找不到这个ini文件，将会导致不能访问数据库，并出现“notfoundin stollabkisams’的错误信息。设置ini文件路径后，vb的程序会在windows子目录中寻找与应用程序同名的ini文件。设置ini文件路径代码为：

　　　　setdataaccessoption1,“path\filename”

　　第三步：编辑.ini文件可对不同种类的数据库进行设置，下面为一ini文件代码：
　　　　［options］
　　　　systemdb=c: \mypath\system.mda
　　　　［isam］
　　　　pagetimeout=5
　　　　maxbuffersize=128
　　　　lockretry=20
　　　　commitlockpetry=20
　　　　readaheadpages=16
　　　　［installableisams］
　　　　paradox3.x=c:\vb\pdx110.dll
　　　　foxpro2.0=c:\vb\xbs110.dll
　　　　foxpro2.5=c:\vb\pdx110.dll
　　　　dbase=c:\vb\pdx110.dll
　　　　dbase=c:\vb\pdx110.dll
　　　　btrieve=c:\vb\btrv110.dll
　　　　［paradoxisam］
　　　　pagetimeout=600
　　　　paradoxusername=baiuser
　　　　paradoxnetpath=p:\pdxdb\
　　　　collatingseguence=ascii
　　　　［dbase］
　　　　centry=off
　　　　data=american
　　　　mark=47
　　　　0deleted=on
　　这样通过访问新数据库mydb.mdb和表“dbaseau thortabk”即可访问你所要访问的外来数据库了。

　　使用这种方法访问外来数据库应该注意的是，附加表在所加到的数据库中只是建立了一个链接关系，表的实际所在，仍然存在于原数据库中，该表在所附加到的数据库中被删除时，只是删掉了链接关系，实际的表并没有被删除。