نسخ أحتياطي SQL

اعتقد ان اسم قاعدة البيانات تكون مختلفة اعتقد انه يضع مسار قاعدة البيانات بجوا اسم قاعدة البيانات في السكول

ثانيا اذا كنت تعمل علي SQLEXPRESS08Nبعد الاوامر غير موجود مثل ضغظ قاعدة البيانات انظر هذا الخطء

TITLE: Microsoft SQL Server Management Studio
------------------------------

Backup failed for Server 'PC\SQLEXPRESS08N'.  (Microsoft.SqlServer.SmoExtended)

For help, click: http://go.microsoft.com/fwlink?ProdName=Microsoft+SQL+Server&ProdVer=10.50.2500.0+((KJ_PCU_Main).110617-0026+)&EvtSrc=Microsoft.SqlServer.Management.Smo.ExceptionTemplates.FailedOperationExceptionText&EvtID=Backup+Server&LinkId=20476

------------------------------
ADDITIONAL INFORMATION:

System.Data.SqlClient.SqlError: The backup cannot be performed because 'COMPRESSION' was requested after the media was formatted with an incompatible structure. To append to this media set, either omit 'COMPRESSION' or specify 'NO_COMPRESSION'. Alternatively, you can create a new media set by using WITH FORMAT in your BACKUP statement. If you use WITH FORMAT on an existing media set, all its backup sets will be overwritten. (Microsoft.SqlServer.Smo)

For help, click: http://go.microsoft.com/fwlink?ProdName=Microsoft+SQL+Server&ProdVer=10.50.2500.0+((KJ_PCU_Main).110617-0026+)&LinkId=20476

------------------------------
BUTTONS:

OK
------------------------------

شكراً أخي الكريم 

أنا سأرفق لك المثال لكي تشاهدة وتعدل علي إذا سمحت 

Backup.rar

look this code for backup

Dim con As New SqlConnection("Data Source=.\sqlexpress;AttachDbFilename=" & Application.StartupPath & "\dataSQL.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim oSaveFileDialog As New SaveFileDialog
            oSaveFileDialog.Filter = "*.bak|*.bak"
            If oSaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim sSavePath As String = oSaveFileDialog.FileName
                con.Open()
                Dim cmd As SqlCommand = New SqlCommand("SELECT DB_NAME()", con)
                Dim sDB_NAME As String = cmd.ExecuteScalar().ToString()

                Dim sBACKUP = "BACKUP DATABASE [" & sDB_NAME & "] TO  DISK = N'" & sSavePath & "' WITH NOFORMAT, INIT,  NAME = N'A-Full Database Backup', SKIP, NOREWIND, NOUNLOAD,  STATS = 10"
                cmd.CommandText = sBACKUP
                cmd.ExecuteNonQuery()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            con.Close()
        End Try
    End Sub

السلام عليكم

شكرا أخي العزيز 

والله هذا ما أحتاجة وكنت أبحث عنه 

أريد خدمة من حضرتك 

أريد كيفة استعاذة القاعدة بالله عليك يا أخي الكريم 

وبارك الله فيك وفي علمك