[ابو انس]

لدي كود يعمل نسخة احتياطية لقاعدة البيانات وهو يعمل جيدا
اريد التعديل على الكود بحيث يعمل نسخة احتياطية فقط لجدول معين

كود :

 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

[ابو انس]

هل الامر صعب لهذه الدرجة

---

هل من مساعدة