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

当前标题：VB.NET数据库开发示例宝典
文章起源：http://www.csdahua.cn/qtweb/news31/355581.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：快上网

成都快上网为您推荐相关内容