前台用delphi6编制的数据库程序中,如何在前台程序中编写代码,实现DB的备份和恢复功能。求源代码!!
急呀!
急呀!
解决方案 »
- Istream 到Tstream的问题
- 存储数据(在线等待)
- 使用这个TClientDataSet建立内存表,说的详细些,知道的多说些吧。
- hottey(点亮心灵)(基础补习中)看過來!~!!!!!!來接分!!
- 我用TOleContainer打开一个Excel文件,Excel的Open Save 功能怎么都不能用了?
- 输入法 自动切换 有问题
- 为什么我的ORACLE8i管理服务和监听无法启动?
- 查询操作报BDE 13059错误,Select * from AppInfo where 1=2
- 如何在某些论坛里隐藏自己的IP地址????谢谢!!!
- 急!急!三层结构,Client端调用App Server端的过程时报错"接线者无效",详细见里面
- 怎样使用adocommand实现事物控制?
- 等住救命!mysql与delphi问题!
//////////////////////备份
try
Bak_ADOQ.Close();
Bak_ADOQ.SQL.Clear;
Bak_ADOQ.SQL.Add('use master');
Bak_ADOQ.Prepared;
Bak_ADOQ.ExecSQL;
restorestring :='RESTORE DATABASE '+trim(databaseName)+' FROM DISK = N'''+FileName+''' WITH FILE = 1, NOUNLOAD , STATS = 10, REPLACE,RECOVERY';
Bak_ADOC.CommandText := restoreString;
Bak_ADOC.Execute;
application.MessageBox('恢复数据成功!','数据恢复', mb_ok+MB_ICONINFORMATION); Bak_ADOQ.Close();
Bak_ADOQ.SQL.Clear;
Bak_ADOQ.SQL.Add('use '+trim(databaseName));
Bak_ADOQ.Prepared;
Bak_ADOQ.ExecSQL;
except
application.MessageBox('恢复数据出错!请重新恢复,并停止一切的数据操作!','数据恢复', mb_ok+MB_ICONINFORMATION);
end;
///////////////////////////恢复
if saveDialog.Execute then
try
saveDialog.Title:='备份数据路径';
backupString := 'BACKUP DATABASE '+trim(databaseName)+' TO DISK = N'+quotedstr(saveDialog.FileName)+' WITH INIT , NOUNLOAD , NOSKIP , STATS = 10, NOFORMAT';
Bak_ADOQ.Close;
Bak_ADOQ.SQL.Clear;
Bak_ADOQ.SQL.Add(backupString);
Bak_ADOQ.Prepared;
Bak_ADOQ.ExecSQL;
application.MessageBox('备份成功!','数据备份', mb_ok+MB_ICONINFORMATION);
except
application.MessageBox('备份出错!请重新备份数据。','数据备份', mb_ok+MB_ICONINFORMATION);
end;
用TStoreProc调