[asemshahen5]

PHP كود :

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim fbd As New FolderBrowserDialog()
        fbd.Description = "الرجاء تحديد المجلد للنسخ الاحتياطي"
        If fbd.ShowDialog() = DialogResult.OK Then
            System.IO.File.Copy(Application.StartupPath + "\FirstDatabase.accdb", fbd.SelectedPath + "\FirstDatabase.accdb")
            System.IO.File.Copy(Application.StartupPath + "\SecandDatabase.accdb", fbd.SelectedPath + "\SecandDatabase.accdb")
        End If
    End Sub 


   

   

[خالد كامل1]

(06-09-21, 07:24 PM)asemshahen5 كتب :

PHP كود :

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim fbd As New FolderBrowserDialog()
        fbd.Description = "الرجاء تحديد المجلد للنسخ الاحتياطي"
        If fbd.ShowDialog() = DialogResult.OK Then
            System.IO.File.Copy(Application.StartupPath + "\FirstDatabase.accdb", fbd.SelectedPath + "\FirstDatabase.accdb")
            System.IO.File.Copy(Application.StartupPath + "\SecandDatabase.accdb", fbd.SelectedPath + "\SecandDatabase.accdb")
        End If
    End Sub 


بص على طريقه كتابتى للكود وقولى حضرتك فين الغلط وعلى فكره قاعده البينات الاولى mahel والتانيه warsha

     

كود :

Dim fbd As New FolderBrowserDialog()
       fbd.Description = "الرجاء تحديد المجلد للنسخ الاحتياطي"
       If fbd.ShowDialog() = DialogResult.OK Then
           System.IO.File.Copy(Application.StartupPath + "\MAHEL.accdb", fbd.SelectedPath + "\MAHEL.accdb")
           System.IO.File.Copy(Application.StartupPath + ":warsha.accdb", fbd.SelectedPath + ":warsha.accdb")
       End If

[waw]

الغلط في النقطتين : اللي قبل اسم الملف، المفروض تكون \

كود :

System.IO.File.Copy(Application.StartupPath + "\warsha.accdb", fbd.SelectedPath + "\warsha.accdb")

[خالد كامل1]

(06-09-21, 09:53 PM)waw كتب : الغلط في النقطتين : اللي قبل اسم الملف، المفروض تكون \

كود :

System.IO.File.Copy(Application.StartupPath + "\warsha.accdb", fbd.SelectedPath + "\warsha.a

لا اخى العزيز ليس هذا هو الخطأ

[waw]

النقطتين وجودها خطا

لكن لاحظت في مشاركتك الاولى ان قاعدة البيانات الاساسية موجودة في مجلد DATA فاذا كان كذالك فيجب اضافة اسم ذلك المجلد قبل اسم الملف

كود :

System.IO.File.Copy(Application.StartupPath + "\DATA\warsha.accdb", fbd.SelectedPath + "\warsha.accdb")

اذا ظهر خطا ضع صورته

[خالد كامل1]

(07-09-21, 03:40 AM)waw كتب : النقطتين وجودها خطا

لكن لاحظت في مشاركتك الاولى ان قاعدة البيانات الاساسية موجودة في مجلد DATA فاذا كان كذالك فيجب اضافة اسم ذلك المجلد قبل اسم الملف

كود :

System.IO.File.Copy(Application.StartupPath + "\DATA\warsha.accdb", fbd.SelectedPath + "\warsha.accdb")

اذا ظهر خطا ضع صورته

اخى العزيز لاحظ ان عايز التعامل يكون مع قاعدتين بينات مختلفين الاسم 

[waw]

لا تضيف اسم المجلد DATA في الجزء الثاني من السطر الا اذا كان هناك فعلا مجلد بذلك
اقصد بالجزء الثاني

كود :

fbd.SelectedPath + "\warsha.accdb"

لاحظت في مشاركتي السابقة اضفت اسم المجلد DATA في الجزء الاول فقط

[خالد كامل1]

(07-09-21, 08:24 PM)waw كتب : لا تضيف اسم المجلد DATA في الجزء الثاني من السطر الا اذا كان هناك فعلا مجلد بذلك
اقصد بالجزء الثاني

كود :

fbd.SelectedPath + "\warsha.accdb"

لاحظت في مشاركتي السابقة اضفت اسم المجلد DATA في الجزء الاول فقط

تم الحل الف شكر ولكن اخى الكريم فى الاسترجاع ... اريد كود لاسترجاع القاعدتين بنقره زر واحده كما فى عمل اخذ النسخه الاحتياطيه والف شكر على تعبك

[waw]

عملية الاسترجاع هي نفس عمليه النسخ السابقه ولكن تبدل اماكن مسار الملفين بشرط تكون قاعدة البيانات غير متصله داخل البرنامج
اي انك عملت لها con.Close قبل الاستعاده

كود :

System.IO.File.Copy(fbd.SelectedPath + "\warsha.accdb", Application.StartupPath + "\DATA\warsha.accdb", True)

القيمه True من اجل ان يستبدل الملف ان كان موجود