طريقة عمل باك اب لداتابيز Sql داخليه

أنظر هنا :

دراسة حول كيفية إنشاء نسخة احتياطية لقاعدة بيانات Sql Server و استعادتها برمجيا

الكود بـ VB.NET و لكنه بسيط و سهل الترجمة إلى C#

جزاك الله كل خير يا أخي الكريم ووفقك لما تحب وترضى

سأجرب الكود وإن توقفت في شئ سأعود لطلب المساعده وشكرا مرة أخرى

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

أنا قاعدتي بامتداد mdf ووجدت كود لعمل الباك اب والريستور

لكن واجهت مشكلة عند عمل الاستعادة للقاعدة بحيث أنه يظهر لي رسالة خطأ ويكتب لي النسار الذي توجد به قاعدة بياناتي ويقول لي alraidy exist

وهذا هو الكود

PublicClass Backup

PrivateSub BtnBackup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBackup.Click

Try

' تعريف متغيرين نصيين يمثلان اسم الملف المصدر واسم الملف الهدف

Dim SourceFile, DestinationFile, string1 AsString

' تحديد اسم الملف المصدر

SourceFile = (System.Windows.Forms.Application.StartupPath & "\OFFICEJED.mdf")

string1 = InputBox("من فضلك ادخل تاريخ او رقم للنسخة الاحتياطية ", "انشاء نسخه احتياطية")

If string1.Trim <> ""Then

' استبدال أحرف / أو \ بـ - ـ

If InStr(string1, "\") Or InStr(string1, "/") Then

string1 = Replace(string1, "\", "-", 1, -1, CompareMethod.Text)

string1 = Replace(string1, "/", "-", 1, -1, CompareMethod.Text)

EndIf

' تحديد المكان الهدف

DestinationFile = "E:\bakup2"

If Dir(DestinationFile, vbHidden) = ""Then

DestinationFile = DestinationFile & "\OFFICEJED" & string1 & ".mdf"

Else

' أنشئ المجلد

MkDir(DestinationFile)

DestinationFile = DestinationFile & "\OFFICEJED" & string1 & ".mdf"

EndIf

FileCopy(SourceFile, DestinationFile)

MessageBox.Show("تمت عملية النسخ بنجاح", "APPLICATIONNAME", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)

EndIf

Catch ex As Exception

MsgBox(ex.Message)

EndTry

EndSub

PrivateSub BtnRestore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRestore.Click

Try

Dim SourceFile, DestinationFile, string1 AsString

SourceFile = (System.Windows.Forms.Application.StartupPath & "\OFFICEJED.mdf")

string1 = InputBox("من فضلك ادخل تاريخ او رقم للنسخة الاحتياطية ", "انشاء نسخه احتياطية")

If string1.Trim <> ""Then

If InStr(string1, "\") Or InStr(string1, "/") Then

string1 = Replace(string1, "\", "-", 1, -1, CompareMethod.Text)

string1 = Replace(string1, "/", "-", 1, -1, CompareMethod.Text)

EndIf

DestinationFile = "E:\bakup2"

If Dir(DestinationFile, vbHidden) = ""Then 

DestinationFile = DestinationFile & "\OFFICEJED" & string1 & ".mdf"

Else

MkDir(DestinationFile)

' 

DestinationFile = DestinationFile & "\OFFICEJED" & string1 & ".mdf"

EndIf

'FileCopy(SourceFile, DestinationFile)

FileCopy(DestinationFile, SourceFile)

MessageBox.Show("تمت عملية النسخ بنجاح", "APPLICATIONNAME", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)

EndIf

Catch ex As Exception

MsgBox(ex.Message)

EndTry

EndSub

EndClass

هذا الكود بال vb

ولمن وجد الحل بالسي شارب يكون أفضل وإن كان بال vb فلا مشكلة سأقوم بتحويله

وجزاكم الله كل خيـــــــر

PublicClass Backup

PrivateSub BtnBackup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBackup.Click

Try

' تعريف متغيرين نصيين يمثلان اسم الملف المصدر واسم الملف الهدف

Dim SourceFile, DestinationFile, string1 AsString

' تحديد اسم الملف المصدر

SourceFile = (System.Windows.Forms.Application.StartupPath & "\OFFICEJED.mdf")

string1 = InputBox("من فضلك ادخل تاريخ او رقم للنسخة الاحتياطية ", "انشاء نسخه احتياطية")

If string1.Trim <> ""Then

' استبدال أحرف / أو \ بـ - ـ

If InStr(string1, "\") Or InStr(string1, "/") Then

string1 = Replace(string1, "\", "-", 1, -1, CompareMethod.Text)

string1 = Replace(string1, "/", "-", 1, -1, CompareMethod.Text)

EndIf

' تحديد المكان الهدف

DestinationFile = "E:\bakup2"

If Dir(DestinationFile, vbHidden) = ""Then

DestinationFile = DestinationFile & "\OFFICEJED" & string1 & ".mdf"

Else

' أنشئ المجلد

MkDir(DestinationFile)

DestinationFile = DestinationFile & "\OFFICEJED" & string1 & ".mdf"

EndIf

FileCopy(SourceFile, DestinationFile)

MessageBox.Show("تمت عملية النسخ بنجاح", "APPLICATIONNAME", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)

EndIf

Catch ex As Exception

MsgBox(ex.Message)

EndTry

EndSub

PrivateSub BtnRestore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRestore.Click

Try

Dim SourceFile, DestinationFile, string1 AsString

SourceFile = (System.Windows.Forms.Application.StartupPath & "\OFFICEJED.mdf")

string1 = InputBox("من فضلك ادخل تاريخ او رقم للنسخة الاحتياطية ", "انشاء نسخه احتياطية")

If string1.Trim <> ""Then

If InStr(string1, "\") Or InStr(string1, "/") Then

string1 = Replace(string1, "\", "-", 1, -1, CompareMethod.Text)

string1 = Replace(string1, "/", "-", 1, -1, CompareMethod.Text)

EndIf

DestinationFile = "E:\bakup2"

If Dir(DestinationFile, vbHidden) = ""Then 

DestinationFile = DestinationFile & "\OFFICEJED" & string1 & ".mdf"

Else

MkDir(DestinationFile)

' 

DestinationFile = DestinationFile & "\OFFICEJED" & string1 & ".mdf"

EndIf

'FileCopy(SourceFile, DestinationFile)

FileCopy(DestinationFile, SourceFile)

MessageBox.Show("تمت عملية النسخ بنجاح", "APPLICATIONNAME", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)

EndIf

Catch ex As Exception

MsgBox(ex.Message)

EndTry

EndSub

EndClass