为什么我的数据库备份不成功！

2003-05-12 05:38:51 379 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Oracle DB 配置备份设置 • 使用Oracle Enterprise Manager 配置备份设置 • 启用控制文件自动备份 • 配置备份目标 • 为磁带目标分配通道 • 配置备份优化 • 创建压缩备份 • 创建加密备份配置RMAN 的永久性设置 • RMAN 有预设的默认配置设置。 • 使用CONFIGURE命令可以： – 配置自动通道 – 指定备份保留策略 – 指定要创建的备份副本阅读详情

Public hxfyn As Integer
Public xtlj As String

Private Sub Command1_Click()
If Left(Trim(d1.Drive), 2) <> "a:" And Left(Trim(d1.Drive), 2) <> "b:" And Left(Trim(d1.Drive), 2) <> "A:" And Left(Trim(d1.Drive), 2) <> "B:" Then
hxfyn = MsgBox("应选择软盘驱动器,请重选!", 48)
Else
On Error GoTo ER:
Me.Caption = "正在复制文件，请等待....."
FileCopy xtlj & "db4.mdb", Trim(d1.Drive) + "\" & "db4.mdb"
'FileCopy xtlj & "lfbzk.mdb", Trim(d1.Drive) + "\" & "lfbzk.mdb"
Me.Caption = "标准库备份"
hxfyn = MsgBox("复制完成!", 48)
Unload Me
End If
GoTo en
ER: hxfyn = MsgBox("磁盘未准备好或写保护等错误,请处理后再进行!", 48)
en: End Sub

Private Sub Command2_Click()

Unload Me
End Sub
其中xtlj = App.Path + "\"
当我点击执行时，可以把数据库备份到A盘，然后又提示“磁盘未准备好或写保护等错误,请处理后再进行”出错信息，我到A盘可以打开数据库，里面有两个表，一个备份成功，另一个却是乱码，这是怎么回事啊，希望各位高手能帮我看一下我的程序有什么问题，为什么执行了备份还会执行出错提示问题。谢谢！

...全文