delphi4arab منتديات دلفي للعرب
فيما يخص الأرشفة - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : فيما يخص الأرشفة (/showthread.php?tid=8122)



فيما يخص الأرشفة - farhi2008 - 29-08-2016

بسم الله الرحمان الرحيم
قمت ببرمجة backup لقاعدة بيانات access وفق التاريخ
هذه الدالة
if DirectoryExists('C:\G_DEG\Archive') then
begin
copyFile('Data.MDB','C:\G_DEG\Archive'+'\Data'+(formatdatetime( 'dd mm yyyy', date ))+'.mdb',true);
end
اين الخطأ من فضلكم


RE: فيما يخص الأرشفة - أبو معاذ - 29-08-2016

وعليكم السلام ورحمة الله وبركاته ،
وما هي رسالة الخطأ التي تظهر لك ؟


RE: فيما يخص الأرشفة - farhi2008 - 31-08-2016

وعليكم السلام اخ [b]Unprogramme[/b] 
عذرا لم انتبه للرسالة
الحمد لله لقد تم حل المشكل ،حيث كان الاشكال يدور حول التحويل من string الى pwidechar
هذا هو الحل
copyFile('Data.MDB',pwidechar('C:\G_DEG\Archive'+'\Data'+(formatdatetime( 'dd mm yyyy', date ))+'.mdb'),true);
بارك الله فيك اخ unprogramme


RE: فيما يخص الأرشفة - justnick - 31-08-2016

نصيحة بعد الارشفة تاكد ان الملف المنسوخ نسخة طبق الاصل من الملف الاصلى