[Hazem1]

(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)

تحياتى لك

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

سُبحان الله، لست أدري فيما أخطأت، هل برأيك يا أخي الكريم أني اخطأت في كتابة السطر الأول من الكود عندما وضعت علامة (=)

PHP كود :

Private Sub Button20_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click

        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", Application.StartupPath & "\A18.accdb", True)
        End If
    End Sub