+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : حفظ قاعدة البيانات Absolute database (/showthread.php?tid=2450)
الصفحات:
1
2
حفظ قاعدة البيانات Absolute database - Anter2010 - 01-10-2010
السلام عليكم و رحمة الله تعالى و بركاته
اخي كاش و احد بارك الله فيك النتيجة صالحة 100%
لكن كانت غايتي حفظ قاعدة البيانات على شكل stock2010,stock2011
الا يمكن فعل ذالك
بارك الله فيك مجددا تشكر على تعبك
حفظ قاعدة البيانات Absolute database - kachwahed - 01-10-2010
حاول:
كود :
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!');بالتوفيق.
حفظ قاعدة البيانات Absolute database - Anter2010 - 01-10-2010
السلام عليكم و رحمة الله تعالى و بركاته
يا استاذ هذا هو المطلوب باذن الله
الله ينور عليك يا استاذ
حفظ قاعدة البيانات Absolute database - zmx123 - 01-12-2010
حاول:
كود :
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;بالتوفيق.
حفظ قاعدة البيانات Absolute database - alili mostafa - 10-12-2010
إستعمل هذا الكود لحفظ فاعدة البيانات
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;
حفظ قاعدة البيانات Absolute database - sami2008 - 21-06-2015
السلام عليكم والله جميل لكن كيف يمكنني أن أقوم بحفظ قاعدة البيانات في ملف بعنوان مثلا سنة 2015 أوسنة 2016 وإسترجاعها
RE: حفظ قاعدة البيانات Absolute database - samidz - 26-01-2016
كود :
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]