BackUp و Restore کردن دیتابیس sql

[milad9704]

:بوس::بوس:سلام به تمام اساتید عزیز:بوس::بوس:
دست همتون درد نکنه
اگه ممکنه نحوه BackUp و Restore کردن دیتابیس sql رو بهم بگین
مطالب تاپیک های دیگه رو هم دیدم ولی نتونستم ازشون استفاده کنم آخه تازه کار هستم
اگه ممکنه به این برنامه backup , Restore کردن رو اضافه کنید
آخه خیلی لازمش دارم
:قلب:ممنون میشم:قلب:

[sekhavat]

Try
Dim str As String
Dim dir As New SaveFileDialog
dir.Filter = "All File|*.bak"
dir.Title = " ... ê«ی©ی ©ں ¤ى¢ ¨¦ی©ى هںیé پ¬¢ی ںë ں뢦ں کëی§"
If dir.ShowDialog = Windows.Forms.DialogResult.OK Then
str = dir.FileName
MsgBox("Save Backup = " + str, MsgBoxStyle.OkOnly, "¨¦ی•••••©ى ¬•••••••ي§؟ ê«ï© هںïé پ¬¢ï ںë")
Else
Exit Sub
End If
Dim cmdBackup As New SqlCommand("BACKUP DATABASE @name TO DISK = N'" + str + "' WITH NOFORMAT, NOINIT,SKIP, NOREWIND, NOUNLOAD, STATS = 10", Connection)
cmdBackup.Parameters.Clear()
cmdBackup.Parameters.AddWithValue("@name", My.Application.Info.DirectoryPath + "\DataBase.mdf")
If Connection.State = ConnectionState.Closed Then
Connection.Open()
End If
cmdBackup.ExecuteNonQuery()
Connection.Close()
Catch ex As Exception
MsgBox("¦لں §© ىëگںê پ¬¢ï ںë گï©ï *********** ----> " + ex.ToString, MsgBoxStyle.OkOnly, "¢ي¤ى")
End Try
**********************************************
Try
Dim str As String
Dim dir As New OpenFileDialog
dir.Filter = "All File|*.bak"
dir.Title = " *** هںیé پ¬¢ی ںë ©ں ں뢦ں کëی§ ***"
If dir.ShowDialog = Windows.Forms.DialogResult.OK Then
str = dir.FileName
'MsgBox("Restor Backup = " + str)
Else
Exit Sub
End If
Dim cmdRestor As New SqlCommand("use master RESTORE DATABASE @name FROM DISK = N'" + str + "'", Connection)
cmdRestor.Parameters.Clear()
cmdRestor.Parameters.AddWithValue("@name", My.Application.Info.DirectoryPath + "\DataBase.mdf")
If Connection.State = ConnectionState.Closed Then
Connection.Open()
End If
cmdRestor.ExecuteNonQuery()
Connection.Close()
'Call Bind()
Catch ex As Exception
MsgBox(" ¦لں §© ىëگںê ©گ¬¢ پ¬¢ï ںë ******* ----> " + ex.ToString, MsgBoxStyle.OkOnly, "¢ي¤ى")
End Try

موفق باشيد
علي سخاوت mr.sekhavat@yahoo.com