delphi4arab منتديات دلفي للعرب

السلام عليكم

لدي قاعدة بيانات أكسس مربوطة مع برنامج دالفي 7

إسم قاعدة البيانات هو "1"

أود إخوتي كيفية حفظ و إستعادة نسخة إحتياطية لقاعدة البيانات :confused:


بارك الله فيكم وجزاكم خيرا.

للاسف أخي لم أجد ما أبحث عنه

يوجد مثال فى الدولفى واليك مثال
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ZipForge, ExtCtrls;

type
TForm1 = class(TForm)
Archiver: TZipForge;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Timer1: TTimer;
Label1: TLabel;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text := OpenDialog1.FileName;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Edit2.Text := SaveDialog1.FileName;
end;

procedure TForm1.Button1Click(Sender: TObject);
VAR FileName: String ;
KK: TTIME;
begin

with Archiver do begin
FileName := Edit2.Text+Label1.Caption+'.ZIP';
OpenArchive(fmCreate);
AddFiles(Edit1.Text);
CloseArchive;
ShowMessage('Archive Creating completed');
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var kk :Ttime;
kkk:tdate;
begin
kkk:=now;
kk :=now;
Label1.Caption:=(FormatDatetime('dd_mm_yyyy_',kkk))+(FormatDatetime('hh_mm_ss',kk));
end;

end.

مثال اخر
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, IBServices;

type
TForm1 = class(TForm)
IBBackupService1: TIBBackupService;
IBRestoreService1: TIBRestoreService;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Panel2: TPanel;
Memo1: TMemo;
Timer1: TTimer;
Panel1: TPanel;
Label1: TLabel;
Timer2: TTimer;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel2.Visible := true;
Memo1.Lines.Clear;
Panel1.Visible := false;

with IBBackupService1 do
begin
IBBackupService1.BackupFile.Clear;
IBBackupService1.DatabaseName := Edit2.Text;
IBBackupService1.BackupFile.Add('C:\aa ' + FormatDateTime('DD_MM_YYYY_', Date) + FormatDateTime('H_M_S_', Time) + '.gbk');

IBBackupService1.Active := true;
IBBackupService1.ServiceStart;

Verbose := True;

while not Eof do

Memo1.Lines.Add(GetNextLine);
end;
Timer2.Enabled := true;

Panel2.Visible :=false;
Label1.Caption := (IBBackupService1.BackupFile.GetText + ' تم عمل نسخة ');
end;

procedure TForm1.FormCreate(Sender: TObject);
var s: integer;
begin
s := strtoint(Edit1.Text);
Timer1.Interval := 1000 * s;


Button1.Click;

// Timer1.Enabled:=true ;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Panel1.Caption := (' تم عمل نسخة ' + IBBackupService1.BackupFile.GetText);
Panel1.Visible := true;

end;

end.