+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اخذ نسخة احتياطية عن طريق المشروع (/showthread.php?tid=21888)
اخذ نسخة احتياطية عن طريق المشروع - محمد بوقزاحة - 26-09-17
السلام عليكم ورحمة الله وبركاته اخوتي الكرام
تحيه طيبة لكم جميعاً
---
ممكن مساعدتي في اخذ نسخة احتياطية عن طريق المشروع المصمم من قبل المبرمج
واخذ نسخة احتياطية تلقائي بتاريخ معين من الشهر
جزاااكم الله كل خير
RE: اخذ نسخة احتياطية عن طريق المشروع - Adrees - 26-09-17
وعليكم السلام
ماهو نوع قاعدة البيانات المستخدمة في المشروع؟
RE: اخذ نسخة احتياطية عن طريق المشروع - محمد بوقزاحة - 26-09-17
SQL SERVER 2008 R2
RE: اخذ نسخة احتياطية عن طريق المشروع - ibraheam - 27-09-17
جرب الكود التالي
PHP كود :
Dim backupcmd As New SqlCommand()
With backupcmd
.Connection = con
.CommandText = "use master BACKUP DATABASE [DataBaseName] TO DISK = N'" & FullFileNamrtxt.Text & "' WITH NOFORMAT, INIT, " _
& " Name = N'DataBaseName-Full Database Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10"
Try
If con.State = ConnectionState.Closed Then con.Open()
Me.Cursor = Cursors.WaitCursor
Me.Savebtn.Enabled = False
.ExecuteNonQuery()
Me.Cursor = Cursors.Default
Me.Savebtn.Enabled = True
con.Close()
MsgBox("تم اجراء النسخ الاحتياطي بنجاح", MsgBoxStyle.Information, "نسخ احتياطي")
Catch ex As Exception
Me.Savebtn.Enabled = True
Me.Cursor = Cursors.Default
If con.State = ConnectionState.Open Then con.Close()
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End With
استبدل (FullFileNamrtxt.Text) بالمسار المطلوب حفظ قاعدة البيانات فيه
استبدل (DataBaseName) باسم قاعدة البيانات عندك
اما بخصوص عمل نسخ احتياطي مجدول (يومي او اسبوعي او شهري) فبالامكان استخدام (SQL Server agent) من خلال اضافة (Job) جديدة و ضبط اعداداتها حسب الحالة التي عندك
تحياتي
RE: اخذ نسخة احتياطية عن طريق المشروع - محمد بوقزاحة - 27-09-17
شكر اخي الكريم
ممكن توضح مثال حتى تصل الفكرة 100%