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

[wqjch]

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

[yijiansong]

调用 EXP ，IXP

[wqjch]

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

[zdq801104]

用搜索功能吧，多得不得了

[csdn_wangshuaiqiang]

我也遇到同样的问题，期待着高手们的答复……

[dreammaker]

数据导入，调用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