QTP连接oracle数据库的脚本
上一篇 /
下一篇 2009-09-02 15:29:19
/ 个人分类:03 学习笔记
07年底做过一个qtp的项目,脚本都忘记的差不多了,自己美来得及备份就被派出去了,还好有个同事将之前的代码做过总结,赶紧偷过来,哈哈 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() '调用关闭数据库
收藏
举报
TAG: