漏网小鱼博客

‘以下代码示例如何打开一个名为“表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 ‘打开一个记录集并赋给
Do While Not rs.EOF ‘当不是记录集的结束就循环
Debug.Print rs.Fields(1) ‘在立即窗口显示出第二个字段的值
rs.MoveNext ‘记录集下移一条，如果没有这条就会死循环
Loop ‘循环
rs.Close ‘关闭记录集 cn.Close ‘关闭连接
Set cn = Nothing

声明: 本文采用 BY-NC-SA 协议进行授权 | 漏网小鱼博客
转载请注明转自《一个简单的Ado用法示例》