Qtp中vbscript连接oracle数据库
上一篇 /
下一篇 2010-01-29 11:07:31
/ 个人分类:Quick test professional
这里的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:
QTP
qtp
Qtp