189 8069 5689

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

VB.NET经过长时间的发展，很多用户都很了解VB.NET数据库开发了，这里我发表一下个人理解，和大家讨论讨论。下面介绍一个实例，来消化以上的相关知识。这里我在一个程序界面下实现了DAO,ADO,ODBC,OLEDB四种数据库访问方式。 VB.NET数据库开发程序代码分析：

 
 
 
    
  
  
  
  1. '整个程序功能是选择不同的连接方式来进行显示工作，三种方式显示效果完全相同 
    2. 
  
  
  
  2. '下面是主程序过程 
    3. 
  
  
  
  3. Private Sub Command1_Click() 
    4. 
  
  
  
  4. Dim selitem As Integer 
    5. 
  
  
  
  5. '判断连接数据库的方式 
    6. 
  
  
  
  6. If Option1.Value = True Then 
    7. 
  
  
  
  7. selitem = 1
    8. 
  
  
  
  8. Else 
    9. 
  
  
  
  9. If Option2.Value = True Then 
    10. 
  
  
  
  10. selitem = 2
    11. 
  
  
  
  11. Else 
    12. 
  
  
  
  12. selitem = 3
    13. 
  
  
  
  13. End If 
    14. 
  
  
  
  14. End If 
    15. 
  
  
  
  15. '选取不同的数据库连接方式 
    16. 
  
  
  
  16. Select Case selitem 
    17. 
  
  
  
  17. Case 1: 
    18. 
  
  
  
  18. '使用DAO的数据库连接方式 
    19. 
  
  
  
  19. Call ShowByDAO 
    20. 
  
  
  
  20. Case 2: 
    21. 
  
  
  
  21. '使用ADO的数据库连接方式 
    22. 
  
  
  
  22. Call ShowByADO 
    23. 
  
  
  
  23. Case 3: 
    24. 
  
  
  
  24. '使用ODBC的数据库连接方式 
    25. 
  
  
  
  25. Call ShowByODBC 
    26. 
  
  
  
  26. Case 4: 
    27. 
  
  
  
  27. '使用OLEDB的数据库连接方式 
    28. 
  
  
  
  28. Call ShowByOLEDB 
    29. 
  
  
  
  29. End Select 
    30. 
  
  
  
  30. End Sub 
    31. 
  
  
  
  31. 
  
  
  
  32. Private Sub ShowByDAO() 
    33. 
  
  
  
  33. '使用DAO的数据库连接方式 
    34. 
  
  
  
  34. Dim db As Database 
    35. 
  
  
  
  35. Dim rs As Recordset 
    36. 
  
  
  
  36. Dim sqlstr$ '存放查询语句 
    37. 
  
  
  
  37. Set db = OpenDatabase(App.Path & "\db1.mdb") 
    38. 
  
  
  
  38. sqlstr = "select * from 成绩表"
    39. 
  
  
  
  39. Set rs = db.OpenRecordset(sqlstr) 
    40. 
  
  
  
  40. '显示结果 
    41. 
  
  
  
  41. Call GridShow(rs) 
    42. 
  
  
  
  42. End Sub 
    43. 
  
  
  
  43. 
  
  
  
  44. Sub ShowByADO() 
    45. 
  
  
  
  45. Dim conn As New ADODB.Connection 
    46. 
  
  
  
  46. Dim rs As New ADODB.Recordset 
    47. 
  
  
  
  47. '使用数据源来连接数据库 
    48. 
  
  
  
  48. conn.Open "dsn=data" 
    49. 
  
  
  
  49. rs.CursorType = adOpenKeyset
    50. 
  
  
  
  50. rs.LockType = adLockOptimistic
    51. 
  
  
  
  51. rs.Open "select * from 成绩表", conn 
    52. 
  
  
  
  52. Call GridShowOfADO(rs) 
    53. 
  
  
  
  53. End Sub 
    54. 
  
  
  
  54. 
  
  
  
  55. Sub ShowByODBC() 
    56. 
  
  
  
  56. Dim conn As New ADODB.Connection 
    57. 
  
  
  
  57. Dim rs As New ADODB.Recordset 
    58. 
  
  
  
  58. '使用数据源来连接数据库 
    59. 
  
  
  
  59. conn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=data" 
    60. 
  
  
  
  60. rs.Open "select * from 成绩表", conn 
    61. 
  
  
  
  61. '显示结果 
    62. 
  
  
  
  62. Call GridShowOfADO(rs) 
    63. 
  
  
  
  63. End Sub 
    64. 
  
  
  
  64. 
  
  
  
  65. Sub ShowByOLEDB() 
    66. 
  
  
  
  66. Dim conn As New ADODB.Connection 
    67. 
  
  
  
  67. Dim rs As New ADODB.Recordset 
    68. 
  
  
  
  68. '使用数据源来连接数据库 
    69. 
  
  
  
  69. conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\db1.mdb" + ";Persist Security Info=False" 
    70. 
  
  
  
  70. rs.Open "select * from 成绩表", conn'显示结果 
    71. 
  
  
  
  71. Call GridShowOfADO(rs) 
    72. 
  
  
  
  72. End Sub 
    73. 
  
  
  
  73. 
  
  
  
  74. Sub GridShow(rs As Recordset) 
    75. 
  
  
  
  75. '对dao方式进行显示工作 
    76. 
  
  
  
  76. MSFlexGrid1.TextMatrix(0, 0) = "姓名" 
    77. 
  
  
  
  77. MSFlexGrid1.TextMatrix(0, 1) = "性别" 
    78. 
  
  
  
  78. MSFlexGrid1.TextMatrix(0, 2) = "语文" 
    79. 
  
  
  
  79. MSFlexGrid1.TextMatrix(0, 3) = "数学" 
    80. 
  
  
  
  80. MSFlexGrid1.TextMatrix(0, 4) = "英语" 
    81. 
  
  
  
  81. rs.MoveLast 
    82. 
  
  
  
  82. MSFlexGrid1.Rows = rs.RecordCount + 1 
    83. 
  
  
  
  83. MSFlexGrid1.Cols = rs.Fields.Count 
    84. 
  
  
  
  84. Dim i% 
    85. 
  
  
  
  85. i = 1
    86. 
  
  
  
  86. rs.MoveFirst 
    87. 
  
  
  
  87. While (Not rs.EOF)MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0) 
    88. 
  
  
  
  88. MSFlexGrid1.TextMatrix(i, 1) = rs.Fields(1) 
    89. 
  
  
  
  89. MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2) 
    90. 
  
  
  
  90. MSFlexGrid1.TextMatrix(i, 3) = rs.Fields(3) 
    91. 
  
  
  
  91. MSFlexGrid1.TextMatrix(i, 4) = rs.Fields(4) 
    92. 
  
  
  
  92. rs.MoveNext 
    93. 
  
  
  
  93. ii = i + 1 
    94. 
  
  
  
  94. 'If (rs.EOF = True) Then 
    95. 
  
  
  
  95. ' Exit For 
    96. 
  
  
  
  96. Wend 
    97. 
  
  
  
  97. End Sub 
    98. 
  
  
  
  98. 
  
  
  
  99. Sub GridShowOfADO(rs As ADODB.Recordset) 
    100. 
  
  
  
  100. '对ado方式进行显示工作 
    101. 
  
  
  
  101. MSFlexGrid1.TextMatrix(0, 0) = "姓名" 
    102. 
  
  
  
  102. MSFlexGrid1.TextMatrix(0, 1) = "性别" 
    103. 
  
  
  
  103. MSFlexGrid1.TextMatrix(0, 2) = "语文" 
    104. 
  
  
  
  104. MSFlexGrid1.TextMatrix(0, 3) = "数学" 
    105. 
  
  
  
  105. MSFlexGrid1.TextMatrix(0, 4) = "英语" 
    106. 
  
  
  
  106. '注意recordcount属性必须在当前记录指针在最后一条记录时才会返回正确的值 
    107. 
  
  
  
  107. rs.MoveLast 
    108. 
  
  
  
  108. MSFlexGrid1.Rows = rs.RecordCount + 1 
    109. 
  
  
  
  109. MSFlexGrid1.Cols = rs.Fields.Count 
    110. 
  
  
  
  110. Dim i% 
    111. 
  
  
  
  111. i = 1
    112. 
  
  
  
  112. rs.MoveFirst 
    113. 
  
  
  
  113. While (Not rs.EOF) 
    114. 
  
  
  
  114. MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0) 
    115. 
  
  
  
  115. MSFlexGrid1.TextMatrix(i, 1) = rs.Fields(1) 
    116. 
  
  
  
  116. MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2) 
    117. 
  
  
  
  117. MSFlexGrid1.TextMatrix(i, 3) = rs.Fields(3) 
    118. 
  
  
  
  118. MSFlexGrid1.TextMatrix(i, 4) = rs.Fields(4) 
    119. 
  
  
  
  119. rs.MoveNext 
    120. 
  
  
  
  120. ii = i + 1 
    121. 
  
  
  
  121. Wend 
    122. 
  
  
  
  122. End Sub 
    123. 
  
  
  
  123. 
  
  
  
  124. Private Sub Command2_Click() 
    125. 
  
  
  
  125. End 
    126. 
  
  
  
  126. End Sub 
    127.

上述代码已经在Windows 2000 professional和Visual Basic 6.0的环境下调试成功，喜欢VB.NET数据库开发的朋友不防试试。


当前名称：VB.NET数据库开发示例宝典
标题网址：http://www.cdxtjz.cn/article/coejged.html

其他资讯