西安外事學院工學院 文 欣

存取對象變量庫結(jié)構(gòu)作為一個功能較完備的Windows軟件開發(fā)平臺，Visual Basic專業(yè)版提供了對數(shù)據(jù)庫應用的強大支持。尤其提供了使用數(shù)據(jù)控件和綁定控制項，使用數(shù)據(jù)庫存取對象變量（Data Access Object Variable），直接調(diào)用ODBC 2.0 API接口函數(shù)等三種訪問數(shù)據(jù)庫的方法。對其標準內(nèi)置的Ms Access數(shù)據(jù)庫，它可以提供不弱于專業(yè)數(shù)據(jù)庫軟件的支持，可以進行完整的數(shù)據(jù)庫維護、操作及其事務(wù)處理。在VB中，將非Access數(shù)據(jù)庫稱為外來數(shù)據(jù)庫。對于FoxPro、dBASE、Paradox等外來數(shù)據(jù)庫。雖然借助VB的Data Manager能夠?qū)@些數(shù)據(jù)庫進行NEW、OPEN、DESIGN、DELETE等操作，但在應用程序的運行狀態(tài)中并不能從底層真正實現(xiàn)這些功能。本文從使用數(shù)據(jù)庫存取對象變量的方法出發(fā)，實現(xiàn)了非Access格式數(shù)據(jù)庫（以FoxPro數(shù)據(jù)庫為例）的建新庫、拷貝數(shù)據(jù)庫結(jié)構(gòu)、動態(tài)調(diào)入等操作，闡述了從編程技巧上彌補VB對這些外來數(shù)據(jù)庫支持不足的可行性。

一、VB數(shù)據(jù)庫的體系結(jié)構(gòu)具體的VB的數(shù)據(jù)庫結(jié)構(gòu)

VB數(shù)據(jù)庫的核心結(jié)構(gòu)是所謂的MicroSoft JET數(shù)據(jù)庫引擎，JET引擎的作用就像是一塊“面板”，在其上可以插入多種ISAM（Indexed Sequential Access Method，即索引順序存取方法）數(shù)據(jù)驅(qū)動程序。

VB專業(yè)版中提供了FoxPro、dBASE（或Xbase）、Paradox、Btrieve等數(shù)據(jù)庫的ISAM驅(qū)動程序，這就使得VB能支持這些數(shù)據(jù)庫格式。另外，其他的許多兼容ISAM的驅(qū)動程序也可以通過從廠商的售后服務(wù)得到。因而從理論上說，VB能支持所有兼容ISAM的數(shù)據(jù)庫格式（前提是只需獲得這些數(shù)據(jù)庫的ISAM驅(qū)動接口程序）。

由上可見，Ms JET引擎實質(zhì)上提供了：一個符合ANSI標準的語法分析器；為查詢結(jié)果集的使用而提供的內(nèi)存管理功能；同所支持的數(shù)據(jù)庫的外部接口；為應用代碼提供的內(nèi)部接口。實際上，在VB中從一種數(shù)據(jù)庫類型轉(zhuǎn)化為另一種數(shù)據(jù)庫類型幾乎不需要或只需要很少的代碼修改。而且，盡管dBASE、Paradox本身的DDL（Data Definition Language，即數(shù)據(jù)定義語言）和DML（Data Manipulation Language，即數(shù)據(jù)操縱語言）是非結(jié)構(gòu)化查詢的，但它們?nèi)匀豢梢允褂肰B的SQL語句和JET引擎來操縱。

從VB的程序代碼的角度來看，ODBC，ISAM驅(qū)動程序以及Ms Access數(shù)據(jù)庫的整個外部結(jié)構(gòu)夠可以統(tǒng)一為一個一致的編程接口。也即是說，提供給VB應用程序員的記錄集對象視圖同所使用的數(shù)據(jù)庫格式及類型是相互獨立的。即對FoxPro等數(shù)據(jù)庫仍然可以使用眾多的數(shù)據(jù)庫存取對象變量，這就為非Access數(shù)據(jù)庫的訪問提供了最重要的方法。

二、使用非Access數(shù)據(jù)庫時的參數(shù)設(shè)置及配置文件的參數(shù)讀取

如果在VB的程序中使用了數(shù)據(jù)庫的操作，將應用程序生成EXE文件或打包生成安裝程序后，則必須提供一個配置（.INI）文件，在INI文件中可以對不同類型的數(shù)據(jù)庫進行設(shè)置。通常情況下，INI文件的文件名和應用程序的名稱相同，所以如果沒有指明，VB的程序會在Windows子目錄中去找和應用程序同名的INI文件?？梢允褂肰B中的SetDataAccessOptions語句來設(shè)置INI文件。

SetDataAccessOptions語句的用法如下：

SetDataAccessOptions 1，IniFile-Name其中IniFileName參數(shù)指明的是INI文件的帶路徑的文件名。值得注意的是，當應用程序找不到這個INI文件時，或在調(diào)用OpenDataBase函數(shù)時對其Connect參數(shù)值沒有設(shè)定為VB規(guī)定的標準值，如對FoxPro 2.5格式設(shè)定為了"FoxPro;"（應為"FoxPro 2.5;"），或者沒有安裝相應的ISAM驅(qū)動程序，則此時VB會顯示一條錯誤信息"Not Found Installable ISAM"。通常，INI文件在應用程序分發(fā)出去以前已經(jīng)生成，或者在安裝時動態(tài)生成，也可以在應用程序中自己生成。通常這種INI文件中有"[Options]"、"[ISAM]"、"[Installed ISAMs]"、"[FoxPro ISAM]"、"[dBASE ISAM]"、"[Paradox ISAM]"等設(shè)置段，對于一個完整的應用程序則還應有一個屬于應用程序自己的設(shè)置段如"[MyDB]"?？稍谄渲性O(shè)置DataType、Server、DataBase、OpenOnStartup、DisplaySQL、QueryTimeOut等較為重要的數(shù)據(jù)庫參數(shù)，并以此限定應用程序一般的運行環(huán)境。Windows API接口函數(shù)在Kernel.exe動態(tài)鏈接庫中提供了一個OSWritePrivateProfileString函數(shù)，此函數(shù)能按Windows下配置文件（.INI）的書寫格式寫入信息。

設(shè)此應用程序的配置文件為MyDB.INI，則具體過程如下：Funtion GetINIString$(Byval Fname$，Byval szItem$，Byval szDeFault$)'此自定義子函數(shù)實現(xiàn)INI文件內(nèi)設(shè)置段內(nèi)參數(shù)的讀取Dim Tmp As String，x As Integer Tmp=String(2048，32)x=OSGetPrivat eProfileString(Fname$，szItem$，szDefault$，Tmp，Len(Tmp)，"MyDB.INI")GetINIString=Mid$(Tmp，1，x)EndFunction以下這些函數(shù)的聲明可寫在模塊文件內(nèi)，且每個函數(shù)的聲明必須在一行內(nèi)Declare Function OSGetPrivateProfileString% Lib"Kerne l"Alias"GetPrivateProfileString"(By Val AppName$，ByVal KeyName$，ByVal keydefault$，ByVal ReturnString$，ByVal NumBytes As Integer，ByVal FileName$)Declare Function OSWritePrivateProfileString% Lib"Kern el"Alias"WritePrivateProfileString"(B yVal AppName$，ByVal KeyName$，ByVal keydefault$，ByVal FileName$)Declare Function OSGetWindowsDirectory% Lib"K ernel"Alias"GetWindowsDirectory"(ByV al a$，ByVal b%)Sub Form1_Load( )Dim st As String Dim x As Integer Dim tmp As String tmp=String$(255，32)'

INI文件內(nèi)為各種數(shù)據(jù)庫格式指明已安裝的相應ISAM驅(qū)動程序x=OSWrit ePrivateProfileString(“Installab le ISAMS”，"Paradox 3.X"，"PDX110.DLL"，"MyDB.INI")x=OSWritePrivateP rofileString("Installable ISAMS"，"dBASE III"，"XBS110.DLL"，"MyDB.INI")x=OSWritePrivateProfileString("Installable ISAMS"，"dBASE IV"，"XBS110.DLL"，"MyDB.INI")x=OSWrite PrivateProfileString("Installable ISAMS"，"FoxPro 2.0"，"XBS110.DLL"，"MyDB.INI" )x=OSWritePrivateProfile String("Installable ISAMS"，"FoxPro 2.5"，"XBS110.DLL"，"MyDB.INI")x=O SWritePrivateProfileString("Instal lable ISAMS"，"Btrieve"，"BTRV110.DLL"，"MyDB.INI")x=OSWritePrivatePro fileString("dBase ISAM"，"Deleted"，"On"，"MyDB.INI")’指明INI文件的位置x=OSGetWindowsDirectory(tmp，255)st=Mid$(tmp，1，x)SetDataAccessOption 1，s t+"m y d b.i n i"‘獲得I N I文件一些參數(shù)g w M a x G r i d R o w s=Val(GetINIString("MyDB.INI"，"MaxRows"，"250")) glQueryTimeout=Val(GetINIString("MyDB.INI"，"QueryTimeout"，"5")) glLoginTimeout=Val(GetINIString("MyDB.INI"，"LoginTimeout"，"20" ))End Sub

三、數(shù)據(jù)存取對象變量對外來數(shù)據(jù)庫編程的方法及其實例

在VB專業(yè)版數(shù)據(jù)庫編程的三種方法中，第二種，使用數(shù)據(jù)庫存取對象變量（DAO）的方法最具有功能強大、靈活的特點。它能夠在程序中存取ODBC 2.0的管理函數(shù)；可以控制多種記錄集類型：Dynaset，Snapshot及Table記錄集合對象；可以存儲過程和查詢動作；可以存取數(shù)據(jù)庫集合對象，例如TableDefs，F(xiàn)ields，Indexes及QueryDefs；具有真正的事物處理能力。因而，這種方法對數(shù)據(jù)庫處理的大多數(shù)情況都非常適用。

由于VB中的記錄集對象與所使用的數(shù)據(jù)庫格式及類型是相互獨立的，所以在非Access數(shù)據(jù)庫中也可以使用數(shù)據(jù)庫存取對象變量的方法。因而對FoxPro等外來數(shù)據(jù)庫而言，使用數(shù)據(jù)庫存取對象變量的方法同樣也是一種最佳的選擇。

非Access數(shù)據(jù)庫的新建及庫結(jié)構(gòu)的修改VB專業(yè)版中的數(shù)據(jù)庫存取對象變量可以分為兩類，一類用于數(shù)據(jù)庫結(jié)構(gòu)的維護和管理，另一類用于數(shù)據(jù)的存取。其中表示數(shù)據(jù)庫結(jié)構(gòu)時可以使用下面的對象：

DataBase、TableDef、Field、Index，以及三個集合（Collection）：TableDefs、Fields和Indexes。每一個集合都是由若干個對象組成的，這些數(shù)據(jù)對象的集合可以完全看作是一個數(shù)組，并按數(shù)組的方法來調(diào)用。對于非Access數(shù)據(jù)庫，大部分都是對應于一個目錄，所以可以使用VB的MkDir語句先生成一個目錄，亦即新建一個數(shù)據(jù)庫。而每一個非Access數(shù)據(jù)庫文件可看作是此目錄下的一個數(shù)據(jù)表（Table），但實際上它們是互相獨立的。

下面是新建一個FoxPro 2.5格式數(shù)據(jù)庫的程序?qū)嵗?/p>

Sub CreateNew( )Dim Db1 As database，Td As TableDefs Dim T1 As New Tabledef，F(xiàn)1 As New Field，F(xiàn)2 As New Field，F(xiàn)3 As New Field Dim Ix1 As New Index Dim Path As String Const DB_TEXT=10，DB_INTEGER=3 ChDir""Path$=InputBox(“請輸入新路徑名：”，“輸入對話框”)MkDir Path$‘新建一個子目錄Set Db1=OpenDatabase(Path$，True，F(xiàn)alse，"FoxPro 2.5;")Set Td = Db1.TableDefs T1.Name="MyDB"‘新建一個數(shù)據(jù)表，數(shù)據(jù)表名為MyDB F1.Name="Name"，F(xiàn)1.Type=DB_TEXT，F(xiàn)1.Size=20 F2.Name="Class"，F(xiàn)2.Type=DB_TEXT，F(xiàn)2.Size=20 F3.Name="Grade"，F(xiàn)3.Type=DB_INTEGER T1.Fields.Append F1‘向數(shù)據(jù)表中添加這些字段T1.Fields.Append F2。

[1]明日科技.Visual Basic開發(fā)經(jīng)驗技巧寶典[M].人民郵電出版社,2007,9.

[2]邱李華,等.Visual Basic程序設(shè)計教程[M].機械工業(yè)出版社,2007,7.

[3]李淑華.VB程序設(shè)計及應用[M].高等教育出版社,2008,9.

[4]張勇.Visual Basic課程設(shè)計案例精編[M].中國水利水電出版社,2010,3.