النسخ الاحتياطي للبيانات

أخي الفاضل

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

النسخ الاحتياطي هو عبارة عن أخذ نسخة احتياطية Backup من قاعدة البيانات سواء SQL أو Access أو اي برنامج قواعد بيانات لحفظها علي الهارد ديسك

او علي اسطوانات للرجوع لها وقت الحاجة ووقت الحاجة اي به اشياء كثيرة

-- وقت انقطاع التيار الكهربائي فجأه وفقدان البيانات لسبب ما

-- أو فقدان ملفات البيانات نفسها اقصد عطب القاعدة لاي سبب

-- حفظ سنوات معينة قد تم اقفالها محاسبيا وحفظها كمرجع علي شكل نسخة احتياطية Backup

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

اما بخصوص الكود الخاص بعمل هذه العملية فهو كالتالي

Dim con As New SqlConnection
		con.ConnectionString = "Data Source=asem-PC\SQLEXPRESS;Initial Catalog=Employee;Integrated Security=True;Pooling=False"
		con.Open()
		Dim DS As New DataSet
		Dim SQLstr As String = "BACKUP DATABASE Employee TO DISK = 'C:\SQLServerBackups\Employee.Bak'"
		Dim DataAdapter1 As New SqlDataAdapter(SQLstr, con)
		DataAdapter1.Fill(DS, "Employee_info")
		con.Close()

و الله موضوع شيق ،

استاذ محمد فؤاد تركى لو ينفع انى اعمل Backup لقاعدة بيانات أكسس من داخل البرنامج بتاعى ( بدون ما اتعب المستخدم انه يسخها بنفسه )

ارجو التوضيح و يا ريت الكود

شاكرين الأفضال يا غالى

أخي الفاضل

dvd_besoo

المطلوب تغييرة في الكود اعلاة

1 - سلسة الاتصال والخاصة ببرنامج الاكسس

2 - تغيير امتداد النسخة الاحتياطية من

 .Bak

الي

.MDB

أو ممكن تستخدم كود في غاية البساطة لتنفيذ العملية

FileCopy("D:\Authors.mdb", "D:\BackUpFolder\NewBackUpName.mdb")

وهذا الكود مهتمة بمنتهي البساطة عند الضغط علي زر يقوم البرنامج بنسخ نسخة جديده من قتعدة البيانات من المسار المختار الي المسار الجديد والذي يوجد به النسخ الاحتياطية لقاعدة البيانات