16-02-21, 07:02 PM
لدي كود يعمل نسخة احتياطية لقاعدة البيانات وهو يعمل جيدا
اريد التعديل على الكود بحيث يعمل نسخة احتياطية فقط لجدول معين
اريد التعديل على الكود بحيث يعمل نسخة احتياطية فقط لجدول معين
كود :
Try
If txt1char.Text = "C" Then
MessageBox.Show("حاول مجدداً C:\ لا يمكن حفظ النسخة الاحتياطية على الجذر ",
"", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=DB_ACC;Integrated Security=True")
Dim datab As String
datab = "DB_ACC"
'datab = My.Settings.DataBase
If txt_path.Text = "" Then
MessageBox.Show(" يجب اختيار المسار اولا", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return
End If
Dim Filename As String = txt_path.Text + "\ " + datab + " " + DateTime.Now.ToShortDateString()
.Replace("/", "-") + " - " + DateTime.Now.ToLongTimeString().Replace(":", "-") & ".bak"
If con.State = ConnectionState.Open Then
con.Close()
End If
con.Open()
Dim querey As String = "backup database " & datab & " to disk='" & Filename & "'with init,stats=10"
cmd = New SqlCommand(querey, con)
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show(" تمت عملية النسخ بنجاح", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.ToString, "تنبيه")
End Try