نحوه بازيابي نسخه پشتيبان بانك اطلاعاتي

[headphone]

سلام به دوستان :
من براي ذخيره نسخه پشتيبان از بانك اطلاعاتي برنامم از كد زير استفاده كردم كه يك فايل با پسوند .bak براي من مي سازد . حالا ميخوام اون نسخه پشتيبان را بازيابي كنم چطوري مي شه اين كار رو كرد :


With savefiledialog1
.InitialDirectory = "C:\"
.FileName = "Databasebackup"
EndWith
If savefiledialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim path() AsString = Split(savefiledialog1.FileName, "\")
If path(1) = "Documents and Settings"Then
dialogBox.Label1.Text = "ذخيره نسخه پشتيبان در شاخه Documents and Settings و زير شاخه هاي آن ممكن نيست. به شما پيشنهاد مي شود از درايوهاي ديگر جهت ذخيره سازي استفاده كنيد."
dialogBox.Play_Err_sound()
dialogBox.ShowDialog()
Else
server = New SQLDMO.SQLServer2Class
backup = New SQLDMO.Backup2Class
backupevents = backup
server.LoginSecure = True
server.Connect("(LOCAL)", "sa")
Console.WriteLine("server{0}", server.Name)
database = server.Databases.Item("Financial Institution")
backup.Database = database.Name
backup.Files = savefiledialog1.FileName & "" & ".bak"
backup.SQLBackup(server)
server.DisConnect()
backupevents = Nothing
backup = Nothing
server = Nothing
dialogBox.Label1.Text = "نسخه پشتيبان با موفقيت ذخيره شد"
dialogBox.Play_Info_sound()
dialogBox.ShowDialog()
EndIf
EndIf

[combo_ci]

تو برگرداندن فايل backup بايد در نظر داشته باشي كه اووون database در حال استفاده يا in use نباشه....تو همسن تالار جستجو كن....كد كاملش هست

[parsavb]

می تونی از این روش استفاده کنی
ابتدا کامپوننت microsoft sqldmo object library 8.5 رو به پروژه خودتون اضافه کنید



PublicClass frm_database
Dim server As SQLDMO.SQLServer2Class
Dim database As SQLDMO.Database2
Dim restor As SQLDMO.Restore2

PrivateSub btn_restor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_restor.Click

server = New SQLDMO.SQLServer2Class
restor = New SQLDMO.Restore2

server.LoginSecure = True
server.Connect("(local)")

MsgBox("server{0}:" + server.Name)database = server.Databases.Item("nortwind")
MsgBox("database{0}:" + database.Name)
restor.Database = database.Name


restor.Files = "c:\nortwind.bak"
restor.SQLRestore(server)
server.DisConnect()
restor = Nothing
server = Nothing

MsgBox("اطلاعات بازگردانده شد")
EndSub
EndClass


این برنامه رو هم چند روز پیش گذاشته بودم حالا کاملترش کردم ببین به دردت می خوره

[HAMRAHSOFT.IR]

می تونی از این روش استفاده کنی
ابتدا کامپوننت microsoft sqldmo object library 8.5 رو به پروژه خودتون اضافه کنید



PublicClass frm_database
Dim server As SQLDMO.SQLServer2Class
Dim database As SQLDMO.Database2
Dim restor As SQLDMO.Restore2

PrivateSub btn_restor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_restor.Click

server = New SQLDMO.SQLServer2Class
restor = New SQLDMO.Restore2

server.LoginSecure = True
server.Connect("(local)")

MsgBox("server{0}:" + server.Name)database = server.Databases.Item("nortwind")
MsgBox("database{0}:" + database.Name)
restor.Database = database.Name


restor.Files = "c:\nortwind.bak"
restor.SQLRestore(server)
server.DisConnect()
restor = Nothing
server = Nothing

MsgBox("اطلاعات بازگردانده شد")
EndSub
EndClass

این برنامه رو هم چند روز پیش گذاشته بودم حالا کاملترش کردم ببین به دردت می خوره


برنامه خطا ميده هنگام اجرا

[maXXis]

کامپوننت microsoft sqldmo object library 8.5 رو به برنامه اضافه کردی؟:متفکر:

[HAMRAHSOFT.IR]

چطوری انکار بکنم من تازه کارم داخل این زبان

[omid_reza]

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Try
sqlcom = New SqlCommand
sqlcon = New SqlConnection
sqlcon.ConnectionString = strsqlconConvertfarzin
sqlcon.ConnectionString = "Data Source=" + T_SQLSErNameFArzin.Text + ";Initial Catalog=master;Integrated Security=True"
If sqlcon.State = ConnectionState.Closed Then
sqlcon.Open()
End If
sqlcom.Connection = sqlcon
sqlcom.CommandText = "RESTORE DATABASE [convert barid] FROM DISK = @Address WITH FILE = 1, NOUNLOAD, REPLACE, STATS = 10"
''''''''''''''''''''''''''''''''''''''''''''
Dim Param1 As New SqlParameter
Param1.Direction = ParameterDirection.Input
Param1.DbType = DbType.String
Param1.ParameterName = "@Address"
Param1.Value = T_AddressBackup.Text
sqlcom.Parameters.Add(Param1)
''''''''''''''''''''''''''''''''''''''''''''
sqlcom.ExecuteNonQuery()
MsgBox("OK")
If sqlcon.State = ConnectionState.Open Then
sqlcon.Close()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

[sh2007]

وقتي داري بازيابي مي كني اگه جدولها use باشند ارور ميده