各位高手是如何写数据库备份与恢复的? 用SQL SERVER与DELPHI写的,不知数据库备份与恢复怎写。高手们请帮忙啊,有源码最好给小妹看一下。在网上下了一些,没有一个是全的。先谢谢了! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 来源于:http://community.csdn.net/Expert/topic/4218/4218564.xml?temp=.7725641function pBackupDataBase(DataBaseName, BackupFileName : String) : Boolean;var TempTab : TADOQuery;begin if FileExists(BackupFileName) then DeleteFile(BackupFileName); TempTab := TADOQuery.Create(nil); try TempTab.Connection := pvADOConn; //pvADOConn为连接数据的字符串 TempTab.SQL.Add('USE '+DataBaseName); TempTab.SQL.Add('BACKUP DATABASE '+DataBaseName+' TO DISK = '''+ BackupFileName+''''); TempTab.ExecSQL; TempTab.Free; Result := True; except TempTab.Free; Result := False; end;end;function pRestoreDataBase(DataBaseName, BackupFileName : String) : Boolean;var TempTab : TADOQuery;begin TempTab := TADOQuery.Create(nil); try TempTab.Connection := pvADOConn; TempTab.SQL.Add('USE master'); TempTab.SQL.Add('RESTORE DATABASE '+DataBaseName+' FROM DISK = '''+BackupFileName+''''); TempTab.ExecSQL; TempTab.Free; Result := True; except TempTab.Free; Result := False; end;end; backup database Mydatabasename to disk='C:.db' with init //备分Restore database Mydatabasename from disk='C:.db' WITH replace,stats //恢复 第一眼就看出 XXSingle(盘古【传说】) 兄弟的代码好像是我以前曾经写的!呵呵!在这就不重复了! 太难写了,不如启用SQL SERVER的自动备份功能。 在SQL的维护中建一个自动备份到一个共享的文件夹中定期去COPY到别的地方! 一个关于Oracle数据更新的问题,在线等!!! 请问:怎么判断DBGrid中的一个网格中没有没输入数据,再进一步判断它的数据类型呢?谢谢 教程居然出现这种代码 在线求助关于发送BCD码和接受BCD码 从数据库导为EXCEL时,很多代码都出现CreateOleObject,这个是什么东东? 函数执行出错 散分,祝大家新年快乐! ???????????????????????????????? 请问如何杀系统进程? 好文章,一起欣赏一下!:-)转载李维《我的回憶和有趣的故事 》 帮帮小第,谢谢各位啦 哪为高手能熟练运用TClientDataSet啊?[悬赏100分]
http://community.csdn.net/Expert/topic/4218/4218564.xml?temp=.7725641function pBackupDataBase(DataBaseName, BackupFileName : String) : Boolean;
var
TempTab : TADOQuery;
begin
if FileExists(BackupFileName) then DeleteFile(BackupFileName); TempTab := TADOQuery.Create(nil);
try
TempTab.Connection := pvADOConn; //pvADOConn为连接数据的字符串
TempTab.SQL.Add('USE '+DataBaseName);
TempTab.SQL.Add('BACKUP DATABASE '+DataBaseName+' TO DISK = '''+ BackupFileName+'''');
TempTab.ExecSQL;
TempTab.Free;
Result := True;
except
TempTab.Free;
Result := False;
end;
end;function pRestoreDataBase(DataBaseName, BackupFileName : String) : Boolean;
var
TempTab : TADOQuery;
begin
TempTab := TADOQuery.Create(nil);
try
TempTab.Connection := pvADOConn;
TempTab.SQL.Add('USE master');
TempTab.SQL.Add('RESTORE DATABASE '+DataBaseName+' FROM DISK = '''+BackupFileName+'''');
TempTab.ExecSQL;
TempTab.Free;
Result := True;
except
TempTab.Free;
Result := False;
end;
end;
呵呵!
在这就不重复了!