amirferdowsi
دوشنبه 17 دی 1386, 02:06 صبح
سلام خدمت تمامی دوستان
من برای BACKUP گرفتن و RESTORE کردن بانک اطلاعاتیم از کدهای زیر استفاده می کنم برای BACKUP گرفتن مشکلی ندارم ولی برای RESTORE کردن یک بار کد رو درست و کامل اجرا می کنه ولی بعد از اون پیغام خطای زیر رو نشان میده ، می خواستم اگه میشه در این زمینه من رو راهنمایی فرمائید .
پیشاپیش از زحمات و راهنمایی های شما تشکر می کنم.
کد BACKUP :
Dim Str_FileName As String
Str_FileName = FileDialog_Save.FileName
Dim Obj_SqlConnection As New SqlConnection
Obj_SqlConnection.ConnectionString = "User Id=sa;Password=;Database=Saman_DB;Data Source=local"
Dim Obj_SqlCommand As New SqlCommand
Obj_SqlConnection.Open()
Obj_SqlCommand.Connection = Obj_SqlConnection
Obj_SqlCommand.CommandText = "BACKUP DATABASE Saman_DB TO disk='" & Str_FileName & "' WITH PASSWORD='12345'"
Obj_SqlCommand.ExecuteNonQuery()
Obj_SqlConnection.Close()
کد RESTORE :
Dim Str_FileName As String
Str_FileName = FileDialog_Open.FileName
Dim Obj_SqlConnection As New SqlConnection
Obj_SqlConnection.ConnectionString = "User Id=sa;Password=;Database=Master;Data Source=local"
Dim Obj_SqlCommand As New SqlCommand
Obj_SqlCommand.CommandText = "USE MASTER"
Obj_SqlCommand.Connection = Obj_SqlConnection
Obj_SqlConnection.Open()
Obj_SqlCommand.ExecuteNonQuery()
Obj_SqlConnection.Close()
Dim Obj_SqlCommand1 As New SqlCommand
Obj_SqlCommand1.CommandText = "ALTER DATABASE Saman_DB SET OFFLINE WITH ROLLBACK IMMEDIATE"
Obj_SqlCommand1.Connection = Obj_SqlConnection
Obj_SqlConnection.Open()
Obj_SqlCommand1.ExecuteNonQuery()
Obj_SqlConnection.Close()
Dim Obj_SqlCommand2 As New SqlCommand
Obj_SqlCommand2.CommandText = "RESTORE DATABASE Saman_DB FROM DISK ='" & Str_FileName & "' with PASSWORD='12345'"
Obj_SqlCommand2.Connection = Obj_SqlConnection
Dim Obj_SqlDataAdapter As New SqlDataAdapter(Obj_SqlCommand2)
Obj_SqlConnection.Open()
Obj_SqlCommand2.ExecuteNonQuery()
Obj_SqlConnection.Close()
Dim Obj_SqlCommand3 As New SqlCommand
Obj_SqlCommand3.CommandText = "ALTER DATABASE Saman_DB SET ONLINE"
Obj_SqlCommand3.Connection = Obj_SqlConnection
Obj_SqlConnection.Open()
Obj_SqlCommand3.ExecuteNonQuery()
Obj_SqlConnection.Close()
اینم پیغام خطایی که میده :
13484
من برای BACKUP گرفتن و RESTORE کردن بانک اطلاعاتیم از کدهای زیر استفاده می کنم برای BACKUP گرفتن مشکلی ندارم ولی برای RESTORE کردن یک بار کد رو درست و کامل اجرا می کنه ولی بعد از اون پیغام خطای زیر رو نشان میده ، می خواستم اگه میشه در این زمینه من رو راهنمایی فرمائید .
پیشاپیش از زحمات و راهنمایی های شما تشکر می کنم.
کد BACKUP :
Dim Str_FileName As String
Str_FileName = FileDialog_Save.FileName
Dim Obj_SqlConnection As New SqlConnection
Obj_SqlConnection.ConnectionString = "User Id=sa;Password=;Database=Saman_DB;Data Source=local"
Dim Obj_SqlCommand As New SqlCommand
Obj_SqlConnection.Open()
Obj_SqlCommand.Connection = Obj_SqlConnection
Obj_SqlCommand.CommandText = "BACKUP DATABASE Saman_DB TO disk='" & Str_FileName & "' WITH PASSWORD='12345'"
Obj_SqlCommand.ExecuteNonQuery()
Obj_SqlConnection.Close()
کد RESTORE :
Dim Str_FileName As String
Str_FileName = FileDialog_Open.FileName
Dim Obj_SqlConnection As New SqlConnection
Obj_SqlConnection.ConnectionString = "User Id=sa;Password=;Database=Master;Data Source=local"
Dim Obj_SqlCommand As New SqlCommand
Obj_SqlCommand.CommandText = "USE MASTER"
Obj_SqlCommand.Connection = Obj_SqlConnection
Obj_SqlConnection.Open()
Obj_SqlCommand.ExecuteNonQuery()
Obj_SqlConnection.Close()
Dim Obj_SqlCommand1 As New SqlCommand
Obj_SqlCommand1.CommandText = "ALTER DATABASE Saman_DB SET OFFLINE WITH ROLLBACK IMMEDIATE"
Obj_SqlCommand1.Connection = Obj_SqlConnection
Obj_SqlConnection.Open()
Obj_SqlCommand1.ExecuteNonQuery()
Obj_SqlConnection.Close()
Dim Obj_SqlCommand2 As New SqlCommand
Obj_SqlCommand2.CommandText = "RESTORE DATABASE Saman_DB FROM DISK ='" & Str_FileName & "' with PASSWORD='12345'"
Obj_SqlCommand2.Connection = Obj_SqlConnection
Dim Obj_SqlDataAdapter As New SqlDataAdapter(Obj_SqlCommand2)
Obj_SqlConnection.Open()
Obj_SqlCommand2.ExecuteNonQuery()
Obj_SqlConnection.Close()
Dim Obj_SqlCommand3 As New SqlCommand
Obj_SqlCommand3.CommandText = "ALTER DATABASE Saman_DB SET ONLINE"
Obj_SqlCommand3.Connection = Obj_SqlConnection
Obj_SqlConnection.Open()
Obj_SqlCommand3.ExecuteNonQuery()
Obj_SqlConnection.Close()
اینم پیغام خطایی که میده :
13484