headphone
شنبه 25 خرداد 1387, 22:23 عصر
سلام به دوستان :
من براي ذخيره نسخه پشتيبان از بانك اطلاعاتي برنامم از كد زير استفاده كردم كه يك فايل با پسوند .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
من براي ذخيره نسخه پشتيبان از بانك اطلاعاتي برنامم از كد زير استفاده كردم كه يك فايل با پسوند .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