QTP连接数据库脚本(软酷版)

'-------------------以下是QTP中的脚本------------------------------------------------------

ExecuteFile  "C:\DBOperation.vbs"  '调用VBS文件

Dim objConnection,objRecordSet  '这两个实例一定要先定义(CONNECTION对象实例&RECORDSET对象实例)

DBConnect()  '连接数据库

Dim Sql
Sql ="select * from com_prj_info where prj_id ='837'"

ExecuteSql(Sql)  '执行SQL
      Msgbox(objRecordSet("prj_name"))

DBClose()  '关闭数据库的连接

'-----------------以下是DBOperation.vbs文件的内容.------------------------------------

Public Sub DBConnect()
'Dim objConnection     'CONNECTION对象实例
'Dim objRecordSet       'RECORDSET对象实例
Dim objCommand          '命令对象实例
Dim strConnectionString  '连接字符串
Set ōbjConnection = CreateObject("ADODB.CONNECTION")                '1 - 建立CONNECTION对象的实例
strConnectionString = "Driver={Microsoft ODBC for Oracle};Server=ruanko;Uid=ruanko;Pwd=ruanko;"    '2 - 建立连接字符串
objConnection.Open strConnectionString                                '3 - 用Open 方法建立与数据库连接
End Sub

Public Sub ExecuteSql(strSql)
Set ōbjRecordSet = CreateObject("ADODB.RECORDSET")                '4 - 建立RECORDSET对象实例
Set ōbjCommand = CreateObject("ADODB.COMMAND")              '5 - 建立COMMAND对象实例
objCommand.ActiveConnection = objConnection
objCommand.CommandText = strSql
objRecordSet.CursorLocation = 3
objRecordSet.Open objCommand    '6 - 执行SQL语句,将结果保存在RECORDSET对象实例中
End Sub

Public Sub DBClose() '关闭数据库连接
objRecordSet.Close
objConnection.Close
Set ōbjCommand = Nothing
Set ōbjRecordSet = Nothing
Set ōbjConnection = Nothing
End Sub