1 respuesta en este tema

[lsedr]

saludos

tengo este error al realizar la copia de seguridad de mi BD...

que opinan ?

tengo este código en el boton:

delphi

procedure TForm1.CopiadeSeguridad1Click(Sender: TObject);
//REALIZA UNA COPIA DE SEGURIDAD DE LA BD DE FORMA MANUAL
var
  bi: TBrowseInfo;
  idl: PItemIDList;
  PathName: array [0 .. MAX_PATH] of Char;
begin
  FillChar(bi, SizeOf(bi), 0);
  bi.hwndOwner := Handle;
  idl := SHBrowseForFolder(bi);
  if not Assigned(idl) then
    Exit;
  SHGetPathFromIDList(idl, @PathName);
  CoTaskMemFree(idl);
  try
    Datamodule1.ADOConnection1.Execute('backup database Mibase to disk = ''' + PathName +
        '\Mibase_' + FormatDateTime('yyymmdd', Now) + '.bak''');
    ShowMessage('Copia de seguridad exitosa');
  except
    ShowMessage
      ('Ocurrió un error y no se pudo completar la copia de seguridad');
    raise
  end;
 
end;

Archivos adjuntos

•  2880_3ca7ae00c96e977a49a43deb4215ee10f58db4d7.jpg   380,85KB   10 descargas

[lsedr]

A ver quien me ayuda con este error...