Programación General > Delphi

 Backups De Bd Access En Delphi 6

(1/1)

cj_2004:
Como puedo realizar backup de una bd hecha en access utilizando codigo delphi, el respaldo lo necesito en el disco duro.

Esperando alguna respuesta les agradesco.  :unsure:

Amilius:
Como en Access toda la bd está empaquetada en un solo archivo.... pues copia el archivo y punto final...  


--- Código: Text --- var  FromF, ToF: file;  NumRead, NumWritten: Integer;  Buf: array[1..2048] of Char;begin  if OpenDialog1.Execute then                               { Display Open dialog box }  begin    AssignFile(FromF, OpenDialog1.FileName);    Reset(FromF, 1);  { Record size = 1 }    if SaveDialog1.Execute then                              { Display Save dialog box}    begin      AssignFile(ToF, SaveDialog1.FileName);  { Open output file }       Rewrite(ToF, 1);  { Record size = 1 }      Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))        + ' bytes...');      repeat        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);        BlockWrite(ToF, Buf, NumRead, NumWritten);      until (NumRead = 0) or (NumWritten <> NumRead);        CloseFile(FromF);        CloseFile(ToF);    end;  end;end; 

cj_2004:
Muchas gracias por tu ayuda Amilius todo me funciono correctamente, disculpa la demora.

 :hola: chao......

Navegación

[0] Índice de Mensajes