用vb怎样写oracle数据库的备份与恢复。谢谢！！！

wqjch 2004-09-09 02:24:35

用vb怎样写oracle数据库的备份与恢复。
有没有代码啊，谢谢！！！

...全文

188 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

dreammaker 2004-09-25

打赏
举报

数据导入，调用ORACLE中的IMP对象
Private Function GetCommand() As String
GetCommand = "IMP" & mstrVer & " USERID=" & gstrDbUser & "/" & gstrPassWord & IIf(gstrServer = "", "", "@" & gstrServer) _
& " FROMUSER=(" & mstrDBUser & ") TOUSER=(" & mstrDBUser & ") BUFFER=30720 " _
& " FILE=" & Trim(txtFile(0).Text) & IIf(Trim(txtFile(1).Text) = "", "", " LOG=" & Trim(txtFile(1).Text)) _
& " ROWS=" & IIf(chk(Rows).Value = 1, "Y", "N") & " INDEXES=" & IIf(chk(Indexes).Value = 1, "Y", "N") _
& IIf(chk(Constraints).Enabled, " CONSTRAINTS =" & IIf(chk(Constraints).Value = 1, "Y", "N"), "") & " GRANTS =" & IIf(chk(Grants).Value = 1, "Y", "N") _
& " SHOW=" & IIf(chk(OnlyShow).Value = 1, "Y", "N" & " COMMIT =" & IIf(chk(Commit).Value = 1, "Y", "N") _
& " IGNORE=" & IIf(chk(Ignore).Value = 1, "Y", "N"))
End Function

数据导出，调用ORACLE中的EXP对象
Private Function GetCommand() As String
GetCommand = "EXP" & mstrVer & " USERID=" & gstrDbUser & "/" & gstrPassWord & IIf(gstrServer = "", "", "@" & gstrServer) _
& " BUFFER=4096 FILE=" & Trim(txtFile(0).Text) & IIf(Trim(txtFile(1).Text) = "", "", " LOG=" & Trim(txtFile(1).Text)) _
& " OWNER=(" & mstrDBUser & ") ROWS=" & IIf(chkRows.Value = 1, "Y", "N") _
& " INDEXES =" & IIf(chkIndex.Value = 1, "Y", "N") & " CONSTRAINTS =" & IIf(chkConstraint.Value = 1, "Y", "N") _
& " GRANTS=" & IIf(chkGrant.Value = 1, "Y", "N") & " DIRECT=" & IIf(optPath(1).Value = True, "Y", "N")
End Function

csdn_wangshuaiqiang 2004-09-25