c excel连接mysql数据库_用VBA实现excel与Oracle数据库交互

Recordset记录集对象常用属性见表6-20。

表6-20

Recordset记录集对象常用属性见表

属性

说明

Source

指示记录集对象中数据的来源(命令对象名或SQL语句或表名)

ActiveConnection

连接对象名或包含数据库的连接信息的字符串

CursorType

记录集中的指针类型，可选，见表6-16

LockType

锁定类型，可选，见表6-17

MaxRecors

控制从服务器获取的记录集的最大记录数

CursorLocation

控制数据处理是在客户端还是在服务器端

Filter

控制要显示的内容

Bof

记录集的开头

Eof

记录集的结尾

RecordCount

记录集总数

PageSize

分页显示时每一页的记录数

PageCount

分页显示时数据页的总页数

AbsolutePage

当前指针所在的数据页

AbsolutePosition

当前指针所在的记录行

Recordset记录集对象常用属性具体说明如下。

1．Source

用于设置数据库的查询信息，查询信息可以是命令对象名或SQL语句或表名，语法如下：

rs.Source=查询信息

2．ActiveConnection

用于设置数据库的连接信息，连接信息可以是连接对象名或包含数据库的连接信息的字符串，语法如下：

rs.ActiveConnection=连接信息

3．CursorType

用于设置记录集指针类型，取值参见表6-17，语法如下：

rs.CursorType=值

默认为0，即指针只能前移。如果要让指针自由移动，一般设为键盘指针1。

4． LockType

用于设置记录集的锁定类型。取值参见表6-18，语法如下：

rs.LockType=值

默认为1，只读属性。如果要利用记录集对象进行添加、删除、更新等操作，只能由一个用户修改，一般需要设置其属性为2。

5．MaxRecors

用于设定从服务器上得到的最大记录数，语法如下：

rs.MaxRecors=最大记录数

通常这种方法不常用，而是使用SQL语句来指定所得到的最大记录数，”Select Top 整数…”。

6．CursorLocation

用于设置数据处理是在客户端还是在服务器端。取值参见表6-21，语法如下：

rs.CursorLocation =值

表6-21

CursorLocation参数值

参数

值

说明

AdUseClient

1

客户端处理

AdUseServer

2

服务器端处理

AdUseClientBatch

3

动态处理，在客户端处理，处理时连接切断，处理完毕重新连接

有的时候，为了减轻服务器的工作负担，可以根据情况的需要，设置在客户端处理。

7．Filter

用于设置要显示的内容。取值参见表6-22，语法如下：

rs.Filter =值

表6-22

Filter参数值

参数

值

说明

AdFilterNone

0

显示所有数据

AdFilterpendRecords

1

只显示没有修改过的数据

AdFilterAffectedRecords

2

只显示最近修改过的数据

AdFilterFetchedRecords

3

只显示暂存于客户端缓存中的数据

8．Bof

用于判断当前记录指针是否在记录集的开头，如在开头，返回True，否则返回Falsh。如果记录集为空，也返回True。

9．EOF

用于判断当前记录指针是否在记录集的结尾，如在结尾，返回True，否则返回Flash。如果记录集为空，也返回True。

记录集有两个特殊位置：Bof和 EOF。Bof表示记录集的开头，位于第一条记录之前；EOF表示记录集结尾，位于最后一条记录之后。Bof

为 True，当前指针指到 RecordSet 的第一条记录； Eof 为 True，当前指标指到 RecordSet

的最后一条记录。如果记录集不为空，指针可以在Bof、所有记录和Eof移动。如果记录集为空，此时指针同时指向Bof和

Eof，它们的值均为True。

具体判断如下：若当前记录的位置是在一个 Recordset 对象第一行记录之前时， Bof 属性返回 True，反之则返回

False。；若当前记录的位置是在一个 Recordset 对象最后一行记录之后时，Eof 属性返回 True，反之则返回

False；Bof 与 Eof 都为 False，表示指标位于 RecordSet 的当中；Bof 与 Eof 都为 True，在

RecordSet 里没有任何记录。

从以上可知，通过检验 Bof 与 Eof 属性，可以得知当前指针所指向的 RecordSet 的位置，使用 Bof 与 Eof

属性，可以得知一个 Recordset 对象是否包含有记录或者得知移动记录行是否已经超出该 Recordset

对象的范围。

判断记集录是否为空的代码如下：

< %

if not rs.bof and rs.eof then ' 如果不是开头，也不是结尾，则执行

…

End if

%>

循环输出记录集记录的代码如下：

< %

Do while not rs.eof ' 如果没有到达记录集未尾，则循环输出下面的记录

…

Rs.MoveNext

Loop

%>

10．RecordCount

用于返回记录集中的记录总数。我们常用 RecordCount 属性来找出一个 Recordset

对象包括多少条记录。例如：

< % Rsponse.Write rs.RecordCount %>

要注意的是，使用RecordCount必须设置指针类型为键盘指针1或是静态指针3。

11．PageCount

用于设置分页显示时数据页的总数。使用 PageCount 属性，决定 Recordset

对象包括多少“页”的数据。这里的“页”是指数据记录的集合，大小等于 PageSize 属性的设定，即使最后一页的记录数比

PageSize 的值少，最后一页也算是 PageCount 的一页。

12． PageSize 属性

用于设置分页时每一页所显示的记录数。PageSize 属性是决定 ADO

存取数据库时如何分页显示的关键，使用它就可以决定多少记录组成一个逻辑上的“1页”。

第10、11、12条属性通常是用于分页显示，具体运用见下面的范例。

13．AbsolutePage

用于设置当前指针位于哪一页。语法如下：

rs.AbsolutePage =整数值

14．AbsolutePosition

用于设置当前指针所在的记录行。语法如下：

rs.AbsolutePosition =整数值

后面的这些属性使用时，一般需要设置指针类型为键盘指针1。