VB使用ADO操作Access數(shù)據(jù)庫
更新時間：2015年06月17日 10:53:53 投稿：hebedich
這篇文章主要介紹了VB使用ADO操作Access數(shù)據(jù)庫的相關(guān)資料,需要的朋友可以參考下
這里只是個簡單不能再簡單的VB小程序?qū)嵗?，但它包含這幾個關(guān)鍵字：VB6.0、ADO、Access
環(huán)境：visual basic 6.0 企業(yè)版（非精簡版，不然會缺少必須的控件）
數(shù)據(jù)庫：Access數(shù)據(jù)庫，數(shù)據(jù)庫是xs.mbd，內(nèi)建表為xj
結(jié)果：vb使用ADO連接access數(shù)據(jù)庫，查詢xj表中的所有數(shù)據(jù)，然后把查詢到的結(jié)果循環(huán)輸出到窗口中。
代碼：
Private Sub Form_Click() Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'ADO連接對象和記錄集 Dim strSQL As String 'SQL字符串 db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/xs.mdb" '數(shù)據(jù)庫連接 db.Open '打開數(shù)據(jù)庫 strSQL = "select * from xj" 'SQL字符串 RS.Open strSQL, db, 3, 1 '查詢數(shù)據(jù)表 Do While Not RS.EOF '循環(huán)輸出查詢到的結(jié)果 Print RS!姓名; RS!性別; RS!班級; RS!出生年月 '在窗口中打印輸出結(jié)果 RS.MoveNext '記錄下移 Loop RS.Close '關(guān)閉記錄集 Set RS = Nothing End Sub
以上所述就是本文的全部內(nèi)容了，希望大家能夠喜歡。
相關(guān)文章
什么是一個高效的軟件...2006-10-10
這篇文章主要介紹了VB實現(xiàn)按行讀取文本文件的方法,涉及使用VB操作文件讀取的相關(guān)技巧,需要的朋友可以參考下2015-06-06
VB判斷地址是否存在的XMLHTTP方法2008-07-07
WMI是一項行業(yè)推薦規(guī)范，旨在為訪問企業(yè)環(huán)境中的管理信息而開發(fā)一種標準化技術(shù)。該信息包括系統(tǒng)內(nèi)存的狀態(tài)、當前安裝的客戶應用程序清單，以及有關(guān)客戶端狀態(tài)的其他數(shù)據(jù)2019-04-04
VB實現(xiàn)屏蔽文本框右鍵菜單的復制、粘貼等功能的方法
這篇文章主要介紹了VB實現(xiàn)屏蔽文本框右鍵菜單的復制、粘貼等功能,是非常實用的一個功能,需要的朋友可以參考下2014-07-07
淺談如何使用vb.net從數(shù)據(jù)庫中提取數(shù)據(jù)
這篇文章主要介紹了淺談如何使用vb.net從數(shù)據(jù)庫中提取數(shù)據(jù)，使用VB提取數(shù)據(jù)，是先查找，做成數(shù)組，再顯示到數(shù)據(jù)里，如果感興趣可以了解一下2020-07-07
這篇文章主要介紹了VB使用ADO操作Access數(shù)據(jù)庫的相關(guān)資料,需要的朋友可以參考下2015-06-06
這篇文章主要介紹了VB打開與保存txt文件的方法,涉及使用VB操作文本文件的相關(guān)技巧,需要的朋友可以參考下2015-06-06
這篇文章主要介紹了VB讀取線程、句柄及寫入內(nèi)存的API代碼實例,需要的朋友可以參考下2014-07-07
VB的TextBox文本框?qū)崿F(xiàn)垂直居中顯示的方法
這篇文章主要介紹了VB的TextBox文本框?qū)崿F(xiàn)垂直居中顯示的方法,比較實用的功能,需要的朋友可以參考下2014-07-07