(25-09-18, 10:55 PM)Hazem1 كتب : بسم الله الرحمن الرحيم

بالأمس تعلمت من الأخ العزيز eljokr جزاه الله خيراً كيفية نسخ قاعدة بيانات الأكسس، فحاولت استخدام نفس الكود في عملية الاستعادة بحيث يتم نسخ ملف قاعدة البيانات من ملف النسخ إلى ملف الDebug فهل الكود صحيح؟ رحمكم الله.

PHP كود :

If My.Settings.BupDB = Now.Date Then
            If con.State = ConnectionState.Open Then con.Close()
            My.Computer.FileSystem.CopyFile(Application.StartupPath & "D:\Backup\BupDB-" & Now.Date.ToString("dd-MM-yyyy") & "A18.accdb", "D:/HHH/WindowsApplication1/bin/Debug/A18.accdb", True)
        End If 


(26-09-18, 12:02 AM)elgokr كتب :

(25-09-18, 10:55 PM)Hazem1 كتب : بسم الله الرحمن الرحيم

بالأمس تعلمت من الأخ العزيز eljokr جزاه الله خيراً كيفية نسخ قاعدة بيانات الأكسس، فحاولت استخدام نفس الكود في عملية الاستعادة بحيث يتم نسخ ملف قاعدة البيانات من ملف النسخ إلى ملف الDebug فهل الكود صحيح؟ رحمكم الله.

PHP كود :

If My.Settings.BupDB = Now.Date Then
            If con.State = ConnectionState.Open Then con.Close()
            My.Computer.FileSystem.CopyFile(Application.StartupPath & "D:\Backup\BupDB-" & Now.Date.ToString("dd-MM-yyyy") & "A18.accdb", "D:/HHH/WindowsApplication1/bin/Debug/A18.accdb", True)
        End If 


مرحباً اخى Hazem1

نعم الكود صحيح بما انك قمت بعكس المسارات

ولكن هنا انت لا تحتاج للتحقق من التاريخ

لان الكود الاسترجاع سيكون داخل زر وليس تلقائي

فكل ما عليك ان تجعل الكود بهذا الشكل مع بعض التعديل البسيط

كود :

           If con.State = ConnectionState.Open Then con.Close()
           My.Computer.FileSystem.CopyFile(Application.StartupPath & "D:\Backup\BupDB-" & Now.Date.ToString("dd-MM-yyyy") & "A18.accdb", Application.StartupPath & "\A18.accdb", True)

تحياتى لك

وتمنياتى لك التوفيق

(26-09-18, 01:36 AM)elgokr كتب :

انت قمت بالتعديل على الكود لديك بدل من استبداله

انت لست بحاجة الى شرط التحقق لهذا السطر

كود :

If My.Settings.BupDB = Now.Date Then
End If

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

تحياتى لك

وتمنياتى لك التوفيق

(26-09-18, 11:57 PM)elgokr كتب :

مرحباً اخى الحبيب

سبب الخطاء فى هذا الجزء من الكود

كود :

Application.StartupPath & "D:\Backup\BupDB-"

كيف تضع مسار دريف D وكذلك تستخدم جملة Application.StartupPath

وكذلك بتستخدم كود جلب التاريخ الحالى يعنى انا عايز زمتك

انت فى مجلد النسخة الاحتياطية فى ملف لقاعدة البيانات بالاسم ده

PHP كود :

BupDB-20-09-2018A18.accdb 


الصح ان يكون الكود بهذا الشكل

كود :

If con.State = ConnectionState.Open Then con.Close()
       My.Computer.FileSystem.CopyFile("D:\Backup\BupDB-26-09-2018A18.accdb", Application.StartupPath & "\A18.accdb", True)

فقط استبدل التاريخ كتابياً وليس بالكود

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

ولو جينا للصح

من المفترض ان تتم استرجاع النسخة يدوياً 

أو يتم عمل كود جلب جميع الملفات بمجلد النسخة الاحتياطية

ومن ثم يتم اختيار النسخة المطلوب استرجاعها

تحياتى لك

وتمنياتى لك التوفيق

 والله لما راجعت الكود أخذت أضحك على ما فعلت، اسأل الله أن يجعل في وجهك الابتسامة كما تجعلها في وجوه الآخرين، سأفعل الصح مثلما نصحتني وسأقوم بالاستعادة بشكل يدوي إن شاء الله.

(27-09-18, 11:13 PM)Hazem1 كتب :  والله لما راجعت الكود أخذت أضحك على ما فعلت، اسأل الله أن يجعل في وجهك الابتسامة كما تجعلها في وجوه الآخرين، سأفعل الصح مثلما نصحتني وسأقوم بالاستعادة بشكل يدوي إن شاء الله.

(28-09-18, 01:39 AM)elgokr كتب :

(27-09-18, 11:13 PM)Hazem1 كتب :  والله لما راجعت الكود أخذت أضحك على ما فعلت، اسأل الله أن يجعل في وجهك الابتسامة كما تجعلها في وجوه الآخرين، سأفعل الصح مثلما نصحتني وسأقوم بالاستعادة بشكل يدوي إن شاء الله.

يارب تدوم الضحكة دائماً

يمكن طرق اخري لعمل الاسترجاع 

مثل عمل الزر يقوم بعمل تحديد مسار الملف المطلوب استرجاعه

من خلال اداء OpenFileDialog وتطبيقه مع كود المذكور باخر رد مسبق

تحياتى لك

وتمنياتى لك التوفيق