筆者和同事們在使用VB對數(shù)據(jù)庫操作應(yīng)用時(shí)，總結(jié)了如下的幾種方法，供初學(xué)者參考，希望能對大家有所啟發(fā)。

　　1、數(shù)據(jù)庫打開/關(guān)閉方法的選擇

　　在通常情況下，數(shù)據(jù)庫的打開操作是在程序代碼中使用OpenDatabase方法實(shí)現(xiàn)，其格式如下：
Set database=workspace.OpenDatabase(dbname,options,readonly,connect)
可以通過指定數(shù)據(jù)庫名字、打開方式、連接信息等參數(shù)打開一個(gè)現(xiàn)已存在的數(shù)據(jù)庫，使用Close方法即可關(guān)閉該數(shù)據(jù)庫。由于涉及VB代碼的編寫，其軟件編制工作比較復(fù)雜。 另一方面，VB的數(shù)據(jù)控件(Data Control)也可以執(zhí)行數(shù)據(jù)庫的打用關(guān)閉操作。我們可以在數(shù)據(jù)控件的屬性窗口中預(yù)先填好數(shù)據(jù)庫打開的相關(guān)參數(shù)，一旦該數(shù)據(jù)控件啟動(dòng)，數(shù)據(jù)庫便會自動(dòng)以指定的方式打開，而當(dāng)該數(shù)據(jù)控件終止時(shí)，對應(yīng)的數(shù)據(jù)庫也將自動(dòng)關(guān)閉。對于按這二種方式打開的數(shù)據(jù)庫，其后的數(shù)據(jù)庫訪問操作沒有什么本質(zhì)的區(qū)別。

　　以上兩種數(shù)據(jù)庫打用關(guān)閉的方法各有千秋：使用OpenDatabase方法可以在程序運(yùn)行中動(dòng)態(tài)地設(shè)置數(shù)據(jù)庫打開參數(shù)，并且可以多次以不同的方式打開和關(guān)閉同一個(gè)數(shù)據(jù)庫，具有相當(dāng)大的靈活性。而如果使用數(shù)據(jù)控件，則不需要另外編寫VB代碼，只要在程序編制時(shí)預(yù)先設(shè)置數(shù)據(jù)庫的相關(guān)參數(shù)，程序開始運(yùn)行后便會自動(dòng)地以我們指定的方式打開數(shù)據(jù)庫，并在程序終止時(shí)自動(dòng)關(guān)閉該數(shù)據(jù)庫，因此顯得相當(dāng)方便。在實(shí)際應(yīng)用中，可以視情況的不同而采用不同的處理方法：如果要求數(shù)據(jù)庫在程序運(yùn)行中始終處于打開狀態(tài)并且其打開方式保持不變(如一直處于只讀狀態(tài))，那么，可以采用數(shù)據(jù)控件方法打開數(shù)據(jù)庫；如果要求數(shù)據(jù)庫在程序運(yùn)行中時(shí)而打開時(shí)而關(guān)閉，或者經(jīng)常在只讀和讀寫方式間來回切換，則只能采用OpenDatabase方法編寫程序代碼。

　　2、通過相對路徑指定數(shù)據(jù)庫文件

　　在很多情況下，不管采用上述哪一種方法打開數(shù)據(jù)庫，都必須在程序設(shè)計(jì)時(shí)就指定需要打開的數(shù)據(jù)庫文件。但是，我們通常不能保證該軟件完成后一定會被安裝在每臺機(jī)器的同一目錄下。因此該數(shù)據(jù)庫文件的絕對路徑一般在設(shè)計(jì)時(shí)還難以完全確定，只能采用相對路徑的辦法來解決這個(gè)問題。

　　在VB中，App對象是一個(gè)全局對象，用來提供當(dāng)前應(yīng)用程序的相關(guān)信息，其Path屬性反映的是當(dāng)前應(yīng)用程序的可執(zhí)行文件(.exe)所在的絕對路徑，并且只在程序運(yùn)行時(shí)才有效。通過使用App對象的Path屬性，可以方便地獲得當(dāng)前程序所在的目錄路徑。因此，如果把數(shù)據(jù)庫文件存放在與程序路徑相關(guān)的目錄下，便可以在程序設(shè)計(jì)時(shí)就指定數(shù)據(jù)庫文件的相對路徑，當(dāng)程序運(yùn)行時(shí)，通過App對象的Path屬性動(dòng)態(tài)地獲取其絕對路徑。
下面的一段代碼，用來在程序開始運(yùn)行時(shí)獲取程序的路徑，并賦值給變量AppPath，然后在數(shù)據(jù)控件Data1的Database Name屬性中與數(shù)據(jù)庫文件的相對路徑"Database\Sample.Mdb"結(jié)合，組成數(shù)據(jù)庫文件的絕對路徑。這段代碼通常出現(xiàn)在Form-Load中:

Dim AppPath As String ' 設(shè)置路徑變量
AppPath=App.Path ' 獲取程序路徑
If Right(AppPath,1)<>"\"Then AppPath=AppPath+"\"
　' 若路徑尾部沒有"\"，則添加之
　Data1.Database Name=AppPath+"Database\Sample.mdb"
　' 與相對路徑結(jié)合，組成絕對路徑

3、用SQL語句完成數(shù)據(jù)庫操作

　　SQL也就是結(jié)構(gòu)化查詢語言，是用于數(shù)據(jù)庫查詢的一種通用標(biāo)準(zhǔn)語言，在現(xiàn)今的大多數(shù)數(shù)據(jù)庫軟件系統(tǒng)中均得到支持。1句SQL語句通?？梢酝瓿梢郧坝稍S多條語句才能完成的復(fù)雜的數(shù)據(jù)庫查詢操作，具有較高的工作效率。

　　在VB中，SQL語句往往作為某些特定方法的參數(shù)而得以執(zhí)行(沒有FoxPro等數(shù)據(jù)庫軟件那樣直截了當(dāng))，比如可以把SQL語句作為Execute方法的1個(gè)字符串參數(shù)而執(zhí)行，其格式如下：

object.Execute SQL-statement,options

　　在其中的SQL-statement字符串中，可以使用標(biāo)準(zhǔn)的SQL語句，如：SELECT、INSERT、DELETE及UPDATE等。下面的例子是在數(shù)據(jù)庫對象DB中執(zhí)行SQL語句，從當(dāng)前數(shù)據(jù)庫的EMployees數(shù)據(jù)表中，選擇字段LastName='King'的所有記錄，并將這些記錄的LastName和FirstName這2個(gè)字段的內(nèi)容，保存到同一數(shù)據(jù)庫的Backup數(shù)據(jù)表中:

DB.Execute("SELECT LastName,FirstName INTO Backup FORM Employees
WHERE LastName='King';")

　　4、For語句在數(shù)據(jù)庫中的應(yīng)用

　　For語句是幾乎所有高級語言都有的語句，通常用來完成指定次數(shù)的循環(huán)，在循環(huán)中可以完成一些指定的工作。而在VB中，F(xiàn)or語句還可以用來對某個(gè)集合中的每1個(gè)元素循環(huán)執(zhí)行若干操作，而不必預(yù)先設(shè)定循環(huán)次數(shù)，其格式如下：

For Each element In group
　[statements]
Next[element]

　　For語句的這一特點(diǎn)可用于按照指定條件搜索整個(gè)數(shù)據(jù)庫。以下的代碼便可以對數(shù)據(jù)庫對象DB所指的數(shù)據(jù)庫中的所有數(shù)據(jù)表進(jìn)行搜索，并完成指定的操作：

For Each Td In DB.Table Defs ' 循環(huán)搜索數(shù)據(jù)庫中的所有數(shù)據(jù)表
　... ... ' 對數(shù)據(jù)表執(zhí)行指定的操作
Next

　　5、復(fù)制數(shù)據(jù)庫的結(jié)構(gòu)定義

　　在數(shù)據(jù)庫應(yīng)用中，經(jīng)常需要在程序運(yùn)行時(shí)動(dòng)態(tài)地把一個(gè)數(shù)據(jù)庫的結(jié)構(gòu)定義完整地復(fù)制到另一個(gè)數(shù)據(jù)庫中。由于新型的數(shù)據(jù)庫可以同時(shí)包含若干個(gè)數(shù)據(jù)表，而每個(gè)數(shù)據(jù)表的結(jié)構(gòu)定義又不近相同，因此，如果通過逐個(gè)定義數(shù)據(jù)表中所有字段的類型、長度的方法復(fù)制數(shù)據(jù)庫結(jié)構(gòu)，則該程序?qū)⒆兊孟喈?dāng)冗長和復(fù)雜，日后的維護(hù)也比較困難。但是，通過綜合運(yùn)用上述的幾種應(yīng)用方法，用相當(dāng)短的VB語句完成同樣的工作，實(shí)且程序也易于理解和維護(hù)。

　　程序清單如下:

Sub CopyDBStrnc(src As String,dst As String)
　' 定義子程序Copy DBStrnc，用于復(fù)制數(shù)據(jù)庫結(jié)構(gòu)
　' 調(diào)用參數(shù):
　' src--源數(shù)據(jù)庫的文件名
　' dst--目的數(shù)據(jù)庫的文件名
　Dim DB As Database,Td As TableDef,SQLstr As String
　' 定義變量：
　' DB--數(shù)據(jù)庫對象
　' Td--數(shù)據(jù)表定義對象
　' SQLstr--SQL語句變量
　Set DB=Create Database(dst,dbLangGeneral)
　' 創(chuàng)建目的數(shù)據(jù)庫dst
　' 關(guān)閉目的數(shù)據(jù)庫dst
　DB.Close
　Set db=OpenDatabase(src,False,True)
　' 以共享、只讀方式打開源數(shù)據(jù)庫src
　For Each Td In DB.TableDefs
　　' 循環(huán)搜索源數(shù)據(jù)庫DB中的所有數(shù)據(jù)表定義
　　If(Td.Attributes And dbSyste mObect)=0 Then
　　　' 忽略系統(tǒng)數(shù)據(jù)表，只針對用戶定義的數(shù)據(jù)表進(jìn)行搜寫
　　　SQLstr="SELECT * INTO"+Td.Name+"IN"+dst+"'FROM"+
　　　　　　　Td.Name+"'IN"+src+"'WHERE False'
　　　' 對SQL語句變量賦值，完成以下功能:
　　　' 從源數(shù)據(jù)庫src的數(shù)據(jù)表中選擇所有字段
　　　' 存入目的數(shù)據(jù)庫dst的同名數(shù)據(jù)表中
　　　' 選擇數(shù)據(jù)表的字段定義，不包括任何記錄
　　　DB.Execute(SQLstr) ' 執(zhí)行SQL語句
　　End If
　Next ' 結(jié)束循環(huán)搜索
　DB.Close ' 關(guān)閉源數(shù)據(jù)庫
Exit Sub ' 結(jié)束子程序定義