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

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

VB.NET線程訪問數據庫1 創建數據庫訪問線程

在數據庫應用中,特別是網絡數據庫訪問,因為可能要訪問的數據量較大,因此需要比較長的時間來得到結果,而一個良好的程序應具有良好的交互性,在訪問數據庫時應允許你的應用程序對用戶的活動盡快做出響應,以提供豐富的用戶體驗。利用多線程機制可以讓需要大量時間的操作在后臺運行以快速響應用戶的活動。下面的代碼訪問數據庫并返回數據表:

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

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

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

這樣當進行數據庫的訪問時,用戶可以繼續進行處理。

VB.NET線程訪問數據庫2 將數據庫訪問方法封裝到類

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

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  

下面是創建線程并運行線程的代碼:

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

VB.NET線程訪問數據庫3 使用事件

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

Public Class dealDataBase  
Public Event GetDataComplete
(ByVal e As DtatTable)  
…  
End Class  
在類dealDataBase的GetDataFromDataBase()
方法中加入發出事件的代碼，放在
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)  
'處理數據表  
End Sub  

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

AddHandler myDB. 
GetDataComplete,AddressOf
 dealData   

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

VB.NET線程訪問數據庫4 同步機制

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

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

5 總結

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