Fórum Backup bem simples #194503
12/11/2003
0
Quero fazer com que no delphi eu clique em um botao e ele simplismente faça um cópia do meu arquivo (BDSeguranca.gdb) para outra pasta com outor nome.
Ex: Aqui está o arquivo
C:\sistemas\SNT\Banco\BDSeguranca.gdb
quero q ao clicar no botao ele faça uma cópia para:
C:\sistemas\SNT\Backup\BDSeguranca11_12_03.gdb
o nome do arquivo + a data do bakup.
Caso alguém tenha algum modelo de se fazer backup e poder me mostrar eu agradeço muito, obrigado...
Ex: Aqui está o arquivo
C:\sistemas\SNT\Banco\BDSeguranca.gdb
quero q ao clicar no botao ele faça uma cópia para:
C:\sistemas\SNT\Backup\BDSeguranca11_12_03.gdb
o nome do arquivo + a data do bakup.
Caso alguém tenha algum modelo de se fazer backup e poder me mostrar eu agradeço muito, obrigado...
Thoor Cobain
Curtir tópico
+ 0
Responder
Posts
12/11/2003
Fred
coloque um SaveDialog(Dialogs) e um IBBackupService(InterbaseAdmin)
configure o banco no IBBackupService e desligue loginprompt
digite no botao
salvar = SaveDialog1 //mudei o nome
Backup = IBBackupService1
if salvar.Execute then
begin
with backup do
begin
BackupFile.Add(salvar.filename);
Screen.Cursor := crSQLWait;
try
Active := true;
ServiceStart;
finally
Active := false;
Screen.Cursor := crDefault;
end;
end;
Application.MessageBox(´Backup concluído! ´,´Informação´,MB_OK+MB_ICONINFORMATION);
end;
end;
configure o banco no IBBackupService e desligue loginprompt
digite no botao
salvar = SaveDialog1 //mudei o nome
Backup = IBBackupService1
if salvar.Execute then
begin
with backup do
begin
BackupFile.Add(salvar.filename);
Screen.Cursor := crSQLWait;
try
Active := true;
ServiceStart;
finally
Active := false;
Screen.Cursor := crDefault;
end;
end;
Application.MessageBox(´Backup concluído! ´,´Informação´,MB_OK+MB_ICONINFORMATION);
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)