VB应用小集————访问VB外来数据库.docVIP

VB应用小集————访问VB外来数据库 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 Deleted=on 这样通过新数据库MYDB.MDB和表“DBASEAU THORTABK”即可你所要的外来数据库了。 使用这种方法外来数据库应该注意的是，附加表在所加到的数据库中只是建立了一个关系，表的实际所在，仍然存在于原数据库中，该表在所附加到的数据库中被删除时，只是删掉了关系，实际的表并没有被删除。