非Access數據庫在VB中的編程及應用

2019-11-18 17:35:37

字體：大中小

來源：轉載

供稿：網友

摘要VisualBasic有著強大的數據庫存取能力，不僅能夠直接支持Ms access數據庫，而且通過其內部安裝的ISAM驅動程序使它能間接支持FoxPRo、dBASE等外來數據庫。本文不僅從VB數據庫體系結構的角度探討了VB對這些外來數據庫的支持，還結合了一些實例具體闡述了使用數據庫存取對象變量的方法實現這些外來數據庫的新建、庫結構修改、顯示及其運行環境設置。關鍵詞VisualBasicAccess外來數據庫數據庫存取對象變量庫結構　作為一個功能較完備的Windows軟件開發平臺，VisualBasic專業版提供了對數據庫應用的強大支持。尤其提供了使用數據控件和綁定控制項，使用數據庫存取對象變量（DataAccessObjectVariable），直接調用ODBC2.0API接口函數等三種訪問數據庫的方法。對其標準內置的MsAccess數據庫，它可以提供不弱于專業數據庫軟件的支持，可以進行完整的數據庫維護、操作及其事務處理。在VB中，將非Access數據庫稱為外來數據庫。對于FoxPro、dBASE、Paradox等外來數據庫。雖然借助VB的DataManager能夠對這些數據庫進行NEW、OPEN、DESIGN、DELETE等操作，但在應用程序的運行狀態中并不能從底層真正實現這些功能。本文從使用數據庫存取對象變量的方法出發，實現了非Access格式數據庫（以FoxPro數據庫為例）的建新庫、拷貝數據庫結構、動態調入等操作，闡述了從編程技巧上彌補VB對這些外來數據庫支持不足的可行性。

一、VB數據庫的體系結構具體的VB的數據庫結構請先看下圖。可見VB數據庫的核心結構是所謂的MicroSoftJET數據庫引擎，JET引擎的作用就像是一塊“面板”，在其上可以插入多種ISAM（IndexedSequentialAccessMethod，即索引順序存取方法）數據驅動程序。JET引擎為Access格式數據庫提供了直接的內部（build-in）支持，這就是VB對Access數據庫具有豐富支持的真正原因。VB專業版中提供了FoxPro、dBASE（或Xbase）、Paradox、Btrieve等數據庫的ISAM驅動程序，這就使得VB能支持這些數據庫格式。另外，其他的許多兼容ISAM的驅動程序也可以通過從廠商的售后服務得到。因而從理論上說，VB能支持所有兼容ISAM的數據庫格式（前提是只需獲得這些數據庫的ISAM驅動接口程序）。由上可見，MsJET引擎實質上提供了：一個符合ANSI標準的語法分析器；為查詢結果集的使用而提供的內存管理功能；同所支持的數據庫的外部接口；為應用代碼提供的內部接口。實際上，在VB中從一種數據庫類型轉化為另一種數據庫類型幾乎不需要或只需要很少的代碼修改。而且，盡管dBASE、Paradox本身的DDL（DataDefinitionLanguage，即數據定義語言）和DML（DataMangwMaxGridRows=Val(GetINIString(“MyDB.INI”,"MaxRows","250"))
glQueryTimeout=Val(GetINIString(“MyDB.INI”,"QueryTimeout","5"))
glLoginTimeout=Val(GetINIString(“MyDB.INI”,"LoginTimeout","20"))
EndSub

三、數據存取對象變量對外來數據庫編程的方法及其實例在VB專業版數據庫編程的三種方法中，第二種—使用數據庫存取對象變量（DAO）的方法最具有功能強大、靈活的特點。它能夠在程序中存取ODBC2.0的管理函數；可以控制多種記錄集類型：Dynaset，Snapshot及Table記錄集合對象；可以存儲過程和查詢動作；可以存取數據庫集合對象，例如TableDefs，Fields，Indexes及QueryDefs；具有真正的事物處理能力。因而，這種方法對數據庫處理的大多數情況都非常適用。由于VB中的記錄集對象與所使用的數據庫格式及類型是相互獨立的，所以在非Access數據庫中也可以使用數據庫存取對象變量的方法。因而對FoxPro等外來數據庫而言，使用數據庫存取對象變量的方法同樣也是一種最佳的選擇。有一點需要注意的是，VB的標準版中僅能使用數據控件（DataControl）對數據庫中的記錄進行訪問，主要的數據庫存取對象中也僅有Database、Dynaset對象可通過數據控件的屬性提供，其它的重要對象如TableDef、Field、Index、QueryDef、Snapshot、Table等均不能在VB的標準版中生成，所以使用數據存取對象變量的方法只能用VB3.0以上的專業版。
（一）、非Access數據庫的新建及庫結構的修改VB專業版中的數據庫存取對象變量可以分為兩類，一類用于數據庫結構的維護和管理，另一類用于數據的存取。其中表示數據庫結構時可以使用下面的對象：
DataBase、TableDef、Field、Index，以及三個集合（Collection）：TableDefs、Fields和Indexes。
每一個集合都是由若干個對象組成的，這些數據對象的集合可以完全看作是一個數組，并按數組的方法來調用。一旦數據庫對象建立后，就可以用它對數據庫的結構進行修改和數據處理。對于非Access數據庫，大部分都是對應于一個目錄，所以可以使用VB的MkDir語句先生成一個目錄，亦即新建一個數據庫。而每一個非Access數據庫文件可看作是此目錄下的一個數據表（Table），但實際上它們是互相獨立的。下面是新建一個FoxPro2.5格式數據庫的程序實例。
SubCreateNew()
DimDb1Asdatabase，TdAsTableDefs
DimT1AsNewTabledef，F1AsNewField，F2AsNewField，F3AsNewField
DimIx1AsNewIndex
DimPathAsString
ConstDB_TEXT=10，DB_INTEGER=3ChDir"/"
Path$=InputBox("請輸入新路徑名：","輸入對話框")
MkDirPath$'新建一個子目錄
SetDb1=OpenDatabase(Path$,True,False,"FoxPro2.5;")
SetTd=Db1.TableDefs
T1.Name="MyDB"'新建一個數據表，數據表名為MyDB
F1.Name="Name"，F1.Type=DB_TEXT，F1.Size=20F2.Name="Class"，F2.Type=DB_TEXT，F2.Size=20F3.Name="Grade"，F3.Type=DB_INTEGERT1.Fields.AppendF1'向數據表中添加這些字段
T1.Fields.AppendF2->

上一篇：巧用CLIPBOARD建立圖像數據庫

下一篇：使用VB收發電子郵件