Office中国论坛/Access中国论坛 › Access中国门户旧版 ›云端代码片段› Access代码片段› Access错误处理 › 查看内容

循环记录集

2015-3-12 19:15| 发布者: tmtony| 查看: 846| 评论: 0|原作者: tmtony|来自: Office中国

摘要: Dim rs As ADODB.Recordset '定义记录集变量 Set rs = New ADODB.Recordset '实例化 rs.Open "selec * from 表名", CurrentProject.Connection, adOpenKeyset, adLockOptimistic Do While Not rs.EOF ...

Dim rs As ADODB.Recordset '定义记录集变量

Set rs = New ADODB.Recordset '实例化

rs.Open "selec * from 表名", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Do While Not rs.EOF '循环记录集中的所有数据

'你的对记录集的相关处理代码

rs.MoveNext

Loop

If rs.State = 1 Then rs.Close '处理后要关闭记录集adStateOpen=1

Set rs = Nothing '释放内存

收藏分享邀请

上一篇：通用的错误代码处理

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

循环记录集

相关分类