连接ORACLE 数据库VBS函数

最新推荐文章于 2024-04-01 00:17:56 发布

转载最新推荐文章于 2024-04-01 00:17:56 发布 · 4.2k 阅读

文章标签：

#数据库 #oracle #sql #function #cmd #input

oracle 专栏收录该内容

8 篇文章

订阅专栏

本文提供了一组使用VBScript连接并操作Oracle数据库的函数。包括建立数据库连接、执行SQL语句及关闭连接等功能，适用于QTP等自动化测试场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

连接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() '调用关闭数据库