Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› DAOADOADP链接表DBMS › 查看内容

一个简单的Ado用法示例

1970-1-1 08:00| 发布者: 李寻欢| 查看: 2965| 评论: 0

'以下代码示例如何打开一个名为“表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

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

一个简单的Ado用法示例

最新评论

相关分类