這里只是個(gè)簡單不能再簡單的VB小程序?qū)嵗@幾個(gè)關(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 '記錄下移LoopRS.Close '關(guān)閉記錄集Set RS = NothingEnd Sub
以上所述就是本文的全部內(nèi)容了,希望大家能夠喜歡。
新聞熱點(diǎn)
疑難解答
圖片精選