一个简单的Ado用法示例
时间：2003-12-12 20:40 来源：Access爱好者 作者：李寻欢 阅读：次
'以下代码示例如何打开一个名为“表1”的表，并把它的第二个字段逐一显示在立即窗口，最后关闭记录集及Ado连接。
Dim cn As New ADODB.Connection '定义一个Ado连接
Dim rs As New ADODB.Recordset '定义一个Ado记录集
Dim sql As String '定义一个字符串变量
Set cn = CurrentProject.Connection '定义cn等于当前连接
sql = "select * from 表1" '给字符串赋值
rs.Open sql, cn, adOpenKeyset, adLockPessimistic, 1 '打开一个记录集并赋给rs
Do While Not rs.EOF '当不是记录集的结束就循环 Debug.Print rs.Fields(1) '在立即窗口显示出第二个字段的值 rs.MoveNext '记录集下移一条，如果没有这条就会死循环 Loop '循环 rs.Close '关闭记录集 cn.Close '关闭连接
Set cn = Nothing
Dim cn As New ADODB.Connection '定义一个Ado连接
Dim rs As New ADODB.Recordset '定义一个Ado记录集
Dim sql As String '定义一个字符串变量
Set cn = CurrentProject.Connection '定义cn等于当前连接
sql = "select * from 表1" '给字符串赋值
rs.Open sql, cn, adOpenKeyset, adLockPessimistic, 1 '打开一个记录集并赋给rs
Do While Not rs.EOF '当不是记录集的结束就循环 Debug.Print rs.Fields(1) '在立即窗口显示出第二个字段的值 rs.MoveNext '记录集下移一条，如果没有这条就会死循环 Loop '循环 rs.Close '关闭记录集 cn.Close '关闭连接
Set cn = Nothing
(责任编辑：admin)
顶一下
(0)
0%
踩一下
(0)
0%
相关内容
- ·用DAO或ADO正确访问Access 2000
- ·Access开发网络共享版技巧（多人同时操
- ·access中ADO与DAO格式的区别和写法【总
- ·access执行操作查询的几种方法对比
- ·Access中CurrentDb().Execute 和DoCmd.
- ·[源创技巧]在ACCESS中使用代码来自动创
- ·更新访问权限 (Jet) 数据库中的 40 多
- ·【实例】ADO代码计算余额法
- ·DAO实现的子窗体记录分页显示
- ·分别使用DAO和ADO连接外部数据库和Sql
- ·怎样判断一个表是否存在于数据库中? (D
- ·处理加了密码的MDB文件
- ·谈ADO访问不同数据库的差别
- ·DAO基础(4)
- ·DAO基础(3)
- ·DAO基础(2)
最新内容
推荐内容