Access交流网
  • 设为首页|收藏本站|繁体中文|手机版
  •     
  • Access培训-Access开发平台-Access行业开发

  • 首页
  • 资讯
  • 技巧
  • 源码
  • 行业
  • 资源
  • 活动
  • 关于

技巧

ACCESS数据库

启动/设置/选项/背景

修复/压缩

安全/加密/解密

快捷键

版本升级/其它等

数据表

命名方式/设计规范

表设计

查询

Sql语言基础

选择查询

更新查询

删除查询

追加查询

生成表查询

交叉表查询

SQL特定查询

查询参数

查询综合应用

界面/窗体/控件

标签

文本框

命令按钮

组合框/列表框

选项组/复选框/选项按钮

选项卡

子窗体

窗体本身/综合应用

其它

报表打印

报表设计

高级报表

模块/函数/VBA/API/系统

VBA基础

内置函数

调试/跟踪/Debug

模块/类模块

API/COM/系统相关

字符数字日期

网络通信游戏

加密解密安全

文件处理

经典算法

宏/菜单/工具栏/功能区

宏/脚本

菜单/工具栏

功能区/Ribbon

图表/图形/图像/多媒体

图表

图形/图像

音频

视频/动画

DAO/链接表/ADO/ADP

DAO/链接表/ODBC

ADO/RDO

ADP

ActiveX/第三方控件/插件

Treeview树控件

ListView列表控件

Toolbar工具栏控件

微软其它控件

Dbi-Tech

CodeJock

Grid++Report

FastReport

ComponentOne

加载项/插件/Addin

OFFICE集成/导入导出/交互

Excel导入导出/交互

Word导入导出/交互

PPT交互

Outlook控制/邮件

Text文本文件/INI/CSV

PDF/SWF/XML格式

CAD格式

Sharepoint/其它Office

SqlServer/其它数据库

表

视图

存储过程/触发器

函数

用户/权限/安全

调试/维护

SqlServer其它/综合

发布/打包/文档/帮助

开发版/运行时

打包/发布/部署

开发文档/帮助制作

Access完整行业系统

采购管理系统

销售管理系统

仓库管理系统

人力资源管理HRM

CRM管理系统

MRP/ERP管理系统

BRP/流程优化

其它管理系统

心得/经验/绝招
其它/杂项
Excel技巧

Excel应用与操作

Excel开发编程

Word技巧

Word应用与操作

Word开发编程

Outlook技巧

Outlook应用与操作

Outlook开发编程

热门文章

  • Access中ADO和DA..
  • ADO直接读Excel的数..
  • 64位windows系统如..
  • DAO与ADO创建索引时一..
  • 在打开Ado记录集之前尽量..
  • 通过字段名来获取字段标题的..

最新文章

  • 64位windows系统如..
  • 在打开Ado记录集之前尽量..
  • DAO与ADO创建索引时一..
  • 通过字段名来获取字段标题的..
  • 获取表字段名
  • Access中ADO和DA..

联系方式

Access交流网(免费Access交流)

QQ:18449932 

网  址:www.access-cn.com

当前位置:首页 > 技巧 > DAO/链接表/ADO/ADP > ADO/RDO
ADO/RDO

【新手进阶】之二十:浅谈ADO之Recordset(上)

这一节,我们来学习记录集(Recordset)。

相比于其它子集来说,记录集是大家最熟悉,却又最易被误解的一个。开始接触记录集时,我是把它当做表或者查询来理解的。随着学习的深入,才渐渐明白,表和查询只是记录集最常见的两种表现形式而已,套用某句台词来说,“表或者查询只是我的表面工作,其实我的真正身份是记!录!集!”

好了,言归正传。根据前面的只是,我们很轻易就可以创建一个记录集了:

    Sub CreateRst()

    Dim rst As New ADODB.Recordset

    rst.Open "myTable", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    MsgBox rst(0)

    rst.Close

    Set rst = Nothing

    End Sub

复制代码

第一句表示创建一个记录集,然后用第二句来打开它,第三句则是把第一个字段的第一个值用弹窗显示出来,然后关闭记录集并清空内存。

Open的参数其实有五个,只是我们常用的只有4个,最后一个可选参数,我们常常忽略了。

第一个参数:表示需要打开的记录集,它可以是一个表或者选择查询,还可以是一个文件。——这将在本文最后的部分讨论,先按下不表。

第二个参数:表示的是数据连接。在Access里可以用CurrentProject.Connection来表示,外部数据连接则需要创建连接,并先行打开,详见本系列的第一节。

第三个参数:游标锁定类型。见下表

第四个参数:记录锁定类型。见下表

  

游标类型

  

数值表示

记录锁定类型

数值表示

adOpenForwardOnly

0

adLockReadOnly

1

adOpenKeyset

1

adLockPessimistic

2

adOpenDynamic

2

adLockOptimistic

3

adOpenStatic

3

adLockBatchOptimistic

4

有时候我们看到这样的语句:rst.Open"myTable", CurrentProject.Connection, 2,3就是这么来的。但我不赞成这样写,我相信,没有谁愿意去记住这些数字分别代表什么,而且这样很易出错。例如不小心用了只读的记录锁定类型,却去试图修改记录集就会出错。实际的游标类型,常常优先取决于记录锁定类型。详见下表:

  

记录锁定类型

  

实际游标类型

adLockReadOnly

除adOpenForwardOnly外,其它均转为adOpenStatic

adLockPessimistic

全部转为adOpenKeyset

adLockOptimistic

全部转为adOpenKeyset

adLockBatchOptimistic

全部转为adOpenKeyset

当记录锁定类型为只读(adLockReadOnly)时,记录集将不可以进行增删改等操作,即只有Move相关几个方法和Find方法。特别地,而当游标为只进(adOpenForwardOnly)时,这相当于记录集的快照模式,连RecordCount都成为-1了。剩下的方法只有:Find、MoveFirst、MoveNext和Move(还不能是负数哦)。

根据《Access 2007 VBA宝典》的介绍,当游标类型为动态时(adOpenDynamic),允许查看其它用户的增删改操作,并允许执行各种移动、查找和增删改操作。当它为键盘锁定(adOpenKeyset)时则无法查看其它用户增删的记录,只能查看修改的记录;而为静态锁定时,其它用户操作的记录则无法查看了。但如何查看,著者并没有给出具体办法,只给出一个根据用户输入值来判断是否允许添加的例子,我略作修改后如下:

    Sub AddRecord()

    Dim rst As New ADODB.Recordset

    Dim s As String

    rst.Open "myTable", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    s = "10620029"

    rst.Find "服务代码='" & s & "'"

    If Not rst.EOF Then’如果已经找到记录

        MsgBox "已占用"

        Debug.Print rst.RecordCount’在立即窗口打印出记录条数

    Else’否则新增一条记录

        rst.AddNew

       rst(1) = "haha"’给新纪录赋值

        rst(3) = s

        rst.update’更新记录

        Debug.Print rst.RecordCount

    End If

    rst.Close

    End Sub

复制代码

这段代码表示的是,先查找是否存在这个服务代码的记录,如果存在则表示已占用,否则就新增一条记录。——这对于禁止用户输入重复值很有用。另外一个办法是:通过对字段设置“索引(无重复值)”或者主键来禁止。

下面,我们开始介绍记录集的常用操作方法有:

AddNew:新增一条记录

Delete:删除一条记录。

这两个方法常常结合update方法来更新记录集。还可以在全部操作完成后,用批量更新(UpdateBatch)一次性完成。虽然在正确的记录锁定类型下,删除记录并不需要更新操作也会执行,为保险起见,还是建议大家写上这一句。

细心的你,一定发现,不是“增删改”吗?怎么没有修改的方法呢?怎么修改记录啊?Roy的回答是:给已有记录重新赋值。上面的rst(1)=”haha”就是一个例子。

在我给出的例子中基本没有循环操作,因此,当大家需要批量处理记录集时,一定要加上循环语句,例如把第二个字段所有记录均改为“haha”:

    For i=1 to Rst.ReordCount

           Rst(1)=”haha”

       Rst.MoveNext

    Next i

复制代码

或者用Do……Loop:

    Do Until Rst.EOF

           Rst(1)=”haha”

        Rst.MoveNext

    Loop

复制代码

ReordCount 表示的记录总条数,而EOF属性则表示的文件末尾。具体用哪个循环,则视个人编程习惯而定了。如果不太熟悉循环语句,可以参考之前的新手进阶系列。

RecordCount与游标类型有一定的关系,盗梦曾提到,用Command执行存储过程中,RecordCount只能返回-1。同样地,当记录锁定类型为只读时,RecordCount也是-1,这时候就只能用EOF了。


发布人:  
分享到:
点击次数:  更新时间:2016-02-03 15:42:00  【打印此页】  【关闭】
上一条:【技巧】chr(160)符号详解  下一条:ADO,OLEDB,ODBC,DAO,RDO等之间的区别



相关文章

  • • 64位windows系统如何使用64位的ADO连接Accesss accdb数据库(ACE.OLEDB)
  • • 在打开Ado记录集之前尽量先判断记录集有否打开,如打开则先关闭之
  • • DAO与ADO创建索引时一些属性的区别及对应关系
  • • 通过字段名来获取字段标题的函数
  • • 获取表字段名
  • • Access中ADO和DAO like查询的区别
  • • ADO直接读Excel的数据

热门文章

  • [2016-02-03] 【新手进阶】之二十:浅谈ADO之Recordset(上)access数据库
  • [2017-03-04] 获取表字段名access数据库
  • [2015-01-18] ADO直接读Excel的数据access数据库
  • [2017-05-22] 在打开Ado记录集之前尽量先判断记录集有否打开,如打开则先关闭之access数据库
  • [2017-04-10] DAO与ADO创建索引时一些属性的区别及对应关系access数据库
  • [2017-03-06] 通过字段名来获取字段标题的函数access数据库

热门产品

公司动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图

Access交流网 版权所有 1999-2018 粤ICP备10043721号

QQ:18449932

Access应用 Access培训 Access开发 Access平台

access|数据库|access下载|access教程|access视频|access软件

Powered by MetInfo 5.3.12 ©2008-2023  www.metinfo.cn