QTP成长园地

QTP连接ORACLE 数据库VBS函数

上一篇 / 下一篇 2007-09-19 16:49:39 / 个人分类：QTP

今天写了个QTP连接ORACLE 数据库函数的VBS，共享一下：

DBOperation.vbs

'-----------------------------------------------------------------
'function：数据库连接
'call method：在调用文件中先定义Res,Cmd

'For example：Dim  Res,Cmd
'             DBConnect()
'-----------------------------------------------------------------
Public Sub DBConnect()
      Dim StrCon
      Set Res = CreateObject("ADODB.Recordset")  
      Set Cmd = CreateObject("ADODB.Command")
      'Oracle
      StrCon ="DRIVER={Oracle in OraHome92};SERVER=test;UID=userid;PWD=password;DBQ=test;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=6000;TLO=O;"
      Cmd.activeconnection=StrCon
      Cmd.CommandType =1
End Sub

'-----------------------------------------------------------------
'function：执行SQL语句
'Input parameter: StrSql

'For example：Dim sql
' sql="select * from admin_groups"
' ExecuteSql(StrSql)
'---------------------------------------------------------

Public Sub ExecuteSql(StrSql)
Cmd.CommandText=StrSql
Set Res = Cmd.Execute()

End Sub

'---------------------------------------------------------
'function：关闭数据库
'For example：DBClose()
'---------------------------------------------------------
Public Sub DBClose()
Set Res=nothing
Set Cmd.activeconnection=nothing
Set Cmd=nothing
End Sub

调用例子：

ExecuteFile "c:\DBOperation.vbs"

Dim Res,Cmd

DBConnect() '调用连接数据库函数

sql ="select count(*) from admin_groups"

ExecuteSql(sql) '调用执行sql函数

Do while not Res.eof

Msgbox(Res(0))

Res.MoveNext

Loop

DBClose() '调用关闭数据库