back up للداتا بيز باستخدام فيجوال بيسك دوت نت وقاعدة بيانات اكسس

houssam11350_11350 كتب:

السلام عليكم ..

1. نغلق الــ Connection  إذا كان مفتوحا .
2. قاعدة بيانات الأكسس عبارة عن ملف و و الــ backup  ببساطة عبارة عن عمل نسخة من الملف (بخلاف سيكوال سيرفر و أوراكل و غيرها) .
3. الكود :

    connection.Close()
           Dim source = Application.StartupPath & "\db.mdb"
           Dim dest = Application.StartupPath & "\" & DateTime.Now.ToString("yyyy-MM-dd-hh-mm-ss") & ".mdb"
           System.IO.File.Copy(source, dest, True)

    

4. انت بحاجة غلى Timer   إذا اردت تشغيله كل ساعة .

5. يمكن استخدام الحدث FormClosing  للفورم الرئيسي لعمل نسخة اختياطية .

جزاك الله خيرا 

اريد تتحمل اسئلتى ..

لو حبيت اعمل retor ???   ايه الكود 

وياريت تشرحلى فكره FormClosing 

السلام عليكم ..

1. كود الاستعادة :

   connection.Close()
           Dim ofd As New OpenFileDialog
           If Not ofd.ShowDialog() = DialogResult.OK Then Exit Sub
           If (Not String.IsNullOrEmpty(ofd.FileName)) Then
               Dim source = ofd.FileName
               Dim dest = Application.StartupPath & "\db.mdb"
               File.Copy(source, dest, True)
               MsgBox("ok")
           End If

    

2. حدد الفورم ثم من نافذة الخصائص تضغط على زر Events  (رمزه رمز البرق أصفر) فتجد الأحداث الخاصة بالفورم , تختار منها FormClosing  بالضفطن قرتين بالماوس و تكتب الكود الذي تريد تنفيذه عند إغلاق الفورم .

3. يرجى قراءة الكتب من المواضيع و الدروس المثبتة في المنتدى .

houssam11350_11350 كتب:

السلام عليكم ..

1. نغلق الــ Connection  إذا كان مفتوحا .
2. قاعدة بيانات الأكسس عبارة عن ملف و و الــ backup  ببساطة عبارة عن عمل نسخة من الملف (بخلاف سيكوال سيرفر و أوراكل و غيرها) .
3. الكود :

    connection.Close()
           Dim source = Application.StartupPath & "\db.mdb"
           Dim dest = Application.StartupPath & "\" & DateTime.Now.ToString("yyyy-MM-dd-hh-mm-ss") & ".mdb"
           System.IO.File.Copy(source, dest, True)

    

4. انت بحاجة غلى Timer   إذا اردت تشغيله كل ساعة .

5. يمكن استخدام الحدث FormClosing  للفورم الرئيسي لعمل نسخة اختياطية .

جزاك الله خيرا ولكن بعد العمل مع الكود أظهر لى ان الباس غير مدعوم 

وياريت كمان توضح لى ازاى هيتم ربط بين ادة timers والكود ...

السلام عليكم ...

1. إذا كان المسار كاملا  يبدا بإحدى الأقراص C , D ,   فيكون :

   Dim source = "D:\66\db1.mdb"

    

2. تقوم بسحب timer  على الفورم و تضع له الخصائص التالية من نافذة الخصائص :

3. interval =1000  يعني ألف ميلي ثانية .

4. enabled = true  للتفعيل

5. ضغطة مزدوجة على ايقونة الــ timer  أسفل الفورم ليفتح لك حدث الــ Timer  المسمى Timer1_Tick ثم تقوم بكتابة الكود .

houssam11350_11350 كتب:

السلام عليكم ...

1. إذا كان المسار كاملا  يبدا بإحدى الأقراص C , D ,   فيكون :

   Dim source = "D:\66\db1.mdb"

    

2. تقوم بسحب timer  على الفورم و تضع له الخصائص التالية من نافذة الخصائص :

3. interval =1000  يعني ألف ميلي ثانية .

4. enabled = true  للتفعيل

5. ضغطة مزدوجة على ايقونة الــ timer  أسفل الفورم ليفتح لك حدث الــ Timer  المسمى Timer1_Tick ثم تقوم بكتابة الكود .

 بردوا ظهر نفس exption  للاسف  على فكره انا بشتغل 2010   

انا ارفقت ليك المثال 

testbackup1.zip

السلام عليكم..

هذا هو الكود للــ Backup    :

Dim source = "D:\66\db1.mdb"
        Dim dest = "D:\55\" & DateTime.Now.ToString("yyyy-MM-dd-hh-mm-ss") & ".mdb"
        System.IO.File.Copy(source, dest, True)

بشرط أن تكون المجلدات المذكورة موجودة .