حفظ قاعدة البيانات Absolute database

[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته
اخي كاش و احد بارك الله فيك النتيجة صالحة 100%
لكن كانت غايتي حفظ قاعدة البيانات على شكل stock2010,stock2011
الا يمكن فعل ذالك
بارك الله فيك مجددا تشكر على تعبك

[kachwahed]

حاول:

كود :

function Backup(const Source, Dest: string; Overwrite: Boolean = False): Boolean; begin Result := CopyFile(PChar(Source), PChar(Dest), Overwrite); end; ... if SelectDirectory('Select folder backup...', '', sDir) then if Backup(data.DataBase.DatabaseFileName, IncludeTrailingPathDelimiter(sDir)+'Stock'+edAnnee.Text+'.ABS') then ShowMessage('Backup succesfull!');

بالتوفيق.

[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته

يا استاذ هذا هو المطلوب باذن الله
الله ينور عليك يا استاذ

[zmx123]

حاول:

كود :

procedure tform1.nouvelebase; var db1,db2,data:string; d:tdate; ar:boolean ; begin reparer; ar:=false; d:=now(); data:=extractfilepath(application.exename)+'data\'; data:=data + 'info'+ formatdatetime('yyyy ',d)+'.abs'; dtmdl1.absd1.close; db1:=data1; if copyfile(pchar(db1),pchar(data),true) then begin showmessage('fichier sauvgarder'); end; dtmdl1.absd1.databasefilename:=data1; dtmdl1.abst1.emptytable; dtmdl1.abst3.emptytable; dtmdl1.abstrecete.emptytable; dtmdl1.abstable2.emptytable; dtmdl1.abstable3.emptytable; reparer; ouvirirbase(); end;

بالتوفيق.

[alili mostafa]

إستعمل هذا الكود لحفظ فاعدة البيانات

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var Err,Repertoire:string;
begin
Repertoire := ExtractFilePath(Application.ExeName);
SaveDialog1.Filter:='Fichier Base de données |*.ABS';
SaveDialog1.FileName:='MaBase';
if SaveDialog1.Execute then
begin
 if SaveDialog1.FileName<>'' then
  begin
    try
    ABSDatabase1.Connected:=false;
    if not ABSDatabase1.RepairDatabase(SaveDialog1.FileName+'.ABS',Err)then
    begin
    messagebox(0,Pchar('Certains erreurs trouvées lors de sauvegarde de la base de données - Détail d''erreurs :'+#13+#10+Err), 'Erreur lors de sauvegarde', mb_yesno+MB_ICONEXCLAMATION );
    ABSDatabase1.DatabaseFileName:=Repertoire+'Data.abs';
    ABSDatabase1.Connected:=True;
    exit;
    end;
    finally
    messagebox(0,pchar('Sauvegarde (BackUp) de la base de données terminé'), 'Sauvegarde "Backup"', mb_ok+MB_ICONEXCLAMATION );
    ABSDatabase1.DatabaseFileName:=Repertoire+'Data.abs';
    ABSDatabase1.Connected:=True;
    end;
  end;

end; 


و هذا لالإسترجاع

PHP كود :

procedure TForm1.Button2Click(Sender: TObject);
var Repertoire:string;
begin
Repertoire := ExtractFilePath(Application.ExeName);
OpenDlg.Filter:='Fichier Base de données |*.ABS';
if OpenDlg.Execute then
  begin
  if OpenDlg.FileName<>'' then
      begin
          try
          ABSDatabase1.Connected:=false;
          CopyFile(PChar(OpenDlg.FileName), PChar(Repertoire+'Data.abs'), false);
          ABSDatabase1.DatabaseFileName:=Repertoire+'Data.abs';
          ABSDatabase1.Connected:=True;
          finally
          messagebox(0,pchar('Chargement de la base de données terminé'), 'Chargement de la base de données', mb_ok+MB_ICONEXCLAMATION );
          end;
      end;

  end;
end; 


[sami2008]

السلام عليكم والله جميل لكن كيف يمكنني أن أقوم بحفظ قاعدة البيانات في ملف بعنوان مثلا سنة 2015 أوسنة 2016 وإسترجاعها

[samidz]

كود :

procedure TPrincipale.Sauvegarde1Click(Sender: TObject); var Err,Repertoire:string; begin Repertoire := ExtractFilePath(Application.ExeName); SaveDialog1.Filter:='Fichier Base de données |*.tdbd'; SaveDialog1.FileName:='MaBase'; if SaveDialog1.Execute then begin if SaveDialog1.FileName<>'' then  begin    try    DBArchive.Connected:=false;    if not DBArchive.RepairDatabase(SaveDialog1.FileName+'.tdbd',Err)then    begin    messagebox(0,Pchar('Certains erreurs trouvées lors de sauvegarde de la base de données - Détail d''erreurs :'+#13+#10+Err),     'Erreur lors de sauvegarde', mb_yesno+MB_ICONEXCLAMATION );    DBArchive.DatabaseFileName:=Repertoire+'Data.abs';    DBArchive.Connected:=True;    exit;    end;    finally    messagebox(0,pchar('Sauvegarde (BackUp) de la base de données terminé'), 'Sauvegarde "Backup"', mb_ok+MB_ICONEXCLAMATION );    DBArchive.DatabaseFileName:=Repertoire+'Data.abs';    DBArchive.Connected:=True;    end;  end; end; end;

السلام عليكم اخي [size=small]alili mostafa[/size]
[size=small]اشرفت على انهاء برنامج GESTION DES ARCHIVES و أريد ان اضيف خيار حفظ البيانات و قد رايت هذا الكود الذي وضعته انت وانا بصدد تجربته و لكن هناك بعض الاخطاء التي تظهر لي بعد الضغط على F9 منها:[/size]

[size=small].undeclared identifier : RepairDatabase[/size]

[size=small].Unsafe type char[/size]

[size=small][size=small]undeclared identifier : DatabaseFileName[/size][/size]

كذلك لم افهم ماذا تقصد بـ Data.abs

[size=small]للإشارة انا استخدم TurboDB كـ base de donnée[/size]