[elgokr]

(23-09-18, 09:22 PM)Hazem1 كتب : جزاك الله خيراً أخي الحبيب، قمت بعمل الخطوات في Settings ثم انتقلت لكتابة الكود في الفورم، الكود بالكامل سليم عدا أن السطر التالي ظهر فيه خطأ ، اعتقد بسبب أنني ربطت قاعدة البيانات بالأدوات كما ذكرت لي من قبل وليس بالكود فلذلك هُناك مُشكلة في قناة الأتصال.

PHP كود :

If con.State = ConnectionState.Open Then con.Close() 


 بعد البحث فهمت أنه يلزم إنشاء Module فقمت بإنشاءه وكتبت داخله الكود التالي : 

PHP كود :

Public con As New OleDb.OleDbConnection
    Public cmd As New OleDb.OleDbCommand 


 
ثُم عدلت في المسارات وجعلتها على قرص D والحمد لله بفضل الله ثم بفضلك تم نسخ قاعدة البيانات، هذا هو الكود بعد التعديل 

PHP كود :

REM كود التحقق من التاريخ اخر سحب نسخة باكس اب اصبح اصغر من التاريخ الحالى
        If My.Settings.BupDB < Now.Date Then
            REM كود اغلاق الاتصال بقاعدة البيانات
            If con.State = ConnectionState.Open Then con.Close()
            REM هذا السطر يقوم بالتحقق بمسار مجلد الاحتفاظ بنسخة قاعدة البيانات الا كان غير موجود يقوم بانشاء المجلد
            If (Not System.IO.Directory.Exists("D:\Backup\")) Then IO.Directory.CreateDirectory("D:\Backup\")
            REM اتمام عملية نسخ قاعدة البيانات
            My.Computer.FileSystem.CopyFile(Application.StartupPath & "/A18.accdb", "D:\Backup\BupDB-" & Now.Date.ToString("dd-MM-yyyy") & "A18.accdb", True)
        End If 


جزاك الله خيراً ورضي عنك وغفر لك ورزقك الهُدى والتُقى والعفاف والغنى.

الحمد لله والحمد لله على كل حال

الاهم هل وضحت لك الفكرة واصبح الامر بسيط لديك

ام انك قمت بتطبيق كا النسخ واللصق

لا حرج فى السؤال والاستفسار ولو على حرف قد اكون سهوت عن شرحه

فاتمنى ان ينور العلم للجميع من اجل الخير

تحياتى لك

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