vai no meu blog e var um topico sobre BACKUP com zipmaster
http://rafaeldelphi.blogspot.com
t+
On Tue, 8 Mar 2005 01:29:14 -0300, Hudson BHTE <[EMAIL PROTECTED]> wrote:
>
> Ola!
>
> Tenho uma conexão em ADO no banco de dados access 2000, e quero implementar
> um backup no meu sistema...peguei um exemplo na netmas para fazer em
> paradox.+ ou - assim
>
> procedure TFormCopia.BitBtn1Click(Sender: TObject);
> var
> I: Integer;
> begin
> Database1.Connected:=True; // Database para controle
> Table2.DatabaseName:=DirectoryListBox1.Directory; // Seleciona local de
> destino da cópia
> with Session1 do
> begin
> Active:=True;
> GetTableNames('AliasName','*.*',True,True,Memo1.Lines); // Retorna o nome
> das tabelas
> end;
> for I:= 0 to Memo1.Lines.Count - 1 do
> begin
> Table1.TableName:=Memo1.Lines[I]; // Tabela origem
> Table2.TableName:=Memo1.Lines[I]; // Tabela destino
> BatchMove1.Execute;
> end;
> end;
> alguem pode me ajudar
> --
>
> No virus found in this outgoing message.
> Checked by AVG Anti-Virus.
> Version: 7.0.300 / Virus Database: 266.6.2 - Release Date: 4/3/2005
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> --
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
