View Full Version : مشكل در پشتيبان گيري
mohsenm66
دوشنبه 31 خرداد 1389, 13:17 عصر
من براي پشتيبان گيري از ديتابيس دستور زير استفاده كرده ام ولي با خطا مواجه شده ام . ميشه بگيد اشكال از كجاست .
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
دوشنبه 31 خرداد 1389, 13:34 عصر
این برای پشتیبان گیری
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
جمعه 07 مهر 1391, 16:22 عصر
سلام ...
من از این کد استفاده کردم و کد قبلیمو تصحیح کردم و در پشتیبان گیری مشکلم حل شد ولی در بازگرداندن پشتیبان این ارورو میده
ExecuteNonQuery: Connection property has not been initialized.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.