سلام سال نو بر همه دوستان مبارک
برای دیتابیس برنامه مورد نظرم از بک آپ و ریستور خواستم استفاده کنم و با کد زیر بک آپ میگیره ولی ریستور رو در طی 10 دفعه تست 6 بار خطا میده و 4 بار انجام میده اگه کد اشتباهه چرا بعضی وقتا
کار میکنه . جان کلام اینکه از مستر بودن و فعال بودن دیتابیس یه موقع هایی ایراد میگیره لطفا در صورت اطلاع پاسخ بفرمایید ممنون
Private Sub btnBackUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBackUp.Click
Dim save1 As New SaveFileDialog
'save1.DefaultExt = "Bak"
save1.Filter = "SQL Backup Files (*.BAK)|*.BAK |All Files(*.*)|*.0*)"
save1.FileName = "DB_Art"
save1.OverwritePrompt = True
save1.FilterIndex = 1
Dim str As String = "\DB_Art.mdf"
If save1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim con1 As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\DB_Art.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
con1.Open()
Dim cmd1 As New SqlCommand()
SqlConnection.ClearAllPools()
cmd1.Connection = con1
str_path = save1.FileName.ToString
cmd1.CommandType = CommandType.Text
con1.ChangeDatabase("master")
cmd1.CommandText = "backup DATABASE [" + System.Windows.Forms.Application.StartupPath & str + "] to DISK = N'" + save1.FileName.ToString + " '"
cmd1.ExecuteNonQuery()
con1.Close()
End If
End Sub
Public Shared str_path As String = ""
Private Sub btnRestore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRestore.Click
Dim Open1 As New OpenFileDialog
'Open1.DefaultExt = "Bak"
'Open1.Filter = "SQL Backup Files (*.BAK)|*.BAK |All Files(*.*)|*.0*)"
Open1.FileName = "DB_Art"
Open1.FilterIndex = 1
If Open1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim str As String = "\DB_Art.mdf"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\DB_Art.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
con.Open()
Dim cmd As New SqlCommand()
SqlConnection.ClearAllPools()
cmd.Connection = con
cmd.CommandType = CommandType.Text
con.ChangeDatabase("master")
cmd.CommandText = "USE MASTER RESTORE DATABASE [" + System.Windows.Forms.Application.StartupPath & str + "] FROM DISK = N'" + Open1.FileName.ToString + " '"
cmd.ExecuteNonQuery()
con.Close()
End If
End Sub
این هم عکس ارورش ممنون از توجه شما
ضمیمه 144888
