亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

VB使用ADO操作Access數(shù)據(jù)庫

 更新時間:2015年06月17日 10:53:53   投稿:hebedich  
這篇文章主要介紹了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)容了,希望大家能夠喜歡。

相關文章

最新評論