如何用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”即可訪問你所要訪問的外來數據庫了。
使用這種方法訪問外來數據庫應該注意的是，附加表在所加到的數據庫中只是建立了一個鏈接關系，表的實際所在，仍然存在于原數據庫中，該表在所附加到的數據庫中被刪除時，只是刪掉了鏈接關系，實際的表并沒有被刪除。

文章來源于領測軟件測試網 http://www.kjueaiud.com/