如何用VB访问外来数据库一例

第一步：建立一个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

Deleted=on

这样通过访问新数据库MYDB.MDB和表“DBASEAU THORTABK”即可访问你所要访问的外来数据库了。

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