| 一个简单的Ado用法示例 |
|
| 作者：李寻欢『… 文章来源：access爱好者 点击数： 本日：{$DayHits} 更新时间：2005-8-16 10:09:19 |
'以下代码示例如何打开一个名为“表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
|
| 文章录入：tm 责任编辑：tm |
|
上一篇文章： ADO三大对象的属性、方法、事件及常数（三）
下一篇文章： 如何导入有密码的MDB文件而不会弹要求输密码的对话框？ |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
