成人免费xxxxx在线视频软件_久久精品久久久_亚洲国产精品久久久_天天色天天色_亚洲人成一区_欧美一级欧美三级在线观看

VB.NET數(shù)據(jù)庫(kù)開(kāi)發(fā)示例寶典

開(kāi)發(fā) 后端
訪問(wèn)數(shù)據(jù)庫(kù)有四種方式,大家知道嗎?本文就DAO,ADO,ODBC,OLEDB四種數(shù)據(jù)庫(kù)訪問(wèn)方式編寫(xiě)一個(gè)VB.NET數(shù)據(jù)庫(kù)程序,喜歡VB.NET數(shù)據(jù)庫(kù)開(kāi)發(fā)的朋友進(jìn)來(lái)看看。

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

  1. '整個(gè)程序功能是選擇不同的連接方式來(lái)進(jìn)行顯示工作,三種方式顯示效果完全相同  
  2. '下面是主程序過(guò)程  
  3. Private Sub Command1_Click()  
  4. Dim selitem As Integer  
  5. '判斷連接數(shù)據(jù)庫(kù)的方式  
  6. If Option1.Value = True Then  
  7. selitem = 1 
  8. Else  
  9. If Option2.Value = True Then  
  10. selitem = 2 
  11. Else  
  12. selitem = 3 
  13. End If  
  14. End If  
  15. '選取不同的數(shù)據(jù)庫(kù)連接方式  
  16. Select Case selitem  
  17. Case 1:  
  18. '使用DAO的數(shù)據(jù)庫(kù)連接方式  
  19. Call ShowByDAO  
  20. Case 2:  
  21. '使用ADO的數(shù)據(jù)庫(kù)連接方式  
  22. Call ShowByADO  
  23. Case 3:  
  24. '使用ODBC的數(shù)據(jù)庫(kù)連接方式  
  25. Call ShowByODBC  
  26. Case 4:  
  27. '使用OLEDB的數(shù)據(jù)庫(kù)連接方式  
  28. Call ShowByOLEDB  
  29. End Select  
  30. End Sub  
  31.  
  32. Private Sub ShowByDAO()  
  33. '使用DAO的數(shù)據(jù)庫(kù)連接方式  
  34. Dim db As Database  
  35. Dim rs As Recordset  
  36. Dim sqlstr$ '存放查詢語(yǔ)句  
  37. Set db = OpenDatabase(App.Path & "\db1.mdb")  
  38. sqlstr = "select * from 成績(jī)表" 
  39. Set rs = db.OpenRecordset(sqlstr)  
  40. '顯示結(jié)果  
  41. Call GridShow(rs)  
  42. End Sub  
  43.  
  44. Sub ShowByADO()  
  45. Dim conn As New ADODB.Connection  
  46. Dim rs As New ADODB.Recordset  
  47. '使用數(shù)據(jù)源來(lái)連接數(shù)據(jù)庫(kù)  
  48. conn.Open "dsn=data"  
  49. rs.CursorType = adOpenKeyset 
  50. rs.LockType = adLockOptimistic 
  51. rs.Open "select * from 成績(jī)表", conn  
  52. Call GridShowOfADO(rs)  
  53. End Sub  
  54.  
  55. Sub ShowByODBC()  
  56. Dim conn As New ADODB.Connection  
  57. Dim rs As New ADODB.Recordset  
  58. '使用數(shù)據(jù)源來(lái)連接數(shù)據(jù)庫(kù)  
  59. conn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=data"  
  60. rs.Open "select * from 成績(jī)表", conn  
  61. '顯示結(jié)果  
  62. Call GridShowOfADO(rs)  
  63. End Sub  
  64.  
  65. Sub ShowByOLEDB()  
  66. Dim conn As New ADODB.Connection  
  67. Dim rs As New ADODB.Recordset  
  68. '使用數(shù)據(jù)源來(lái)連接數(shù)據(jù)庫(kù)  
  69. conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\db1.mdb" + ";Persist Security Info=False"  
  70. rs.Open "select * from 成績(jī)表", conn'顯示結(jié)果  
  71. Call GridShowOfADO(rs)  
  72. End Sub  
  73.  
  74. Sub GridShow(rs As Recordset)  
  75. '對(duì)dao方式進(jìn)行顯示工作  
  76. MSFlexGrid1.TextMatrix(0, 0) = "姓名"  
  77. MSFlexGrid1.TextMatrix(0, 1) = "性別"  
  78. MSFlexGrid1.TextMatrix(0, 2) = "語(yǔ)文"  
  79. MSFlexGrid1.TextMatrix(0, 3) = "數(shù)學(xué)"  
  80. MSFlexGrid1.TextMatrix(0, 4) = "英語(yǔ)"  
  81. rs.MoveLast  
  82. MSFlexGrid1.Rows = rs.RecordCount + 1  
  83. MSFlexGrid1.Cols = rs.Fields.Count  
  84. Dim i%  
  85. i = 1 
  86. rs.MoveFirst  
  87. While (Not rs.EOF)MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0)  
  88. MSFlexGrid1.TextMatrix(i, 1) = rs.Fields(1)  
  89. MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2)  
  90. MSFlexGrid1.TextMatrix(i, 3) = rs.Fields(3)  
  91. MSFlexGrid1.TextMatrix(i, 4) = rs.Fields(4)  
  92. rs.MoveNext  
  93. ii = i + 1  
  94. 'If (rs.EOF = True) Then  
  95. ' Exit For  
  96. Wend  
  97. End Sub  
  98.  
  99. Sub GridShowOfADO(rs As ADODB.Recordset)  
  100. '對(duì)ado方式進(jìn)行顯示工作  
  101. MSFlexGrid1.TextMatrix(0, 0) = "姓名"  
  102. MSFlexGrid1.TextMatrix(0, 1) = "性別"  
  103. MSFlexGrid1.TextMatrix(0, 2) = "語(yǔ)文"  
  104. MSFlexGrid1.TextMatrix(0, 3) = "數(shù)學(xué)"  
  105. MSFlexGrid1.TextMatrix(0, 4) = "英語(yǔ)"  
  106. '注意recordcount屬性必須在當(dāng)前記錄指針在最后一條記錄時(shí)才會(huì)返回正確的值  
  107. rs.MoveLast  
  108. MSFlexGrid1.Rows = rs.RecordCount + 1  
  109. MSFlexGrid1.Cols = rs.Fields.Count  
  110. Dim i%  
  111. i = 1 
  112. rs.MoveFirst  
  113. While (Not rs.EOF)  
  114. MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0)  
  115. MSFlexGrid1.TextMatrix(i, 1) = rs.Fields(1)  
  116. MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2)  
  117. MSFlexGrid1.TextMatrix(i, 3) = rs.Fields(3)  
  118. MSFlexGrid1.TextMatrix(i, 4) = rs.Fields(4)  
  119. rs.MoveNext  
  120. ii = i + 1  
  121. Wend  
  122. End Sub  
  123.  
  124. Private Sub Command2_Click()  
  125. End  
  126. End Sub  

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

【編輯推薦】

  1. 簡(jiǎn)單講述VB.NET表間拖放
  2. 五分鐘學(xué)會(huì)VB.NET實(shí)現(xiàn)拖放
  3. 講述強(qiáng)大的VB.NET Web Forms,使用起來(lái)卻如此簡(jiǎn)單
  4. 分析VB QuickSort應(yīng)用程序
  5. 兩步就可以掌握VB使用ArrayList類
責(zé)任編輯:田樹(shù) 來(lái)源: 博客
相關(guān)推薦

2009-10-27 13:34:32

VB.NET WEB服

2009-11-02 13:14:18

VB.NET函數(shù)

2009-11-02 15:08:58

VB.NET Obje

2010-01-08 10:37:50

VB.NET數(shù)據(jù)庫(kù)

2009-10-13 17:31:50

VB.NET Acce

2009-10-28 17:00:30

VB.NET數(shù)據(jù)庫(kù)

2009-11-03 09:48:47

VB.NET構(gòu)造

2010-01-15 18:24:14

VB.NET打開(kāi)Not

2009-10-09 15:20:26

VB.NET連接數(shù)據(jù)庫(kù)

2010-01-12 10:40:58

VB.NET數(shù)據(jù)庫(kù)壓縮

2010-01-15 19:24:42

2009-10-28 16:47:26

VB.NET訪問(wèn)數(shù)據(jù)庫(kù)

2009-10-30 09:45:55

VB.NET Web

2009-10-26 13:36:58

VB.NET Spli

2010-01-13 15:01:13

VB.NET操作MyS

2009-10-28 17:24:19

VB.NET介紹

2010-01-18 19:21:51

VB.NET存取數(shù)據(jù)庫(kù)

2010-01-14 11:00:48

VB.NET文件合并

2010-01-18 15:01:02

VB.NET異常迭代捕

2009-10-22 15:23:32

VB.NET函數(shù)
點(diǎn)贊
收藏

51CTO技術(shù)棧公眾號(hào)

主站蜘蛛池模板: 九九久久这里只有精品 | 亚洲欧美中文日韩在线v日本 | 欧美激情五月 | 日本综合在线观看 | 亚洲国产一区二区三区在线观看 | 国产69精品久久99不卡免费版 | 999国产视频 | 久久一区 | 日韩视频一区在线观看 | 国产精品色 | 国产大学生情侣呻吟视频 | 东京久久 | 中文字幕在线中文 | 国产激情一区二区三区 | 久久精品视频亚洲 | 日韩免费激情视频 | 国产精品高潮呻吟久久av野狼 | 免费精品久久久久久中文字幕 | 亚洲精品一区中文字幕乱码 | 亚洲激情综合 | 81精品国产乱码久久久久久 | 国产免费让你躁在线视频 | 色婷婷亚洲一区二区三区 | 日韩欧美国产一区二区 | 精品国产区 | 欧产日产国产精品99 | 一区在线免费视频 | 在线观看国产精品一区二区 | 久久国品片 | 国产精品夜间视频香蕉 | 福利片在线看 | 不卡av电影在线播放 | 一区日韩| 精品二区视频 | 亚洲 欧美 在线 一区 | 久久久久亚洲 | 成人久久久久 | 日韩美女在线看免费观看 | 亚洲三区视频 | 国产一极毛片 | 欧美专区日韩 |