vbs脚本操作Oracle

无论是SQL Server 还是Oracle等,经常面临重复性操作SQL语句相同而关键参数不同的数据库操作,如果直接在数据库开发工具里很难快速完成,而是用脚本则可以快速完成这项工作.

范例:

 

Const ForReading = 1, ForWriting = 2


Dim oFso,Path,File,nowvar

Dim adoConnection,strConnect,Rs,StrFilter
Set oFso = CreateObject("Scripting.FileSystemObject")

Set adoConnection = CreateObject("ADODB.Connection")

'配置数据库连接源
strConnect = "Provider=MSDAORA;Data Source=ORCL;User ID=bcacc;Password=4;"

adoConnection.Open strConnect


'NoRec_Operating

Dim constSql
constSql = "insert into ivr_channel_para t (t.ivr_channel_id,t.para_name,t.para_value) values ("

For  i = 5 To 32
    WScript.Echo "正在设置:" & i &"通道反极信号..."
    StrSql = constSql & i &",'BasicPara.skipLineCheck','false') "
    adoConnection.Execute(StrSql)
    StrSql = constSql & i &",'ExtInfo.poleReverse','true') "
    adoConnection.Execute(StrSql)
    StrSql = constSql & i &",'ExtInfo.sendCallerNumber','true') "
    adoConnection.Execute(StrSql)
Next


'--------------------------------------------------------------------------------'
Function Find_PhoneNumber_Rec(Path,File) 'Path：目标文件夹，File：电话号码源文件

    Dim DestFloder,FilePath,Start_Time,End_Time,DestFile

    Dim StrSql,PhoneNumber


    DestFloder = Path

    FilePath = File

    '打开电话号码源文件
    Set objFile = oFso.OpenTextFile(FilePath,ForReading)


    '查询的起止日期
    Start_Time = "2010-" & Right(Path,5)

    End_Time = Start_Time

    '-------------------------------------------------------------------------------------
    '查询目标
    StrSql = "select t.fcalled ,t.rec_filename from tf_cdr t "

    '时间过滤
    StrFilter = "where t.call_start_time between to_date('" & Start_Time &" 00:00:00','yyyy-MM-dd HH24:mi:ss')"

    StrFilter = StrFilter & " and to_date('" & End_Time & " 23:59:59','yyyy-MM-dd HH24:mi:ss')"

    StrFilter = StrFilter & " and t.rec_filename is not null "
    '--------------------------------------------------------------------------------------

    StrSql = StrSql & StrFilter

    While Not objFile.AtEndOfStream

        PhoneNumber = objFile.ReadLine  '录音文件的电话号码

        Set Rs  = adoConnection.execute(StrSql & " and t.fcalled = '" & PhoneNumber &"'" )

        If  Rs.EOF Then

            WScript.Echo PhoneNumber,"没有录音"

            Phone_NoRec(PhoneNumber) '写入无录音记录

        End if

        While Not Rs.EOF

            recname = Rs.Fields(1).Value

            '组合新的文件路径
            DestFile = DestFloder & "\" & Right(recname,Len(recname)-Len("E:\VOICE_FILE\20100629\"))

            oFso.CopyFile recname,DestFile

            WScript.Echo DestFile

            Rs.MoveNext

        Wend

        Set Rs = Nothing

        Set PhoneNumber = Nothing

        Set DestFile = Nothing

    Wend

    Set StrFilter = Nothing

End Function


Function Phone_NoRec(PhoneNumber)

    Set objFile = oFso.OpenTextFile("d:\Phone_NoRec.txt",8,true)

    objfile.WriteLine PhoneNumber

End Function


Function NoRec_Operating

    Dim StrSql,Start_Time,End_Time

    Dim NoRec_File,objFile,PhoneNumber

    NoRec_File = "d:\Phone_NoRec.txt"

    Start_Time = "2010-06-16"

    End_Time = "2010-06-30"

    Set objFile = oFso.OpenTextFile(NoRec_File,ForReading)

    StrSql = "select t.fcalled ,t.rec_filename from tf_cdr t where t.call_start_time between to_date('"

    StrSql = StrSql & Start_Time &" 00:00:00','yyyy-MM-dd HH24:mi:ss')" & " and to_date('" & End_Time & " 23:59:59','yyyy-MM-dd HH24:mi:ss')"

    StrSql = StrSql & " and t.rec_filename is not null and t.fcalled = '"

    While Not objFile.AtEndOfStream

        PhoneNumber = objFile.ReadLine

        Set Rs  = adoConnection.execute(StrSql & PhoneNumber & "'")

        If  Rs.EOF Then

            WScript.Echo PhoneNumber,"没有录音"

        End if

        While Not Rs.EOF

            recname = Rs.Fields(1).Value

            '组合新的文件路径
            DestFile = "d:\rec\" & Right(recname,Len(recname)-Len("E:\VOICE_FILE\20100629\"))

            oFso.CopyFile recname,DestFile

            WScript.Echo recname

            Rs.MoveNext

        Wend


    Wend

End Function