BackUP e Restaurar
Preciso exportar minhas tabelas feito em access atraves do delphi e se caso corremper quero cria um botao q faço a restauraçao dos campos e registros tem como exportar e importar dessa maneira pois, nãoa achei nada parecido
Sitelocal
Curtidas 0
Respostas
Mmtoor
31/05/2004
melhor esquema é utilizar o próprio winzip, que pode te criar um backup sempre que o sistema for fechado. com algumas incrementações, pode renomear sua cópia de backup com a data do dia, ou ainda com a data e a hora do dia, lembrando que é necessário ter o winzip instalado no micro e registrado.
[u:632055e1d4][b:632055e1d4]Para criar um backup no disquete[/b:632055e1d4][/u:632055e1d4]
procedure TfrmPrincipal.button1Click(Sender: TObject);
begin
if not FileExists(´A:\nul´) then
ShowMessage(´Insira um disco formatado na unidade A: e efetue o Backup!´)
else
begin
ShellExecute(0,nil,´winzip32.EXE´, ´-a a:\backup.zip C:\SCP\tabelas\*.db´,nil,sw_show);
Exit;
end;
end;
[u:632055e1d4][b:632055e1d4]Para restaurar o backup do disquete[/b:632055e1d4][/u:632055e1d4]
procedure TfrmPrincipal.button2Click(Sender: TObject);
begin
if not FileExists(´A:\nul´) then
ShowMessage(´Insira um disco com o Último Backup na unidade A: e efetue a Restauração!´)
else
begin
ShellExecute(0,nil,´winzip32.EXE´, ´-e a:\backup.zip C:\SCP\copia\´,nil,sw_show);
Exit;
end;
end;
[u:632055e1d4][b:632055e1d4]Para criar um backup no disquete[/b:632055e1d4][/u:632055e1d4]
procedure TfrmPrincipal.button1Click(Sender: TObject);
begin
if not FileExists(´A:\nul´) then
ShowMessage(´Insira um disco formatado na unidade A: e efetue o Backup!´)
else
begin
ShellExecute(0,nil,´winzip32.EXE´, ´-a a:\backup.zip C:\SCP\tabelas\*.db´,nil,sw_show);
Exit;
end;
end;
[u:632055e1d4][b:632055e1d4]Para restaurar o backup do disquete[/b:632055e1d4][/u:632055e1d4]
procedure TfrmPrincipal.button2Click(Sender: TObject);
begin
if not FileExists(´A:\nul´) then
ShowMessage(´Insira um disco com o Último Backup na unidade A: e efetue a Restauração!´)
else
begin
ShellExecute(0,nil,´winzip32.EXE´, ´-e a:\backup.zip C:\SCP\copia\´,nil,sw_show);
Exit;
end;
end;
GOSTEI 0
Sitelocal
31/05/2004
na hora de compilar deu erro na linha shellexecute falta algo para colocar e como posso fazer com hora e data o backup heim ? Obrigado cara !!!!
GOSTEI 0
Sitelocal
31/05/2004
Amigo está dando o seguinte problema depois que eu coloquei em uses shellapi
unterminated string o que é esse problema sabe ????
unterminated string o que é esse problema sabe ????
GOSTEI 0
Sitelocal
31/05/2004
Obrigado consegui só tinha uma aspas a mais obrigado mesmo cara ! ajudou muito ok !
GOSTEI 0