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

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

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

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

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

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

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

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

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

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

DB.Execute("SELECT LastName,FirstName INTO Backup FORM Employees
WHERE LastName='King';")
　　4、For語(yǔ)句在數(shù)據(jù)庫(kù)中的應(yīng)用

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

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

For Each Td In DB.Table Defs ' 循環(huán)搜索數(shù)據(jù)庫(kù)中的所有數(shù)據(jù)表
　 ... ... ' 對(duì)數(shù)據(jù)表執(zhí)行指定的操作
Next
　　5、復(fù)制數(shù)據(jù)庫(kù)的結(jié)構(gòu)定義

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

　　程序清單如下:

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