虚位以待(AD)
虚位以待(AD)
首页 > 软件编程 > VB编程 > VB使用ADO操作Access数据库

VB使用ADO操作Access数据库
类别:VB编程   作者:码皇   来源:互联网   点击:

这篇文章主要介绍了VB使用ADO操作Access数据库的相关资料,需要的朋友可以参考下

这里只是个简单不能再简单的VB小程序实例,但它包含这几个关键字:VB6.0、ADO、Access

环境:visual basic 6.0 企业版(非精简版,不然会缺少必须的控件)

数据库:Access数据库,数据库是xs.mbd,内建表为xj

结果:vb使用ADO连接access数据库,查询xj表中的所有数据,然后把查询到的结果循环输出到窗口中。

代码:

    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" '数据库连接db.Open '打开数据库strSQL = "select * from xj" 'SQL字符串RS.Open strSQL, db, 3, 1 '查询数据表Do While Not RS.EOF '循环输出查询到的结果Print RS!姓名;
    RS!性别;
    RS!班级;
    RS!出生年月 '在窗口中打印输出结果RS.MoveNext '记录下移LoopRS.Close '关闭记录集Set RS = NothingEnd Sub

以上所述就是本文的全部内容了,希望大家能够喜欢。

相关热词搜索: VB ADO Access