VB使用ADO操作Access数据库
2015-06-17 10:53
1061 查看
这里只是个简单不能再简单的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 '记录下移 Loop RS.Close '关闭记录集 Set RS = Nothing End Sub
以上所述就是本文的全部内容了,希望大家能够喜欢。
您可能感兴趣的文章:
相关文章推荐
- Access 2000 数据库 80 万记录通用快速分页类
- VB简单实现防止文件被改写
- VB实现禁用任务管理器的方法
- VBS教程:运算符-运算符(+)
- VB实现的16位和32位md5加密代码分享
- VB6中的LSet语句和RSet语句详解
- VB实现的递归复制文件和搜索文件的代码分享
- 十万条Access数据表分页的两个解决方法
- VB6实现连接Access数据库的ADODB代码实现方法
- Access中字段上自动打开的输入法的解决方法
- Access to SQLserver 数据库生迁脚本编写器(DB_CreateSqlEV1.06下载)
- asp Access数据备份,还原,压缩类代码
- VB键盘鼠标无动作调用程序的尝试
- VB XMLHTTP使用方法
- VB语言使用ADO连接、操作SQLServer数据库教程
- VB使用shell函数打开外部exe程序的实现方法
- VB的TextBox文本框实现垂直居中显示的方法
- VBS教程:运算符-\ 运算符
- 文本、Excel、Access数据导入SQL Server2000的方法
- PowerShell 修复 Robocopy的权限问题