VB使用ADO操作Access數(shù)據(jù)庫
這里只是個簡單不能再簡單的VB小程序實例,但它包含這幾個關鍵字:VB6.0、ADO、Access
環(huán)境:visual basic 6.0 企業(yè)版(非精簡版,不然會缺少必須的控件)
數(shù)據(jù)庫:Access數(shù)據(jù)庫,數(shù)據(jù)庫是xs.mbd,內(nèi)建表為xj
結果:vb使用ADO連接access數(shù)據(jù)庫,查詢xj表中的所有數(shù)據(jù),然后把查詢到的結果循環(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)輸出查詢到的結果 Print RS!姓名; RS!性別; RS!班級; RS!出生年月 '在窗口中打印輸出結果 RS.MoveNext '記錄下移 Loop RS.Close '關閉記錄集 Set RS = Nothing End Sub
以上所述就是本文的全部內(nèi)容了,希望大家能夠喜歡。
相關文章
淺談如何使用vb.net從數(shù)據(jù)庫中提取數(shù)據(jù)
這篇文章主要介紹了淺談如何使用vb.net從數(shù)據(jù)庫中提取數(shù)據(jù),使用VB提取數(shù)據(jù),是先查找,做成數(shù)組,再顯示到數(shù)據(jù)里,如果感興趣可以了解一下2020-07-07VB的TextBox文本框實現(xiàn)垂直居中顯示的方法
這篇文章主要介紹了VB的TextBox文本框實現(xiàn)垂直居中顯示的方法,比較實用的功能,需要的朋友可以參考下2014-07-07VB使用XMLHTTP實現(xiàn)Post與Get的方法
這篇文章主要介紹了VB使用XMLHTTP實現(xiàn)Post與Get的方法,有一定的借鑒價值,需要的朋友可以參考下2014-07-07