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

http://doc.51windows.net/ado/?url=/ado/dir.htm

例子：

'删除网络硬盘下所有的文件夹和文件
'@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