请教mysql的数据备份怎么做!用程序作语句怎么写,我写的SQL语句怎么不对,请大家帮我看看,谢谢了!!!
我的SQL语句是这样写的:
Q1.SQL.add('Backup database lzcustoms to disk='+''''+'..\data\'+ datetimetostr(now)+'''');
可是不对!应该怎么做啊!谢谢了!!!
我的SQL语句是这样写的:
Q1.SQL.add('Backup database lzcustoms to disk='+''''+'..\data\'+ datetimetostr(now)+'''');
可是不对!应该怎么做啊!谢谢了!!!
例如:adoquery1.add('backup database lzcustoms to disk='+quotedstr('c:/program files/zcustoms.bak'));
在delphi中用语句怎么写啊!求各为帮帮忙了!!!
c:\mysql\bin\mysqldump.exe --user=root --password=root --where="date1>='2006-04-01' and date1<='2006-04-30'" cashpark account> account.txt
备份:
procedure TBackupFrm.BitBtn2Click(Sender: TObject);
begin
if Edit1.Text= '' then
begin
Showmessage('无选择要保存的文件名');
exit;
end;
try
try
dmData.adoQryTmp.Active:= false;
dmData.adoQryTmp.SQL.Clear;
dmData.adoQryTmp.SQL.Add('BACKUP DATABASE [dzyl] TO DISK = '''+edit1.text+''' WITH INIT');
dmData.adoQryTmp.ExecSQL;
finally
begin
dmData.adoQryTmp.Active:= false;
Showmessage('数据库备份成功!');
end;
end;
except
on e:exception do
begin
ShowMessage('数据库备份失败!');
end;
end;
end;
---------------
恢复
procedure TBackupFrm.BitBtn4Click(Sender: TObject);
begin
if Edit2.Text = '' then
begin
showmessage('未选择要恢复的数据库文件!');
exit;
end;
with dmData do
begin
try
adocmmd.CommandText:='use master';
adocmmd.Execute;
adocmmd.CommandText:=' alter database dzyl set offline with rollback immediate';
adocmmd.Execute;
adocmmd.CommandText:='restore database dzyl from disk= '''+edit2.Text+''' with recovery ';
adocmmd.Execute;
adocmmd.CommandText:=' alter database dzyl set online with rollback immediate';
adocmmd.Execute;
showmessage('数据库恢复成功!');
application.Terminate;
except
on e:exception do
begin
showmessage('数据库恢复失败!'+e.Message);
end; end;
end;
end;