VB使用ADO操作Access数据库
这里只是个简单不能再简单的VB小程序实例，但它包含这几个关键字：VB6.0、ADO、Access
环境：visualbasic6.0企业版（非精简版，不然会缺少必须的控件）
数据库：Access数据库，数据库是xs.mbd，内建表为xj
结果：vb使用ADO连接access数据库，查询xj表中的所有数据，然后把查询到的结果循环输出到窗口中。
代码：
PrivateSubForm_Click() DimdbAsNewADODB.Connection,RSAsNewADODB.Recordset'ADO连接对象和记录集 DimstrSQLAsString'SQL字符串 db.ConnectionString="provider=Microsoft.Jet.OLEDB.4.0;Datasource="&App.Path&"/xs.mdb"'数据库连接 db.Open'打开数据库 strSQL="select*fromxj"'SQL字符串 RS.OpenstrSQL,db,3,1'查询数据表 DoWhileNotRS.EOF'循环输出查询到的结果 PrintRS!姓名;RS!性别;RS!班级;RS!出生年月'在窗口中打印输出结果 RS.MoveNext'记录下移 Loop RS.Close'关闭记录集 SetRS=Nothing EndSub
以上所述就是本文的全部内容了，希望大家能够喜欢。
热门推荐
10 香港老妈结婚祝福语简短
11 毕业立体贺卡祝福语简短
12 简短新年年会祝福语
13 评论小品祝福语大全简短
14 恭喜师兄结婚祝福语简短
15 员工集体辞职祝福语简短
16 高中新生祝福语 简短
17 装修祝福语男生搞笑简短
18 生日开业蛋糕祝福语简短