QTP连接oracle并操作数据库的方法这里以oracle 9i为例子，其他的数据库连接方法是相通的。
a.首先要在本机建议ODBC数据源，这个属于基本操作，这里不讲，跳过；
b.获取oracle的连接串的方法，在本地新建一个.txt文件，修改扩展名名*.udl，双击*.udl文件，打开数据库链接属性，定位到“提供程序”选显卡，选中 oracle的连接 oracle provider for OLE DB,点击下一步，输入数据源，数据库用户名以及密码，点击测试连接，然后用UE或记事本打开*.udl文件，oracle的连接串已经生成了，例如
Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=test;Data Source=192.168.13.19
以上就是udl文件生成的oracle连接串
现在我们需要手动添加一个oracle连接串的密码字段Password，插入到User ID后面，中间用分号隔开；
即 Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=test;;Password=test;Data Source=192.168.13.19
c.在qtp中来连接数据库
Dim Cnn '定义一个数据库连接串
Set Cnn = CreateObject("ADODB.Connection")
Cnn.ConnectionString ="Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=test;Password=test;Data Source=31"
Cnn.Open '打开数据库连接
If Cnn.State = 0 Then '判断数据库连接是否成功
Reporter.ReportEvent micFail, "testing", "连接数据库失败"
else
Reporter.ReportEvent micPass, "testing", "连接数据库成功"
End If
if Cnn.State<> 0 then
Set Rs=CreateObject("ADODB.Recordset") '生成记录集对象
strsql ="Select * from t_sys_user" '从数据库中查询t_sys_user的所有记录
Rs.Open strsql ,Cnn,1,3 '执行sql语句，记录可以自由移动，单数记录处于只读模式
ydl=Rs("USER_ID") '取得字段为USER_ID的记录，游标定义在第一行，所以取得的是该字段所在行的第一行数据
msgbox ydl
dim a
a="1188" '该a的数据库可以从外部获取，可以是某个页面的某个值，拿来跟数据库中的值做比较
for i=1 to Rs.Recordcount '开始遍历数据库中所有的行数，Rs.Recordcount表示统计数据库表的总记录数
if Rs("USER_ID")=a then '将数据库中USER_ID字段的值与变量a进行挨个比较，
msgbox "a在数据库中存在"
exit for '如果找到记录a，则推出for循环
else
Rs.MoveNext '如果数据库中的值与a不相等的话，那么在数据库中将游标移到下一行
end if
next
end if
RS.close '关闭记录集
Set RS=nothing '释放对象
Cnn.Close '关闭数据连接
Set Cnn=nothing '释放对象
另外，如果要判断游标是否到最好一行，则用
For i=1 to Rs.Recordcount
If Rst.EOF Then
msgbox "已经达到数据库最后一行记录"
Exit for
else
Rst.MoveNext
End If
Next
、RecordSet对象的详细用法
RecordSet对象（代表来自基本表或命令执行结果的记录的全集。）
为了更精确地跟踪数据，要用RecordSet组件创建包含数据的游标，游标就是储存在内存中的数据：
rs = Server.CreateObject("ADODB.RecordSet")
rs.Open(sqlStr,conn,1,A)
RS.OPEN SQL,CONN,A,B
A:
ADOPENFORWARDONLY(=0)
只读,且当前数据记录只能向下移动
ADOPENKEYSET(=1)
只读,当前数据记录可自由移动
ADOPENDYNAMIC(=2)
可读写,当前数据记录可自由移动
ADOPENSTATIC(=3)
可读写,当前数据记录可自由移动,可看到新增记录
B:
ADLOCKREADONLY(=1)
缺省锁定类型，记录集是只读的，不能修改记录
ADLOCKPESSIMISTIC(=2)
悲观锁定，当修改记录时，数据提供者将尝试锁定记录以确保成功地编辑记录。只要编辑一开始，则立即锁住记录。
ADLOCKOPTIMISTIC(=3)
乐观锁定 ，直到用Update方法提交更新记录时才锁定记录。
ADLOCKBATCHOPTIMISTIC(=4)
批量乐观锁定，允许修改多个记录，只有调用UpdateBatch方法后才锁定记录。
当不需要改动任何记录时，应该使用只读的记录集，这样提供者不用做任何检测。
对于一般的使用，乐观的锁定可能是最好的选择，因为记录只被锁定一小段时间，
数据在这段时间被更新。这减少了资源的使用。
在RecordSet组件中，常用的属性和方法有：
rs.Fields.Count：RecordSet对象字段数。
rs(i).Name：第i个字段的名称，i为0至rs.Fields.Count-1
rs(i)：第i个字段的数据，i为0至rs.Fields.Count-1
rs("字段名")：指定字段的数据。
rs.RecordCount：数据记录总数。
rs.EOF：是否最后一条记录。
rs.MoveFirst：指向第一条记录。
rs.MoveLast：指向最后一条记录。
rs.MovePrev：指向上一条记录。
rs.MoveNext：指向下一条记录。
rs.GetRows：将数据放入数组中。
rs.Properties.Count：ADO的ResultSet或Connection的属性个数。
rs.Properties(item).Name：ADO的ResultSet或Connection的名称。
rs.Properties：ADO的ResultSet或Connection的值。
rs.close()：关闭连接。
Recordset 对象的属性
1、CursorType 属性
AdOpenForwardOnly： 仅向前游标，默认值。除了只能在记录中向前滚动外，与静态游标相同。当只需要在记录集中单向移动时，使用它可提
高性能。（顾名思义，这种游标只能向前移动。然而，由于这种游标功能有限，将它用于系统资源时是非常有效的。）
AdOpenKeyset： 键集游标。尽管从您的记录集不能访问其他用户删除的记录，但除无法查看其他用户添加的记录外，键集游标与动态游标相似
。仍然可以看见其他用户更改的数据。（KeySet游标允许你看见自它创建起其他用户所做的修改，然而你却不能看到其他用户增加或删除的记
录。）
AdOpenDynamic ：动态游标。可以看见其他用户所作的添加、更改和删除。允许在记录集中进行所有类型的移动，但不包括提供者不支持的书
签操作。（此类型的游标功能强大同时也是耗费系统资源最多的游标。Dynamic游标可以看到他们保存记录集合的所有变化。使用Dynamic游标
的用户可以看到其他用户所做的编辑、增加、删除。如果数据提供者允许这种类型的游标，那么它是通过每隔一段时间从数据源重取数据来支
持这种可视性的。毫无疑问这会需要很多的资源。 ）
AdOpenStatic：静态游标。可以用来查找数据或生成报告的记录集合的静态副本。另外，对其他用户所作的添加、更改或删除不可见。
（Static类游标只是数据的一幅快照。这就是说，它无法看到自它创建以后其他用户对RecordSet所做的修改。采用这类游标你可以向前和向后
航行。由于其功能简单，资源的需求比Dynamic要小！ ）
需要注意的是：一旦打开RecordSet，你就无法改变CursorType属性。但是，如果你首先关闭RecordSet，改变CursorType属性，然后重新打开
RecordSet，那么你仍可以有效地改变游标的类型！
2、LockType 属性
在任何同时可被多用户修改的数据库应用程序中，你必须处理可能发生的多个用户同时对同一条记录进行操作时的情况。当这种情况出现时，
数据的完整性就会受到威胁，这是因为一个用户可能会在不自觉地在保存自己所做的修改时覆盖他人的修改。到时候你会觉得自己好象是没有
做事。为了处理这种情况。ADO允许你在对RecordSet对象进行更新时决定并发事件控制的类型，当一个用户编辑时，如何由他对记录进行锁定
。这就是由LockType属性所决定的。这个属性有四个值：
adLockReadonly：默认值，只读。无法更改数据。（这是RecodSet的默认值，如果你把锁定的方式设为该值，那么你将不能更新 Recordset。
）
adLockPessimistic：保守式记录锁定（逐条）。提供者执行必要的操作确保成功编辑记录，通常采用编辑时立即锁定数据源的记录的方式。（
如果设置为此类锁定，记录被锁定，且只有在编辑开始到将记录更新的提交给数据提供者这段时间内进行编辑的用户才可以访问! ）
adLockOptimistic：开放式记录锁定（逐条）。提供者使用开放式锁定，只在调用 Update 方法时锁定记录。（只有在将数据提交给数据提供
者的那一瞬间才把记录锁定。）
adlockBatchOptimistic：开放式批更新。用于与立即更新模式相反的批更新模式。（设定为这种类型的锁定制式将被称为批量更新模式的
RecordSet。 可以加快更新RecordSet修改数据的速度，但因为同时更新多个记录，它也会恶化与并发访问相关的问题！ ）
3、AbsolutePage 属性
AbsolutePage属性设定当前记录的位置是位于哪一页的页数编号；使用PageSize属性将Recordset对象分割为逻辑上的页数，每一页的记录数为
PageSize(除了最后一页可能会有少于PageSize的记录数)。这里必须注意并不是所有的数据提供者都支持此项属性，因此使用时要小心。
与AbsolutePosition属性相同，AbsolutePage属性是以1为起始的，若当前记录为Recordset的第一行记录，AbsolutePage为1。可以设定
AbsolutePage属性，以移动到一个指定页的第一行记录位置。
4、AbsolutePosition属性
若您需要确定目前指标在RecordSet中的位置，您可以用AbsolutePosition属性。
AbsolutePosition属性的数值为目前指标相对於第一笔的位置，由1算起，即第一笔的AbsolutePosition为1。
注意,在存取RecordSet时，无法保证RecordSet每次都以同样的顺序出现。
若要启用AbsolutePosition，必须先设定为使用用户端cursor(指针)：rs.CursorLocation=3
5、PageCount属性
使用PageCount属性，决定Recordset对象包括多少“页”的数据。这里的“页”是数据记录的集合，大小等于PageSize属性的设定，即使最后
一页的记录数比PageSize的值少，最后一页也算是PageCount的一页。必须注意也并不是所有的数据提供者都支持此项属性。
6、PageSize属性
PageSize属性是决定ADO存取数据库时如何分页显示的关键，使用它就可以决定多少记录组成一个逻辑上的“一页”。设定并建立一个页的大小
，从而允许使用AbsolutePage属性移到其它逻辑页的第一条记录。PageSize属性能随时被设定。
7、RecordCount属性
这也是一个非常常用和重要的属性，我们常用RecordCount属性来找出一个Recordset对象包括多少条记录。使用 RecordCount 属性可确定
Recordset 对象中记录的数目。ADO 无法确定记录数时，或者如果提供者或游标类型不支持 RecordCount，则该属性返回 –1。读已关闭的
Recordset 上的 RecordCount 属性将产生错误。Recordset 对象的游标类型会影响是否能够确定记录的数目。对仅向前游标，RecordCount 属
性将返回 -1，对静态或键集游标返回实际计数，对动态游标取决于数据源返回 -1 或实际计数。
8、BOF与EOF属性
通常我们在ASP程序中编写代码来检验BOF与EOF属性，从而得知目前指标所指向的RecordSet的位置，使用BOF与EOF属性，可以得知一个
Recordset对象是否包含有记录或者得知移动记录行是否已经超出该Recordset对象的范围。
若当前记录的位置是在一个Recordset对象第一行记录之前时，BOF属性返回true，反之则返回false。
若当前记录的位置是在一个Recordset对象最后一行记录之后时，EOF属性返回true，反之则返回false。
（BOF与EOF都为True表示在RecordSet里没有任何记录。）
9、Filter 属性
为 Recordset 中的数据指定筛选条件，使用 Filter 属性可选择性地屏蔽 Recordset 对象中的记录，已筛选的 Recordset 将成为当前游标。
这将影响基于当前游标返回值的其他属性，如 AbsolutePosition、AbsolutePage、RecordCount 和 PageCount，因为将 Filter 属性设置为特
定值可将当前记录移动到满足新值的第一个记录。
这属性我认为相当有用处，有的时候我们打开了Recordset进行了某些判断以后我们还想过滤记录也就是重新调整 sql 语句，难道我们关闭
Recordset再用新的SQL语句打开？不是，我们用Filter属性进行过滤，比如说
rs.open exec,conn,1,1
if .... then rs.filter="name='xxx'"
而不是
rs.open exec,conn,1,1
if ... then
rs.close
exec=exec&" where name='xxx'"
rs.open exec,conn,1,1
end if
实际上再很多地方不得不用到Filter，在以后的ASP技巧中会说到，大家也可以想一下。
明天继续说Recordset对象的方法。
Recordset对象的方法
1、AddNew 方法
创建可更新 Recordset 对象的新记录。
recordset.AddNew FieldList, Values
FieldList 可选。新记录中字段的单个名称、一组名称或序号位置。
Values 可选。新记录中字段的单个或一组值。如果 Fields 是数组，那么 Values 也必须是有相同成员数的数组，否则将发生错误。字段名
称的次序必须与每个数组中的字段值的次序相匹配。
我们一般是
rs.addnew
rs("xx")=xx
rs("xx")=xx
rs.update
需要注意的是在立即更新模式（调用 Update 方法时提供者会立即将更改写入基本数据源）下，调用不带参数的 AddNew 方法可将 EditMode
属性设置为 adEditAdd。提供者将任何字段值的更改缓存在本地。调用 Update 方法可将新记录传递到数据库并将 EditMode 属性重置为
adEditNone。如果传送了 Fields 和 Values 参数，ADO 则立即将新记录传递到数据库（无须调用 Update），且 EditMode 属性值没有改变
(adEditNone)。
可能大家会问在ASP中使用ADO的AddNew方法和直接使用“Insert into...”语句有和不同？那种方式更好？答：ADO的AddNew方法只是将
“Insert into ”语句封装了起来，所以，当对大量数据进行操作的时候，直接使用SQL语句将会大大加快存取数据的速度，因为他减少了ADO
的“翻译”时间。
2、Delete 方法
删除当前记录或记录组。
recordset.Delete AffectRecords
AffectRecords AffectEnum 值，确定 Delete 方法所影响的记录数目，该值可以是下列常量之一。
AdAffectCurrent 默认。仅删除当前记录。
AdAffectGroup 删除满足当前 Filter 属性设置的记录。要使用该选项，必须将 Filter 属性设置为有效的预定义常量之一。
adAffectAll 删除所有记录。
adAffectAllChapters 删除所有子集记录。
使用立即更新模式将在数据库中进行立即删除，否则记录将标记为从缓存删除，实际的删除将在调用 Update 方法时进行。
3、Update 方法
保存对 Recordset 对象的当前记录所做的所有更改
recordset.Update Fields, Values
Fields 可选。变体型，代表单个名称；或变体型数组，代表需要修改的字段（一个或多个）名称及序号位置。
Values 可选。变体型，代表单个值；或变体型数组，代表新记录中字段（单个或多个）值。
如果希望取消对当前记录所做的任何更改或者放弃新添加的记录，则必须调用 CancelUpdate 方法。
4、CancelUpdate 方法
recordset.CancelUpdate
使用 CancelUpdate 方法可取消对当前记录所作的任何更改或放弃新添加的记录。在调用 Update 方法后将无法撤消对当前记录或新记录所做
的更改，如果在调用 CancelUpdate 方法时添加新记录，则调用 AddNew 之前的当前记录将再次成为当前记录。如果尚未更改当前记录或添加
新记录，调用 CancelUpdate 方法将产生错误。
5、Find 方法
搜索 Recordset 中满足指定标准的记录。如果满足标准，则记录集位置设置在找到的记录上，否则位置将设置在记录集的末尾。
Find (criteria, SkipRows, searchDirection, start)
criteria 字符串，包含指定用于搜索的列名、比较操作符和值的语句。
SkipRows 可选，长整型值，其默认值为零，它指定当前行或 start 书签的位移以开始搜索。
searchDirection 可选的 SearchDirectionEnum 值，指定搜索应从当前行还是下一个有效行开始。其值可为 adSearchForward 或
adSearchBackward。搜索是在记录集的开始还是末尾结束由 searchDirection 值决定。
start 可选，变体型书签，用作搜索的开始位置。
criteria “比较操作符”可以是“>”（大于）、“<”（小于）、“=”（等于）、“>=”（大于或等于）、“<=”（小于或等于）、“<>”
（不等于）或“like”（模式匹配）。 criteria 中的值可以是字符串、浮点数或者日期。字符串值以单引号分界（如“state = 'WA'”）。
日期值以“#”（数字记号）分界（如“start_date > #7/22/97#”）。
需要注意的是find是不支持多字段。但是可以用filter实现。"name='abc'"AND "city='sh'" 是不允许的
6、Move 方法
移动 Recordset 对象中当前记录的位置
recordset.Move NumRecords, Start
NumRecords 带符号长整型表达式，指定当前记录位置移动的记录数。
Start 可选，字符串或变体型，用于计算书签。也可为下列值之一：
AdBookmarkCurrent 默认。从当前记录开始。
AdBookmarkFirst 从首记录开始。
AdBookmarkLast 从尾记录开始。
需要注意的是：
（1）如果 NumRecords 参数大于零，则当前记录位置将向前移动（向记录集的末尾）。如果 NumRecords 小于零，则当前记录位置向后移动（
向记录集的开始）。
（2）从空的 Recordset 对象调用 Move 方法将产生错误。
（3）如果 Move 调用将当前记录位置移动到首记录之前，则 ADO 将当前记录放置在记录集（BOF 为 True）的首记录之前。在 BOF 属性已经
为 True 时试图向后移动将产生错误；如果 Move 调用将当前记录位置移动到尾记录之后，则 ADO 将当前记录放置在记录集（EOF 为 True）
的尾记录之后。在 EOF 属性已经为 True 时试图向前移动将产生错误。
7、MoveFirst、MoveLast、MoveNext 和 MovePrevious 方法
在指定 Recordset 对象中移动到第一个、最后一个、下一个或前一个记录并使该记录成为当前记录。
recordset.{MoveFirst | MoveLast | MoveNext | MovePrevious}
需要注意的是：
（1）使用 MoveNext 方法将当前记录向前移动一个记录（向 Recordset 的底部）。如果最后一个记录是当前记录并且调用 MoveNext 方法，
则 ADO 将当前记录设置到 Recordset （EOF 为 True）的尾记录之后。当 EOF 属性已经为 True 时试图向前移动将产生错误。
（2）使用 MovePrevious 方法将当前记录位置向后移动一个记录（向记录集的顶部）。Recordset 对象必须支持向后游标移动；否则方法调用
将产生错误。如果首记录是当前记录并且调用 MovePrevious 方法，则 ADO 将当前记录设置在 Recordset （BOF 为 True）的首记录之前。而
BOF 属性为 True 时向后移动将产生错误。
8、Clone 方法
创建与现有 Recordset 对象相同的复制 Recordset 对象。可选择指定该副本为只读。
Set rstDuplicate = rstOriginal.Clone
rstDuplicate 对象变量，标识正在创建的复制 Recordset 对象。
rstOriginal 对象变量，标识要被复制的 Recordset 对象。
使用 Clone 方法可创建多个 Recordset 对象副本，这对于希望在给定的记录组中保留多个当前记录十分有用。使用 Clone 方法比使用与初始
定义相同的定义创建和打开新 Recordset 对象要有效得多。
也就是说
rs.open exec,conn,1,1
rs2.open exec,conn,1,1
应该这么改写
rs.open exec,conn,1,1
rs2=rs.clone
需要注意的是：
（1）新创建副本的当前记录将设置为首记录。
（2）关闭原始 Recordset 时并不关闭它的副本，而关闭某个副本也将不关闭原始 Recordset 或任何其他副本。
9、Close 方法
关闭打开的对象及任何相关对象。
object.Close
需要注意的是：
（1）使用 Close 方法可关闭Recordset 对象以便释放所有关联的系统资源。关闭对象并非将它从内存中删除，可以更改它的属性设置并且在
此后再次打开。要将对象从内存中完全删除，可将对象变量设置为 Nothing。
（2）如果正在立即更新模式下进行编辑，调用 Close 方法将产生错误，应首先调用 Update 或 CancelUpdate 方法。
10、Open 方法，为什么最后说这个，因为前面的各项属性方法没有弄清楚，我们是不会理解CursorType参数的
recordset.Open Source, ActiveConnection, CursorType, LockType, Options
Recordset对象可以通过Source属性来连接Command对象。Source参数可以是一个Command对象名称、一段SQL命令、一个指定的数据表名称或是
一个Stored Procedure。假如省略这个参数，系统则采用Recordset对象的Source属性。ActiveConnection
Recordset对象可以通过ActiveConnection属性来连接Connection对象。这里的ActiveConnection可以是一个Connection对象或是一串包含数据
库连接信息（ConnectionString）的字符串参数。CursorType
Recordset对象Open方法的CursorType参数表示将以什么样的游标类型启动数据，包括adOpenForwardOnly、adOpenKeyset、adOpenDynamic及ad
OpenStatic，分述如下：
--------------------------------------------------------------
常数 常数值 说明
-------------------------------------------------------------
adOpenForwardOnly 0 缺省值，启动一个只能向前移动的游标（Forward Only）。
adOpenKeyset 1 启动一个Keyset类型的游标。
adOpenDynamic 2 启动一个Dynamic类型的游标。
adOpenStatic 3 启动一个Static类型的游标。
-------------------------------------------------------------
以上几个游标类型将直接影响到Recordset对象所有的属性和方法，以下列表说明他们之间的区别。
Recordset属性 adOpenForwardOnly adOpenKeyset adOpenDynamic adOpenStatic
AbsolutePage 不支持 不支持 可读写 可读写
AbsolutePosition 不支持 不支持 可读写 可读写
BOF 只读 只读 只读 只读
CursorType 可读写 可读写 可读写 可读写
EOF 只读 只读 只读 只读
Filter 可读写 可读写 可读写 可读写
LockType 可读写 可读写 可读写 可读写
PageCount 不支持 不支持 只读 只读
PageSize 可读写 可读写 可读写 可读写
RecordCount 不支持 不支持 只读 只读
AddNew 支持 支持 支持 支持
CancelBatch 支持 支持 支持 支持
CancelUpdate 支持 支持 支持 支持
Close 支持 支持 支持 支持
Delete 支持 支持 支持 支持
Move 不支持 支持 支持 支持
MoveFirst 支持 支持 支持 支持
MoveLast 不支持 支持 支持 支持
MoveNext 支持 支持 支持 支持
MovePrevious 不支持 支持 支持 支持
Open 支持 支持 支持 支持
Update 支持 支持 支持 支持
UpdateBatch 支持 支持 支持 支持
--------------------------------------------------------------
Recordset对象Open方法的LockType参数表示要采用的Lock类型，如果忽略这个参数，那么系统会以Recordset对象的LockType属性为预设值。
LockType参数包含adLockReadOnly、adLockPrssimistic、adLockOptimistic及adLockBatchOptimistic等，分述如下：
常数 常数值 说明
--------------------------------------------------------------
adLockReadOnly 1 缺省值，Recordset对象以只读方式启动，无法运行AddNew、Update及Delete等方法
adLockPrssimistic 2 当数据源正在更新时，系统会暂时锁住其他用户的动作，以保持数据一致性。
adLockOptimistic 3 当数据源正在更新时，系统并不会锁住其他用户的动作，其他用户可以对数据进行增、删、改的操作。
adLockBatchOptimistic 4 当数据源正在更新时，其他用户必须将CursorLocation属性改为adUdeClientBatch才能对数据进行增、删、改的操
作。
需要注意的是：
如果数据源没有返回记录，那么提供者将 BOF 和 EOF 属性同时设置为 True，并且不定义当前记录位置。如果游标类型允许，仍然可以将新数
据添加到该空 Recordset 对象。
