VB.NET經過長時間的發展，很多用戶都很了解VB.NET數據庫開發了，這里我發表一下個人理解，和大家討論討論。下面介紹一個實例，來消化以上的相關知識。這里我在一個程序界面下實現了DAO,ADO,ODBC,OLEDB四種數據庫訪問方式。 VB.NET數據庫開發程序代碼分析：

'整個程序功能是選擇不同的連接方式來進行顯示工作，三種方式顯示效果完全相同  
'下面是主程序過程  
Private Sub Command1_Click()  
Dim selitem As Integer  
'判斷連接數據庫的方式  
If Option1.Value = True Then  
selitem = 1 
Else  
If Option2.Value = True Then  
selitem = 2 
Else  
selitem = 3 
End If  
End If  
'選取不同的數據庫連接方式  
Select Case selitem  
Case 1:  
'使用DAO的數據庫連接方式  
Call ShowByDAO  
Case 2:  
'使用ADO的數據庫連接方式  
Call ShowByADO  
Case 3:  
'使用ODBC的數據庫連接方式  
Call ShowByODBC  
Case 4:  
'使用OLEDB的數據庫連接方式  
Call ShowByOLEDB  
End Select  
End Sub  
 
Private Sub ShowByDAO()  
'使用DAO的數據庫連接方式  
Dim db As Database  
Dim rs As Recordset  
Dim sqlstr$ '存放查詢語句  
Set db = OpenDatabase(App.Path & "\db1.mdb")  
sqlstr = "select * from 成績表" 
Set rs = db.OpenRecordset(sqlstr)  
'顯示結果  
Call GridShow(rs)  
End Sub  
 
Sub ShowByADO()  
Dim conn As New ADODB.Connection  
Dim rs As New ADODB.Recordset  
'使用數據源來連接數據庫  
conn.Open "dsn=data"  
rs.CursorType = adOpenKeyset 
rs.LockType = adLockOptimistic 
rs.Open "select * from 成績表", conn  
Call GridShowOfADO(rs)  
End Sub  
 
Sub ShowByODBC()  
Dim conn As New ADODB.Connection  
Dim rs As New ADODB.Recordset  
'使用數據源來連接數據庫  
conn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=data"  
rs.Open "select * from 成績表", conn  
'顯示結果  
Call GridShowOfADO(rs)  
End Sub  
 
Sub ShowByOLEDB()  
Dim conn As New ADODB.Connection  
Dim rs As New ADODB.Recordset  
'使用數據源來連接數據庫  
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\db1.mdb" + ";Persist Security Info=False"  
rs.Open "select * from 成績表", conn'顯示結果  
Call GridShowOfADO(rs)  
End Sub  
 
Sub GridShow(rs As Recordset)  
'對dao方式進行顯示工作  
MSFlexGrid1.TextMatrix(0, 0) = "姓名"  
MSFlexGrid1.TextMatrix(0, 1) = "性別"  
MSFlexGrid1.TextMatrix(0, 2) = "語文"  
MSFlexGrid1.TextMatrix(0, 3) = "數學"  
MSFlexGrid1.TextMatrix(0, 4) = "英語"  
rs.MoveLast  
MSFlexGrid1.Rows = rs.RecordCount + 1  
MSFlexGrid1.Cols = rs.Fields.Count  
Dim i%  
i = 1 
rs.MoveFirst  
While (Not rs.EOF)MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0)  
MSFlexGrid1.TextMatrix(i, 1) = rs.Fields(1)  
MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2)  
MSFlexGrid1.TextMatrix(i, 3) = rs.Fields(3)  
MSFlexGrid1.TextMatrix(i, 4) = rs.Fields(4)  
rs.MoveNext  
ii = i + 1  
'If (rs.EOF = True) Then  
' Exit For  
Wend  
End Sub  
 
Sub GridShowOfADO(rs As ADODB.Recordset)  
'對ado方式進行顯示工作  
MSFlexGrid1.TextMatrix(0, 0) = "姓名"  
MSFlexGrid1.TextMatrix(0, 1) = "性別"  
MSFlexGrid1.TextMatrix(0, 2) = "語文"  
MSFlexGrid1.TextMatrix(0, 3) = "數學"  
MSFlexGrid1.TextMatrix(0, 4) = "英語"  
'注意recordcount屬性必須在當前記錄指針在最后一條記錄時才會返回正確的值  
rs.MoveLast  
MSFlexGrid1.Rows = rs.RecordCount + 1  
MSFlexGrid1.Cols = rs.Fields.Count  
Dim i%  
i = 1 
rs.MoveFirst  
While (Not rs.EOF)  
MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0)  
MSFlexGrid1.TextMatrix(i, 1) = rs.Fields(1)  
MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2)  
MSFlexGrid1.TextMatrix(i, 3) = rs.Fields(3)  
MSFlexGrid1.TextMatrix(i, 4) = rs.Fields(4)  
rs.MoveNext  
ii = i + 1  
Wend  
End Sub  
 
Private Sub Command2_Click()  
End  
End Sub  

上述代碼已經在Windows 2000 professional和Visual Basic 6.0的環境下調試成功，喜歡VB.NET數據庫開發的朋友不防試試。

【編輯推薦】

1. 簡單講述VB.NET表間拖放
2. 五分鐘學會VB.NET實現拖放
3. 講述強大的VB.NET Web Forms，使用起來卻如此簡單
4. 分析VB QuickSort應用程序
5. 兩步就可以掌握VB使用ArrayList類