你可以用TClientDataSet这个控件进行数据备份和还原,我用过挺好用的只不过要自己具体控制一下,如果你要的是Sql 的备份和还原你可以看看Sql server2000的帮助很权的(最要紧的是中文呀)
解决方案 »
- 有谁做过delphi与java交互的。遇到一个看似简单的问题....
- "球"助:怎么才能知道一个点是否在矩形,圆形,多边形内呢?
- 关于stringgrid的使用(急急急)
- 有谁遇到过BDE内存的问题(在线等)
- 为什么我的编译器不能设置断点了?
- 求助SQL语句,变态的数据!!!!!!!!!!!!!!!!!!
- 关于类型转换
- Delphi6.0要出中文版了!!!还有JB7.0一起!
- csdn新版论坛已经上线,放分100
- :Quick Report中寫sql語句的問題????海牛/大米周/flowersun你们都在吗??
- 在delphi中如何调用access中的报表
- <<<<<<< 线程高手请进!我向你们拜师!
备份整个数据库:BACKUP DATABASE { database_name | @database_name_var }
TO < backup_device > [ ,...n ]
[ WITH
[ BLOCKSIZE = { blocksize | @blocksize_variable } ]
[ [ , ] DESCRIPTION = { 'text' | @text_variable } ]
[ [ , ] DIFFERENTIAL ]
[ [ , ] EXPIREDATE = { date | @date_var }
| RETAINDAYS = { days | @days_var } ]
[ [ , ] PASSWORD = { password | @password_variable } ]
[ [ , ] FORMAT | NOFORMAT ]
[ [ , ] { INIT | NOINIT } ]
[ [ , ] MEDIADESCRIPTION = { 'text' | @text_variable } ]
[ [ , ] MEDIANAME = { media_name | @media_name_variable } ]
[ [ , ] MEDIAPASSWORD = { mediapassword | @mediapassword_variable } ]
[ [ , ] NAME = { backup_set_name | @backup_set_name_var } ]
[ [ , ] { NOSKIP | SKIP } ]
[ [ , ] { NOREWIND | REWIND } ]
[ [ , ] { NOUNLOAD | UNLOAD } ]
[ [ , ] RESTART ]
[ [ , ] STATS [ = percentage ] ]
]
{
TO < backup_device > [ ,...n ]
[ WITH
[ BLOCKSIZE = { blocksize | @blocksize_variable } ]
[ [ , ] DESCRIPTION = { 'text' | @text_variable } ]
[ [ ,] EXPIREDATE = { date | @date_var }
| RETAINDAYS = { days | @days_var } ]
[ [ , ] PASSWORD = { password | @password_variable } ]
[ [ , ] FORMAT | NOFORMAT ]
[ [ , ] { INIT | NOINIT } ]
[ [ , ] MEDIADESCRIPTION = { 'text' | @text_variable } ]
[ [ , ] MEDIANAME = { media_name | @media_name_variable } ]
[ [ , ] MEDIAPASSWORD = { mediapassword | @mediapassword_variable } ]
[ [ , ] NAME = { backup_set_name | @backup_set_name_var } ]
[ [ , ] NO_TRUNCATE ]
[ [ , ] { NORECOVERY | STANDBY = undo_file_name } ]
[ [ , ] { NOREWIND | REWIND } ]
[ [ , ] { NOSKIP | SKIP } ]
[ [ , ] { NOUNLOAD | UNLOAD } ]
[ [ , ] RESTART ]
[ [ , ] STATS [ = percentage ] ]
]
} < backup_device > ::=
{
{ logical_backup_device_name | @logical_backup_device_name_var }
|
{ DISK | TAPE } =
{ 'physical_backup_device_name' | @physical_backup_device_name_var }
} < file_or_filegroup > ::=
{
FILE = { logical_file_name | @logical_file_name_var }
|
FILEGROUP = { logical_filegroup_name | @logical_filegroup_name_var }
}
你说的可以用TClientDataSet这个控件进行数据备份和还原
我是在用delphi5+SQLServer7+ADO 三层具体的方法是怎么样的呢?
procedure TForm_main.ac_db_backupExecute(Sender: TObject);
begin
if form_backup.showmodal= mrOK then begin
{----开始备份----}
with Database1 do begin
try
Close;
Execute('BACKUP DATABASE l_CLQC TO DISK = '''+dir1+'\'+ DateToStr(now)+ '.bak''');
sbar_main.SimpleText :='备份完毕';
MessageDlg('备份完毕!',mtInformation,[mbOK],0);
except
sbar_main.SimpleText :='备份失败';
MessageDlg('备份失败,请重试!',mtError,[mbOK],0);
end;
Open;
end;
end;
end;
//----------------------恢复----------------
//First connect to Database master,Omitted....注意with Replace参数
with Database1 do begin//[
Execute('use master');
Execute('RESTORE DATABASE l_clqc FROM DISK ='''+ s +''''+' with Replace ');
end;