空间管理您的位置: 51Testing软件测试网 » duoluohua的个人空间 » 日志

Qtp中vbscript连接oracle数据库

上一篇 / 下一篇 2010-09-26 16:05:44 / 个人分类：QTP

这里的oracle版本记不清了，好像是9或10。
首先是连接字符串
strConnectionString="Provider=OraOLEDB.Oracle;Persist Security Info=True;Data Source=(DESCRIPTION =(ADDRESS_LIST ="&_
   "(ADDRESS = (PROTOCOL = TCP)(HOST =yourHostName)(PORT = yourPortNumber)))"&_
   "(CONNECT_DATA =(SID = yourServiceName)));User ID=yourUserId;Password=yourPassword;"

封装个连接函数
Function SetConnectionWithOracle(strConnectionString)
   'Set connection with oracle database
   Set SetConnectionWithOracle = CreateObject("ADODB.Connection")
   'Configure connection string
   SetConnectionWithOracle.ConnectionString = strConnectionString
   'Open the connection
   SetConnectionWithOracle.open
End Function

构建你需要的sql语句，调用sqlInOracleDB。
Sub GetDataFromDB(objDatabaseConnection)
       strSQLStatement = "select * from ........"
       SQLInOracleDB(strSQLStatement, objDatabaseConnection)
   Next
End Sub

执行sql。用上面的数据库连接对象实例做参数。返回recordset。
Function SQLInOracleDB(strSQLStatement, objDatabaseConnection)
   Set SQLInOracleDB = CreateObject("ADODB.Recordset")
   'Execute SQL
   SQLInOracleDB.open strSQLStatement, objDatabaseConnection, 1, 3
End Function

recordset操作就不用说了哈.^_^

'++++++++++++++++++++++++++++++++++
'实际调用
Set bjDBConnection = SetConnectionWithOracle(strConnectionString)
Call GetDataWithInfomation(objDBConnection)
'++++++++++++++++++++++++++++++++++

收藏举报

TAG:

查看全部评论