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

wqjch 2004-09-09 02:24:35
用vb怎样写oracle数据库的备份与恢复。
有没有代码啊,谢谢!!!
...全文
134 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
回复
我也遇到同样的问题,期待着高手们的答复……
回复
zdq801104 2004-09-25
用搜索功能吧,多得不得了
回复
wqjch 2004-09-12
用vb怎样实现oracle数据库备份与恢复。谢谢!!!
回复
yijiansong 2004-09-09
调用 EXP ,IXP
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-09-09 02:24
社区公告
暂无公告