知识大全 Windows下的Oracle导出脚本

Posted 2022-07-16 文件

篇首语：不经过琢磨，宝石也不会发光。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Windows下的Oracle导出脚本相关的知识，希望对你有一定的参考价值。

Windows下的Oracle导出脚本 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　导出脚本内容

　　@echo off

　　REM

　　REM File name Daily bat

　　REM Batch Process

　　Reload DB Backup

　　REM

　　REM Author Frank Fan

　　REM Modification History

　　Created

　　REM Modified

　　REM

　　for /F "tokens= delims=/ " %%i in ( date /t ) do @set FILENAMEDT=%%i%%j%%k

　　#取系统当前日期年月日(中文格式) 月日年(英文格式)

　　for /F "tokens= delims=: " %%i in ( time /t ) do @set FILENAMETM=%%i%%j

　　#取系统当前时间时分

　　SET USERNAME=SYSTEM #oracle帐号

　　SET USERPASSWD= #oracle密码

　　SET SERVICENAME=QEWAY #oracle SID

　　SET SCHEMASNAME=ISCOP #oracle SCHEMA帐号

　　SET RARTOOL=C:\\Program Files\\WinRAR #设定WINRAR路径(各个机器不同)

　　SET DBBACKUPPATH=D:\\DBBAK #设定被导出的文件路径

　　SET DBADIRECTORIES=DBBAK #oracle内设置的Directory目录名

　　SET DBBACKUPFILENAME=QEWAY_%FILENAMEDT% %FILENAMETM%

　　goto main

　　:main

　　ECHO Exporting schemas

　　expdp %USERNAME%/%USERPASSWD%@%SERVICENAME% DUMPFILE=%DBADIRECTORIES%:%DBBACKUPFILENAME% dmp schemas=%SCHEMASNAME% LOGFILE=%DBADIRECTORIES%:%DBBACKUPFILENAME% log

　　ECHO Done exporting schemas

　　ECHO =======================================================

　　ECHO Done export

　　if exist %DBBACKUPPATH%\\%DBBACKUPFILENAME% RAR del %DBBACKUPPATH%\\%DBBACKUPFILENAME% RAR

　　"%RARTOOL%\\winrar exe" a ep %DBBACKUPPATH%\\%DBBACKUPFILENAME% RAR %DBBACKUPPATH%\\%DBBACKUPFILENAME% dmp

　　del %DBBACKUPPATH%\\%DBBACKUPFILENAME% dmp

　　Echo Compression plete

　　forfiles /p "%DBBACKUPPATH%" /m * rar d /c "cmd /c del /f @path"

　　#删除天之前的RAR文件

　　REM Send a mail to notification

　　start D:\\DBBAK\\Batch_notification_Daily vbs #调用邮件通知VBS文件

　　EXIT

　　邮件通知VBS文件内容

　　NameSpace = "

　　set Email = CreateObject("CDO Message")

　　Email From = "XXXX@Exchange "

　　Email To = "XXXX@ "

　　Email Subject = "Gongxtpt Batch Daily Task"

　　Email Textbody = "Gongxtpt Batch Daily Task was done!! Starting at : AM"

　　with Email Configuration Fields

　　 Item(NameSpace&"sendusing") =

　　 Item(NameSpace&"smtpserver") = " "

　　 Item(NameSpace&"smtpserverport") =

　　 Item(NameSpace&"smtpauthenticate") =

　　 Item(NameSpace&"sendusername") = ""

　　 Item(NameSpace&"sendpassword") = ""

　　 Update

　　end with

　　Email Send

cha138/Article/program/Oracle/201311/19111