测试oracle数据库链接,QTP与Oracle数据库链接脚本

1)首先要在控制面板中，加一个odbc数据源。

(2)在qtp中建立连接和记录集

set cnn=createobject("adodb.connection")

set ōbjrsa=createobject("adodb.recordset")

(3)连接数据库

cnn.open "provide=msdaora;userid=apts;password=apts;data source=afctwo"

userid/password,是登陆数据库的用户名和密码，这样数据库就连接上。

(4)对数据库进行操作。

objrsa.open "select bustypefullname from bustypeinfo",cnn,3,2

a=objrsa("bustypefullname").value得到字段bustypefullname的值赋值给了变量a

需要参考ADO

例子：

'删除网络硬盘下所有的文件夹和文件

'@userName用户名

'@domainName用户所在域名

Function delAll(userName, domainName)

Dim wfType

Dim var

wfType = 0  ' 0为该用户的跟目录的起始点

Dim rs,sql,pkey,domainId, userId

set conn=createobject("adodb.connection")

set rs =createobject("adodb.recordset")

' Oracle client is required to be installed on your box

conn.open= "Provider=OraOLEDB.Oracle.1;Password=umail;Persist Security Info=True;User ID=umailrc;SERVER=192.168.6.245;Data Source=umail;DBQ=umail;"

sql="select domainid from domain where domainname='" & domainName & "'"

rs.open sql,conn '执行sql语句

domainId = rs("domainId")

rs.close

sql = "select userid from email_users where username= '" & userName & "' and domainId = '" & domainId &"'"

rs.open sql,conn

userId = rs("userid")

rs.close

sql = "delete from wfs_files where WF_OWNER_ID = '" & userId &"' and WF_TYPE<>0"

rs.open sql,conn

sql = "select count(*) from wfs_files where WF_OWNER_ID = '" & userId &"'"

rs.open sql, conn

var = rs(0)

If var = "1" Then

reporter.ReportEvent micPass, "清空网络硬盘中所有文件和文件夹", "清空成功"

conn.close

set conn=nothing '删除对象

Else

reporter.ReportEvent micFail, "清空网络硬盘中所有文件和文件夹", "清空失败"

End If

End Function