用類來編寫數據庫程序

2019-11-18 17:35:31

字體：大中小

來源：轉載

供稿：網友

類模塊使VB編程更為簡潔。通過封裝技術將復雜的代碼同程序的其它部分分隔開，并通過方法和屬性同程序的其它部分對話。對于類的種種好處，相信大家都非常清楚了。本文主要介紹類在數據庫編程方面的應用。

通過類模塊的封裝，你可以只需要書寫一次那些冗長繁人的SQL查詢語句，并能方便地同他人分享你的代碼。本文向你介紹如何利用類模塊創建SQL查詢對象。本文用到Northwind數據庫。數據訪問技術用的是DAO。

工程目的
本工程的目的是要建立一個查詢，該查詢將從Northwind數據庫中返回Beverage供應商的信息。這些信息包括哪種飲料是由哪些供應商供應的。看上去很簡單，但你得對三個表進行操作，這三個表分別是Suppliers,Categories和 access/Samples/Northwind.mdb")

SetqdfTemp=db.CreateQueryDef("")
qdfTemp.SQL=strSQL

SetrsResults=qdfTemp.OpenRecordset(dbOpenSnapshot)
rsResults.MoveFirst

'Enumeratetherecordset
WithrsResults
DoWhileNot.EOF
Debug.Print.Fields(0);"";.Fields(1)
strMsg=strMsg&.Fields(1)&vbCrLf
.MoveNext
Loop
EndWith

rsResults.Close
qdfTemp.Close

EndSub

現在讓我們來簡單地分析一下上面的代碼。在上面的代碼中數據庫的路徑是用的絕對路徑。如果Northwind數據庫的路徑同你機器上的不同，你需要修改這個路徑，以便程序能找到這個數據庫。
SQL代碼是在Access中建立好然后粘貼到程序中來的。這樣做不僅免去你書寫代碼的麻煩，而且還不容易出錯。在粘貼完之后，將原來在SQL代碼中的"BigfootBreweries"和"Beverages"用公共變量CompanyName和CategoryName替換掉。

在定義了QueryDef之后，程序枚舉記錄集。記錄集的信息不僅在立即窗口中顯示出來，同時被寫入strMsg變量中。

在結束對類模塊的編碼之前，我們還需要對類模塊的Terminate事件編寫代碼。將下面的代碼放到該事件中。

PrivateSubClass_Terminate()

MsgBoxstrMsg,Title:="BeverageResultsfor"&CompanyName,buttons:=vbExclamation

EndSub

現在我們已結束了對類模塊的編程。接下來在窗體中添加一個命令按鈕。將該命令按鈕的Caption屬性設置為&RunQuery。將下面的代碼放在命令按鈕的鼠標單擊事件中。
PrivateSubCommand1_Click()

DimobjSQLAsClsSQL

'Settheobjectvariable
SetobjSQL=NewClsSQL

'Setpropertiesofthenewobject
WithobjSQL
.CompanyName="BigfootBreweries"
.CategoryName="Beverages"
EndWith

'Retrievetheproperties
Debug.PrintobjSQL.CompanyName
Debug.PrintobjSQL.CategoryName

'Callamethodoftheobject
objSQL.RunQuery

'Destroytheobject
SetobjSQL=Nothing

EndSub

在上面的語句中，我們首先定義了一個對象變量，接下來將這個對象變量初始化為我們剛建立的類的一個實例。我們也可以用下面這一條語句來實現。
DimobjSQLAsNewClsSQL

緊接著我們設置該對象的屬性。CompanyName="BigfootBreweries"和CategoryName="Beverages",將這兩個值在立即窗口中顯示出來。這樣做僅僅為了驗證而已。然后調用對象的RunQuery方法。
objSQL.RunQuery

最后釋放該對象，觸發對象的Terminate事件，彈出消息框，顯示查詢結果。
MsgBoxstrMsg,Title:="BeverageResultsfor"&CompanyName,buttons:=
vbExclamation

結論
現在你已對用類模塊進行數據庫編程的好處有了初步的認識。當然你也可以用標準模塊來實現同樣的功能。但是用標準模塊遠不如用類模塊簡潔。用類模塊，你可以為每個查詢初始化一個新的對象，而復雜的SQL代碼則被封裝在類中。用標準模塊，你必須將控制權交給模塊。最后，類模塊更易于移植。->

上一篇：鎖住數據庫中的表

下一篇：在VB中更改SQLServer數據庫結構