end.sql" For Binary As lnum2 onlinebegin.sql为结束表空间热备份模式的脚本文件文件名
strTmp = " connect 账户名/密码" & Chr(13) & Chr(10)
Put lnum1, , strTmp
strTmp = "shutdown immediate" & Chr(13) & Chr(10)
Put lnum1, , strTmp
strTmp = "startup pfile=初始化文件的存放位置exclusive mount; " & Chr(13) & Chr(10)
Put lnum1, , strTmp
strTmp = "alter database archivelog; " & Chr(13) & Chr(10)
Put lnum1, , strTmp
strTmp = "alter database open; " & Chr(13) & Chr(10)
Put lnum1, , strTmp
strTmp = " connect 账户名/密码" & Chr(13) & Chr(10)
Put lnum2, , strTmp
strTmp = Oracle服务管理器路径 & " @" & " onlinebegin.sql " & Chr(13) & Chr(10) 在服务管理器中执行脚本文件onlinebegin.sql
Put lNum, , strTmp
Do While Not adoTmp.EOF
Set adoTmp1 = objConnect.Execute("select file_name from sys.dba_data_files where tablespace_name='" & adoTmp.Fields(0) & "'") 得到当前表空间所对应的所有数据文件名，通过循环即可得到所有表空间所对应数据文件名，若只备份指定的表空间，可指定表空间名从而得到其对应的物理数据文件
strTmp = "alter tablespace " & adoTmp.Fields(0) & " begin backup;" & Chr(13) & Chr(10) 将表空间置于热备份模式
Put lnum1, , strTmp
strTmp = Oracle的ocopy.exe工具全路径 " & adoTmp1.Fields(0) & " " & 备份文件存放路径 & Chr(13) & Chr(10)
Put lNum, , strTmp
strTmp = "alter tablespace " & adoTmp.Fields(0) & " end backup;" & Chr(13) & Chr(10) 表空间恢复正常模式
Put lnum2, , strTmp
adoTmp.MoveNext
Loop
strTmp = Oracle服务管理器路径 & " @" & " onlineend.sql" & Chr(13) & Chr(10) 在服务管理器中执行脚本文件onlineend.sql
Put lNum, , strTmp
strTmp = "exit" & Chr(13) & Chr(10) 退出服务管理器
Put lnum1, , strTmp
strTmp = "alter system switch logfile;" & Chr(13) & Chr(10) 强制日志转换，使Oracle创建一个归档日志文件
Put lnum2, , strTmp
strTmp = "exit" & Chr(13) & Chr(10)
Put lnum2, , strTmp
Close
Set adoTmp = Nothing
Set adoTmp1 = Nothing
　　运行得到的自动批处理文件，即可自动进行数据库的联机备份。

　　

上一页  [1] [2] [3] [4] 下一页