مشكل در پشتيبان گيري

[mohsenm66]

من براي پشتيبان گيري از ديتابيس دستور زير استفاده كرده ام ولي با خطا مواجه شده ام . ميشه بگيد اشكال از كجاست .



Dim cn As New SqlConnection(cs)
Dim cmd As New SqlCommand
Try

cn.Open()
Dim query As String = "BACKUP DATABASE asatidsystemdb TO DISK = ' " + filename + "'"

cmd.CommandText = query
cmd.Connection = cn
cmd.ExecuteNonQuery()
cn.Close()

Catch ex As Exception


MsgBox(ex.Message)
End Try

[majid_vb_2008]

این برای پشتیبان گیری


Try
Dim Path As String = Application.StartupPath.ToString
con.Open()
strsql = "BACKUP DATABASE [" & Path & "\Data.mdf] TO DISK ='" & txtPath.Text & "' with format"
com = New SqlCommand(strsql, con)
com.ExecuteNonQuery()
con.Close()
MsgBox("پشتيبان گيري با موفقيت انجام شد", , "پشتيبان گيري")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try


اینم برای ریکاوری


Try
Dim Path As String = Application.StartupPath.ToString

con.Open()

strsql = "ALTER DATABASE [" & Path & "\Data.mdf] SET SINGLE_USER with ROLLBACK IMMEDIATE"
com = New SqlCommand(strsql, con)
com.ExecuteNonQuery()
con.Close()

con.Open()
strsql = "USE master; RESTORE DATABASE [" & Path & "\Data.mdf]" & " FROM DISK ='" & TxtPath1.Text & "'"
com = New SqlCommand(strsql, con)
com.ExecuteNonQuery()
con.Close()

MsgBox("بازگرداني پشتيبان با موفقيت انجام شد", , "پشتيبان گيري")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try


امید وارم بدرت بخوره

[ehsan-68]

سلام ...

من از این کد استفاده کردم و کد قبلیمو تصحیح کردم و در پشتیبان گیری مشکلم حل شد ولی در بازگرداندن پشتیبان این ارورو میده

ExecuteNonQuery: Connection property has not been initialized.