小妹有难,请各位仁兄帮忙?(在线,等) 小妹求救,由于客户提出要求,在软件中实现数据库的备份与恢复。环境:DEPHI 5 + ORACLE 9i,在Dephi5当中怎么实现ORACLE数据库的备份与恢复(本地与远程)?谢谢了。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 能否也给我一份.[email protected] 我也要,能否给一份给我!谢谢![email protected] 我也要,能否给一份给我!谢谢![email protected] 你们不是明抢吗!我也要:230103770211481.163.com 我也想呀[email protected] 备份:procedure Tfback.BitBtn1Click(Sender: TObject);beginlabel1.Caption:='正在备份....';AdoCommand1.CommandText:='backup database yd to disk=''d:\Program Files\Microsoft SQL Server\MSSQL\BACKUP\yd.back''';try AdoCommand1.Execute; label1.Caption:='备份成功!'; except label1.Caption:='备份失败!';end;恢复:procedure Tfback.BitBtn2Click(Sender: TObject);begin label1.Caption:='正在恢复....'; adodm.ydconn.Close; if application.MessageBox('此操作将使上次备份以来的所有数据丢失,是否继续?','恢复数据',MB_OKCANCEL)=idok then begin AdoCommand1.CommandText:='restore database yd from disk=''d:\Program Files\Microsoft SQL Server\MSSQL\BACKUP\yd.back'' with replace'; try try AdoCommand1.Execute; label1.Caption:='恢复成功!'; except showmessage('数据库正在被使用!请确定已关闭其它药店管理程序!'); label1.Caption:='恢复失败!'; end; finally try AdoTable1.Open; AdoDataSet1.Open; except showmessage('程序运行发生错误,请重新启动程序!'); application.Terminate; end; end;end;end; 我要的可是ORACLE的备份与恢复,可不是SQL。不过谢谢各位好心帮忙! 有那位仁兄,对批处理文件熟悉的,救命啊,做一个ORACLE数据库的备份与恢复的批处理文件,数据库ID与用户名及用户口令,及生成的.dmp文件名要用参数表示。谢谢 ORACLE还不是用SQL语句,应该区别不大吧 窗体多次显示 高人请进~~! 怎么通过bde或ado控件删除表的一个列(不能用sql语句) 请问如何在SQL Server 2000 中的datetime类型的字段里只取年份、月份和日子啊? 数据如何进行初始化清空? 请问有在顺德的delphi程序员吗? NMUDP 的sendstream 怎么才能把text的内容发送出去阿 接收邮件 在DELPHI中如何将.db或.dbf的数据导入到.mdb(Access库)里? 鼠标点击窗体的最小化按钮时,产生的消息是什么,或者是怎么捕获这个消息 急待解决的dbgrid的问题 midas+ado
[email protected]
[email protected]
我也要:230103770211481.163.com
[email protected]
procedure Tfback.BitBtn1Click(Sender: TObject);
begin
label1.Caption:='正在备份....';
AdoCommand1.CommandText:='backup database yd to disk=''d:\Program Files\Microsoft SQL Server\MSSQL\BACKUP\yd.back''';
try
AdoCommand1.Execute;
label1.Caption:='备份成功!';
except
label1.Caption:='备份失败!';
end;
恢复:
procedure Tfback.BitBtn2Click(Sender: TObject);
begin
label1.Caption:='正在恢复....';
adodm.ydconn.Close;
if application.MessageBox('此操作将使上次备份以来的所有数据丢失,是否继续?','恢复数据',MB_OKCANCEL)=idok then
begin
AdoCommand1.CommandText:='restore database yd from disk=''d:\Program Files\Microsoft SQL Server\MSSQL\BACKUP\yd.back'' with replace';
try
try
AdoCommand1.Execute;
label1.Caption:='恢复成功!';
except
showmessage('数据库正在被使用!请确定已关闭其它药店管理程序!');
label1.Caption:='恢复失败!';
end;
finally
try
AdoTable1.Open;
AdoDataSet1.Open;
except
showmessage('程序运行发生错误,请重新启动程序!');
application.Terminate;
end;
end;
end;
end;