QTP实例-SQLSERVER和ORACLE数据库连接代码

本文出自zte_boy的51Testing软件测试博客，转载请保留出处及链接：http://www.51testing.com/?16178751Testing软件测试网 U#{C/BS

7XYu"oIU3n01、Oracle数据库51Testing软件测试网6~#_Kw!~
I

要求在客户端机器上安装了oracle客户端并已配置完成

2l9W(Nc u(A3u&X0代码：51Testing软件测试网,_1F-]Ypi3|

:}
_ ^I'~ b^0Set Conn = CreateObject("ADODB.CONNECTION")51Testing软件测试网9o#Bq8O/{+F/n$Ea,K
StrCon = "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;" &_
x4J%TK0n!Ay0  "User ID=xxx;Password=xxx;Data Source=xxxx;"51Testing软件测试网Rq4M NgSW
Conn.Open StrCon51Testing软件测试网*U,mNy
^Y&d!a

SqlStr = "select number from table"51Testing软件测试网 _c M*ei4w]$_
Set Res = CreateObject("ADODB.RecordSet")
V/sH]9bg_0Res.Open SqlStr,Conn,1,1

2、sqlserver数据库51Testing软件测试网8snn K(zUe

  Dim rs,conn,sqlstr,strcon

!pGXj%||0  strcon = "Provider=SQLOLEDB.1;User ID=sa;Password=xxxx;"&_51Testing软件测试网7[ YsWbrM%Y-E
  "Data source=10.10.7.11;DATABASE=qcsiteadmin_db"

*\5@EZpiui(Q0  Set conn = createobject("adodb.connection")51Testing软件测试网2V
l!x jH3I7zH#V
  conn.open strconn51Testing软件测试网7p7o2KA0N }

  sqlstr="select * from td.SESSIONS_HISTORY where USER_NAME = '"_51Testing软件测试网L:i l`2\|zD:tT
     &LOGINUSER&"'"51Testing软件测试网Zk
h'y,}1C0P:u

]b_(D2Do/m,o4q#Ks U0  Set rs=createobject("adodb.recordset")
6Gt5tZ2O pT(w0  rs.open sqlstr,conn,1,1

 51Testing软件测试网a]}K
Wdw-f