oracle自动(删除)备份日志表

hcfpawqyof

　　
 
　　
1） 编写语句创建备份所需的文件夹（把以下语句粘贴到打偶后缀为vbs文件里，如createFolder.vbs）
　　
 
　　
Dim StrDate
　　
Dim Obj
　　
Dim P
　　
 
　　
rem 获取当前系统时间--修改格式为--2013-07-04
　　
StrDate = StrDate & Year(Date)
　　
If(Month(Date)<10) Then
　　
       StrDate = StrDate & "-0" & Month(Date)
　　
Else
　　
       StrDate = StrDate & "-" & Month(Date)
　　
End If
　　
 
　　
If(Day(Date)<10) Then
　　
       StrDate = StrDate & "-0" & Day(Date)
　　
Else
　　
       StrDate = StrDate & "-" & Day(Date)
　　
End If
　　
 
　　
 
　　
Set WshShell=CreateObject("WScript.Shell")
　　
 
　　
rem 获取文件对象
　　
Set Obj = CreateObject("Scripting.FileSystemObject")
　　
 
　　
rem 判断文件夹是否存在
　　
If(Obj.FolderExists("g:\backdb\back\" & StrDate)) Then
　　
Else
　　
 
　　
rem 创建文件夹
　　
       Set P = Obj.CreateFolder("g:\backdb\back\" & StrDate)
　　
       CreateFolderDemo = P.Path
　　
End If
　　
 
　　
红色部分为数据库备份文件存储的的目录
　　
 
　　
 
　　
  2） 编写语句删除过期备份（把以下语句粘贴到打偶后缀为vbs文件里，如：deleteFolder.vbs）
　　
Dim Obj
　　
Dim fos
　　
Dim fs
　　
Dim f
　　
Dim c
　　
       c = -1
　　
Dim arr(100)
　　
Dim c2,c3,temp
　　
 
　　
 
　　
rem 获取指定目录下的所有文件名，存入数组
　　
Set Obj = CreateObject("Scripting.FileSystemObject")
　　
Set fos = Obj.GetFolder("g:\backdb\back\")
　　
Set fs = fos.SubFolders
　　
For Each  f in fs
　　
       c = c +1
　　
       arr(c) = f.name
　　
Next
　　
 
　　
 
　　
rem 将文件名按照实际排序
　　
For c2 = 0 To c
　　
       For c3 = c2 + 1 To c
　　
              If(arr(c2)<arr(c3)) Then
　　
                     temp = arr(c2)
　　
                     arr(c2) = arr(c3)
　　
                     arr(c3) = temp
　　
              End If
　　
       Next
　　
Next
　　
 
　　
rem 删除多余的文件
　　
For c2 = 0 To c
　　
       If(c2>13) Then
　　
              Obj.DeleteFolder("g:\backdb\back\" & arr(c2))
　　
       End If
　　
Next
　　
红色部分为数据库备份文件存储的的目录
　　
红色、黄底部分是备份文件保留时间（单位：天数-1）
　　
 
　　
 
　　
 
　　
  3）填写数据备份语句文件（把以下语句粘贴到打偶后缀为vbs文件里，如bakup_gpsdata.vbs）
　　
 
　　
Dim StrCmd
　　
Dim StrDate
　　
Dim WshShell
　　
 
　　
Set WshShell=CreateObject("WScript.Shell")
　　
 
　　
(这一段是获取系统时间，并且更改格式为--2013-07-04-----yyyy-mm-dd)
　　
StrDate = StrDate & Year(Date)
　　
If(Month(Date)<10) Then
　　
       StrDate = StrDate & "-0" & Month(Date)
　　
Else
　　
       StrDate = StrDate & "-" & Month(Date)
　　
End If
　　
 
　　
If(Day(Date)<10) Then
　　
       StrDate = StrDate & "-0" & Day(Date)
　　
Else
　　
       StrDate = StrDate & "-" & Day(Date)
　　
End If
　　
 
　　
 
　　
StrCmd="exp gpsdata/gpsdata@fcgpgis file=G:\BACKDB\back\" & StrDate  & "\" & StrDate & "_gpsdata_bak.dmp log=gpsdata.log"
　　
 
　　
WshShell.run StrCmd
　　
 
　　
WScript.quit
　　
 
　　
其中红色的部分是需要根据实际情况修改的部分。
　　
  注释：
　　
 其中exp pgisapp/pgisapp@pgis 为要导出的用户的用户名和密码，@之后的为数据库的实例名，
　　
      F:\EzSoft\backupdb\  为导出文件所要放置本地目录
　　
      _pgisapp_bak.dmp为导出文件的名称
　　
 log=pgisapp.log   为日志文件名称
　　
 
　　
 
　　
<!--[if !supportLists]-->4）<!--[endif]-->编写任务执行语句（把以下语句粘贴到打偶后缀为bat文件里，如run.bat）
　　
createFolder.vbs
　　
bakup_DbSID.vbs
　　
*****
　　
*****
　　
*****
　　
deleteFolder.vbs
　　
 
　　
 
　　
红色部分为步骤1）编写的vbs文件名：用于创建备份所需的文件夹
　　
蓝色部分为步骤3）编写的vbs文件名：用于数据库备份
　　
绿色部分是步骤2）编写的vbs文件名：用于删除过期的备份
　　
 
　　
 
　　
4）添加任务计划
　　
 
　　
a、在开始--控制面板--任务计划-添加任务计划
　　
 
　　
b、在浏览中选择要执行的备份执行文件（bat文件）
　　
c、填写任务计划的名称，和选择执行这个计划的频率时间
 
　　
d、输入执行起始时间和日期（建议是晚上或者凌晨时间执行，）
 
　　e、输入服务器本身的用户名和密码
 
　　
　　f、单击完成。