VB.NET数据库开发示例宝典-vb.net数据库开发

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数据库开发的朋友不防试试。

【编辑推荐】