大家通過對VB.NET編程語言的學習之后，可以知道，它在對數(shù)據(jù)庫方面的應用時很靈活的。比如今天為大家介紹的VB.NET線程訪問數(shù)據(jù)庫的相關方法，就可以一種靈活方便的方式來實現(xiàn)。#t#

線程是操作系統(tǒng)分配處理器時間的基本單元,線程可以在單個執(zhí)行線程執(zhí)行的同時運行多個活動,支持搶先多任務處理的操作系統(tǒng)可以創(chuàng)建多個線程并通過時間片輪轉(zhuǎn)的方式使它們同時運行。在需要良好用戶交互的應用以及與網(wǎng)絡和數(shù)據(jù)庫進行通訊的應用中,使用多線程能提供良好的交互體驗,能對用戶的要求做出快速的反應。本文主要介紹.NET中的線程在數(shù)據(jù)庫編程中的具體應用(用VB.NET實現(xiàn))。

VB.NET線程訪問數(shù)據(jù)庫1 創(chuàng)建數(shù)據(jù)庫訪問線程

在數(shù)據(jù)庫應用中,特別是網(wǎng)絡數(shù)據(jù)庫訪問,因為可能要訪問的數(shù)據(jù)量較大,因此需要比較長的時間來得到結(jié)果,而一個良好的程序應具有良好的交互性,在訪問數(shù)據(jù)庫時應允許你的應用程序?qū)τ脩舻幕顒颖M快做出響應,以提供豐富的用戶體驗。利用多線程機制可以讓需要大量時間的操作在后臺運行以快速響應用戶的活動。下面的代碼訪問數(shù)據(jù)庫并返回數(shù)據(jù)表:

Private sub GetData
FromDataBase()  
…  
m_table.Clear()  
m_sqlDataAdapter.
Fill(m_table)  
…  
End Sub 

創(chuàng)建Thread對象的新實例,需創(chuàng)建新的線程代理.ThreadStart線程代理可以指定生成線程時要執(zhí)行的方法名,但線程代理并不實際運行線程.創(chuàng)建ThreadStart對象時,需指定線程開始執(zhí)行時要運行的方法的指針,該方法不能接受任何參數(shù)。下面我們將上面的代碼分配給一個線程處理,并且啟動它:

Dim myThreadStart as ThreadStart
 =New ThreadStart(AddressOf 
GetDataFromDataBase)  
Dim myThread as Thread=New 
Thread(myThreadStart)  
myThread.Start() 

這樣當進行數(shù)據(jù)庫的訪問時,用戶可以繼續(xù)進行處理。

VB.NET線程訪問數(shù)據(jù)庫2 將數(shù)據(jù)庫訪問方法封裝到類

上面提到,線程要執(zhí)行的方法不能接受任何參數(shù),如果要傳入方法特定條件,可以將方法放在一個類中,在類中定義類的屬性,需要時可以設置類的屬性,然后用方法調(diào)用這些屬性以實現(xiàn)方法參數(shù)類似的功能。同時,因為生成的線程在主應用程序線程之外運行,.NET Framework提供線程隔離,這時如果要用新的線程操縱主應用程序中的對象便不被允許。***的辦法也是將線程要訪問的對象包裝在類中。下面我們創(chuàng)建一個類,封裝屬性和數(shù)據(jù)庫訪問方法:

Public Class dealDataBase  
Private m_sqlDataAdapter As 
SqlDataAdapter  
Private m_table As DataTable  
Public Property setDataAdapter()
 As SqlDataAdapter  
Get  
setDataAdapter=m_sqlDataAdapter 
End Get  
Set(ByVal value As SqlDataAdapter)  
m_sqlDataAdapter=value 
End Set  
End Property  
Public Property setDataTable() 
As DataTable  
Get  
setDataTable=m_table 
End Get  
Set(ByVal value As DataTable)  
m_DataTable=value 
End Set  
End Property  
Public sub GetDataFromDataBase()  
…  
m_table.Clear()  
m_sqlDataAdapter.Fill(m_table)  
…  
End Sub  
End Class  

下面是創(chuàng)建線程并運行線程的代碼:

Dim myDB As New dealDataBase ()  
Dim myThreadStart as ThreadStart  
Dim myThread as Thread  
myDB.setDataAdapter=Me.DataAdapter1
 'DataAdapter1是本窗體內(nèi)定義的數(shù)據(jù)適配器  
myDB.setDataTable=Me.DataTable1 
'DataTable1是本窗體定義的數(shù)據(jù)表  
…  
myThreadStart=New ThreadStart
(AddressOf myDB.GetDataFromDataBase)  
myThread=New Thread(myThreadStart)  
myThread.Start()  
…  
End Sub 

VB.NET線程訪問數(shù)據(jù)庫3 使用事件

調(diào)用了線程的start方法，并不能確保其中的方法馬上執(zhí)行完，而要得到數(shù)據(jù)訪問的結(jié)果又必須等其中的方法執(zhí)行完畢。如果在運行線程后采用循環(huán)查詢的方法顯然影響了交互性，事件是從線程方法返回數(shù)據(jù)的好方法。只要在線程方法所在的類中定義一個事件，在線程方法中發(fā)出事件，而在窗體類中生成代理。
首先在dealDataBase類聲明后加進事件：

Public Class dealDataBase  
Public Event GetDataComplete
(ByVal e As DtatTable)  
…  
End Class  
在類dealDataBase的GetDataFromDataBase()
方法中加入發(fā)出事件的代碼，放在
m_sqlDataAdapter.Fill(m_table)后：  
Public sub GetDataFromDataBase()  
…  
m_sqlDataAdapter.Fill(m_table)  
RasiseEvent GetDataComplete(m_table)  
…  
End Sub  

下面在窗體類中生成代理

Private Sub dealData 
(ByVal e As DataTable)  
'處理數(shù)據(jù)表  
End Sub  

在創(chuàng)建線程并運行線程的代碼中進行事件連接,事件連接代碼放在運行線程前, dealDataBase類實例化后：

AddHandler myDB. 
GetDataComplete,AddressOf
 dealData   

這樣，當線程方法執(zhí)行完畢就會發(fā)出事件，而dealData方法會響應事件并做出處理。

VB.NET線程訪問數(shù)據(jù)庫4 同步機制

當多個線程需要共享相同的對象時,因為每個線程都能改變對象的狀態(tài),因此會互相破壞對方的執(zhí)行。為防止多個線程同時訪問共享對象就需要同步。.Net框架使用SyncLock…End SyncLock標識限制線程訪問的代碼段。 SyncLock可得到一個對象引用的唯一鎖，只要將該對象傳送給SyncLock.通過得到這個唯一鎖，你可以確保多個線程不會訪問共享的數(shù)據(jù).比如要防止數(shù)據(jù)表DataTable1被多個進程同時訪問，可以對要處理DataTable1的代碼做如下處理:

SyncLock(DataTable1)  
'處理DataTable1數(shù)據(jù)表的代碼  
End SyncLock  

5 總結(jié)

VB.NET線程訪問數(shù)據(jù)庫的使用可以提高程序的效率和提供對用戶活動的快速響應。但線程的使用比較復雜,并有死鎖的可能,因此使用多線程一定要詳細考慮資源的要求和潛在的沖突。