منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم أسئلة قواعد البيانات تحت بيئة الـ.NET > نسخ آلي لقاعدة البيانات
نسخة كاملة : نسخ آلي لقاعدة البيانات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

eng.khalidvb

16-09-13, 11:30 PM
الســــــــــــــــــــــــــــلام عليكم ورحمة الله وبركاته


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

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


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


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

eng.khalidvb

17-09-13, 02:50 AM
Dodgy
Huh
ويــــــــــــــــــــن المشاركــــــــــــــــــــــــــــــــات ؟؟

@@أبورائد@@

18-09-13, 02:14 AM
السلام عليكم ورحمة الله وبركاته


قد يفيدك هذا المثال
كود :
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

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

تركي قرمزلي

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

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

eng.khalidvb

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



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

Wink
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم أسئلة قواعد البيانات تحت بيئة الـ.NET > نسخ آلي لقاعدة البيانات