منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
نسخ آلي لقاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : نسخ آلي لقاعدة البيانات (/showthread.php?tid=139)

نسخ آلي لقاعدة البيانات - eng.khalidvb - 16-09-13

الســــــــــــــــــــــــــــلام عليكم ورحمة الله وبركاته


هل يمكن الحصول على مثال لعمل نسخ احتياطي لقاعدة بيانات اكسس بشكل آلي, اي ان المستخدم يحدد الوقت .

مثل المستخدم اختار الساعه 10 صباحاً وهنا يقوم البرنامج باخذ نسخة احتياطيه للقاعدة يوميا عند الساعه العاشرة صباحا بالضبط عندما يكون البرنامج في وضع التشغيل ..


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


والسلام عليكم ورحمه الله وبركاته

RE: نسخ آلي لقاعدة البيانات - eng.khalidvb - 17-09-13

Dodgy
Huh
ويــــــــــــــــــــن المشاركــــــــــــــــــــــــــــــــات ؟؟

RE: نسخ آلي لقاعدة البيانات - @@أبورائد@@ - 18-09-13

السلام عليكم ورحمة الله وبركاته


قد يفيدك هذا المثال
كود :
Public Class Form1

   ' Timer أدرج


   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Timer1.Interval = 30000
       Timer1.Start()

   End Sub


   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Dim t As String = Now.ToString("HH:mm") ' تنسيق أربعة وعشرون ساعة
       ' تم تحديد الساعة العاشرة صباحاً بنظام 24 ساعة
       If t = "10:00" Then
           ' قم بعمل نسخة احتياطية لقاعدة البيانات
           MakeDatabaseBackup()
       End If
   End Sub


   Private Sub MakeDatabaseBackup()
       ' يعني الكتابة فوق النسخة الإحتياطية السابقة إن وجدت True المعامل الثالث
       IO.File.Copy("قاعدة البيانات الأساسية", "قاعدة البيانات الإحتياطية", True)
   End Sub

End Class

السلام عليكم ورحمة الله وبركاته


RE: نسخ آلي لقاعدة البيانات - تركي قرمزلي - 18-09-13

السلام عليكم و رحمة الله و بركاته
تعقيبا على رد الأستاذ أبو رائد
كود :
 Private Sub MakeDatabaseBackup()
       ' يعني الكتابة فوق النسخة الإحتياطية السابقة إن وجدت True المعامل الثالث
       IO.File.Copy("قاعدة البيانات الإحتياطية", "قاعدة البيانات الأساسية ", True)
End Sub

قد يكون مشكلة في تنسيق النص فقط
السلام عليكم و رحمة الله و بركاته


RE: نسخ آلي لقاعدة البيانات - eng.khalidvb - 19-09-13

السلام عليكم ورحمه الله وبركاته
 
شكرا على الاجتهادات  اخواني ... لكن بحثت بنفسي وقمت بعمل تطبيق بسيط عن النسخ الاحتياطي لقاعدة البيانات بشكل آلي كما بالصورة التاليه :
 
[صورة مرفقة: 850j8.png]
 
 
وهنا يمكنكم تحميل البرنامج  في المرفقات Smile



باسورد الملف : eng.khalidvb

Wink