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