日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.NET數(shù)據(jù)庫開發(fā)示例寶典

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

 
 
 
    
  
  
  
  1. '整個程序功能是選擇不同的連接方式來進(jìn)行顯示工作，三種方式顯示效果完全相同 
    2. 
  
  
  
  2. '下面是主程序過程 
    3. 
  
  
  
  3. Private Sub Command1_Click() 
    4. 
  
  
  
  4. Dim selitem As Integer 
    5. 
  
  
  
  5. '判斷連接數(shù)據(jù)庫的方式 
    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. '選取不同的數(shù)據(jù)庫連接方式 
    16. 
  
  
  
  16. Select Case selitem 
    17. 
  
  
  
  17. Case 1: 
    18. 
  
  
  
  18. '使用DAO的數(shù)據(jù)庫連接方式 
    19. 
  
  
  
  19. Call ShowByDAO 
    20. 
  
  
  
  20. Case 2: 
    21. 
  
  
  
  21. '使用ADO的數(shù)據(jù)庫連接方式 
    22. 
  
  
  
  22. Call ShowByADO 
    23. 
  
  
  
  23. Case 3: 
    24. 
  
  
  
  24. '使用ODBC的數(shù)據(jù)庫連接方式 
    25. 
  
  
  
  25. Call ShowByODBC 
    26. 
  
  
  
  26. Case 4: 
    27. 
  
  
  
  27. '使用OLEDB的數(shù)據(jù)庫連接方式 
    28. 
  
  
  
  28. Call ShowByOLEDB 
    29. 
  
  
  
  29. End Select 
    30. 
  
  
  
  30. End Sub 
    31. 
  
  
  
  31. 
  
  
  
  32. Private Sub ShowByDAO() 
    33. 
  
  
  
  33. '使用DAO的數(shù)據(jù)庫連接方式 
    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. '顯示結(jié)果 
    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. '使用數(shù)據(jù)源來連接數(shù)據(jù)庫 
    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. '使用數(shù)據(jù)源來連接數(shù)據(jù)庫 
    59. 
  
  
  
  59. conn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=data" 
    60. 
  
  
  
  60. rs.Open "select * from 成績表", conn 
    61. 
  
  
  
  61. '顯示結(jié)果 
    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. '使用數(shù)據(jù)源來連接數(shù)據(jù)庫 
    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'顯示結(jié)果 
    71. 
  
  
  
  71. Call GridShowOfADO(rs) 
    72. 
  
  
  
  72. End Sub 
    73. 
  
  
  
  73. 
  
  
  
  74. Sub GridShow(rs As Recordset) 
    75. 
  
  
  
  75. '對dao方式進(jìn)行顯示工作 
    76. 
  
  
  
  76. MSFlexGrid1.TextMatrix(0, 0) = "姓名" 
    77. 
  
  
  
  77. MSFlexGrid1.TextMatrix(0, 1) = "性別" 
    78. 
  
  
  
  78. MSFlexGrid1.TextMatrix(0, 2) = "語文" 
    79. 
  
  
  
  79. MSFlexGrid1.TextMatrix(0, 3) = "數(shù)學(xué)" 
    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方式進(jìn)行顯示工作 
    101. 
  
  
  
  101. MSFlexGrid1.TextMatrix(0, 0) = "姓名" 
    102. 
  
  
  
  102. MSFlexGrid1.TextMatrix(0, 1) = "性別" 
    103. 
  
  
  
  103. MSFlexGrid1.TextMatrix(0, 2) = "語文" 
    104. 
  
  
  
  104. MSFlexGrid1.TextMatrix(0, 3) = "數(shù)學(xué)" 
    105. 
  
  
  
  105. MSFlexGrid1.TextMatrix(0, 4) = "英語" 
    106. 
  
  
  
  106. '注意recordcount屬性必須在當(dāng)前記錄指針在最后一條記錄時才會返回正確的值 
    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.

上述代碼已經(jīng)在Windows 2000 professional和Visual Basic 6.0的環(huán)境下調(diào)試成功，喜歡VB.NET數(shù)據(jù)庫開發(fā)的朋友不防試試。


新聞標(biāo)題：VB.NET數(shù)據(jù)庫開發(fā)示例寶典
標(biāo)題網(wǎng)址：http://m.5511xx.com/article/coejged.html