Backup & Restor ----> ديگه مشكلش حل شد

[sekhavat]

با سلام
اين كدها درسته و جواب مي ده
موفق باشيد سخاوت

Private Sub btnBackup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBackup.Click
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
End Sub
Private Sub btnRestor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRestor.Click
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 FillData() '-----> چè ¬ي§
'Call Bind()
Catch ex As Exception
MsgBox(" ¦لں §© ىëگںê ©گ¬¢ پ¬¢ï ںë ******* ----> " + ex.ToString, MsgBoxStyle.OkOnly, "¢ي¤ى")
End Try
End Sub