عمل نسخه احتياطيه واسترجاعها برمجيا sql server

If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

Dim conn As New SqlConnection("Data Source=PC;Initial Catalog=DB;Integrated Security=true")

Dim cmd As New SqlCommand("BACKUP DATABASE [DB] TO DISK = N'" & SaveFileDialog1.FileName & "' WITH NOFORMAT, NOINIT, NAME = N'DB', SKIP, NOREWIND, NOUNLOAD, STATS = 10", conn)

conn.Open()

cmd.ExecuteNonQuery()

conn.Close()

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

End If