(2)下列VB代码自动建立联机备份的批处理文件及相应的脚本文件。
| Set adoTmp = objConnect.Execute("select tablespace_name from sys.dba_data_files") '得到数据库中的表空间名 Dim lnum1 As Long Dim lnum2 As Long lNum = FreeFile Open 自动备份批处理文件路径 For Binary As lNum lnum1 = FreeFile Open "onlinebegin.sql" For Binary As lnum2 onlinebegin.sql为设置表空间进入热备份模式的脚本文件文件名 lnum2 = FreeFile Open "onlineend.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) 将表空间置于热备份模式 版权申明:未经书面授权请勿转载本站信息!!作品版权归所属媒体与作者所有!!
2003-2005 Ksw123.com All Rights Reserved. - TOP
Copyright © 2006 Ksw123.com. All rights reserved.中国考题网 版权所有
|