systam
شنبه 29 تیر 1392, 14:26 عصر
سلام من با این کد از برنامه بکاپ میگیرم مشکلی نداره
Dim save1 As New SaveFileDialog
'save1.DefaultExt = "Bak"
save1.Filter = "SQL Backup Files (*.BAK)|*.BAK |All Files(*.*)|*.0*)"
save1.FileName = "Database"
save1.OverwritePrompt = True
'save1.FilterIndex = 1
If save1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim str As String = "\Database.mdf"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
con.Open()
Dim cmd As New SqlCommand()
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = "USE master backup database [" + System.Windows.Forms.Application.StartupPath & str + "] to disk = '" + save1.FileName.ToString + "'"
'con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("نسخه پشتیبان با موفقیت تهیه گردید")
End If
و لی برای بازیابی با این کد هر کار میکنم نمیدونم چیه سایت برنامه نویس رو زیرو کردم هر کدی رو بکی امتحان کردم نشد
Dim Open1 As New OpenFileDialog
'Open1.DefaultExt = "Bak"
'Open1.Filter = "SQL Backup Files (*.BAK)|*.BAK |All Files(*.*)|*.0*)"
Open1.FileName = "Database"
Open1.FilterIndex = 1
If Open1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim str As String = "\Database.mdf"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
con.Open()
Dim cmd As New SqlCommand()
cmd.Connection = con
cmd.CommandType = CommandType.Text
'cmd.CommandText = "USE [master] RESTORE DATABASE [" + System.Windows.Forms.Application.StartupPath & str + "] from disk = '" + Open1.FileName.ToString + "'"
cmd.CommandText = "USE MASTER RESTORE DATABASE [" + System.Windows.Forms.Application.StartupPath & str + "] FROM DISK = N'" + Open1.FileName.ToString + " '"
'con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("بازیابی با موفقیت انجامبد")
Form1_Load(e, sender)
End If
دوستان راهنمایی کنید مشکل کارکجایه خدا خیرتان بده
یا علی
Dim save1 As New SaveFileDialog
'save1.DefaultExt = "Bak"
save1.Filter = "SQL Backup Files (*.BAK)|*.BAK |All Files(*.*)|*.0*)"
save1.FileName = "Database"
save1.OverwritePrompt = True
'save1.FilterIndex = 1
If save1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim str As String = "\Database.mdf"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
con.Open()
Dim cmd As New SqlCommand()
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = "USE master backup database [" + System.Windows.Forms.Application.StartupPath & str + "] to disk = '" + save1.FileName.ToString + "'"
'con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("نسخه پشتیبان با موفقیت تهیه گردید")
End If
و لی برای بازیابی با این کد هر کار میکنم نمیدونم چیه سایت برنامه نویس رو زیرو کردم هر کدی رو بکی امتحان کردم نشد
Dim Open1 As New OpenFileDialog
'Open1.DefaultExt = "Bak"
'Open1.Filter = "SQL Backup Files (*.BAK)|*.BAK |All Files(*.*)|*.0*)"
Open1.FileName = "Database"
Open1.FilterIndex = 1
If Open1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim str As String = "\Database.mdf"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
con.Open()
Dim cmd As New SqlCommand()
cmd.Connection = con
cmd.CommandType = CommandType.Text
'cmd.CommandText = "USE [master] RESTORE DATABASE [" + System.Windows.Forms.Application.StartupPath & str + "] from disk = '" + Open1.FileName.ToString + "'"
cmd.CommandText = "USE MASTER RESTORE DATABASE [" + System.Windows.Forms.Application.StartupPath & str + "] FROM DISK = N'" + Open1.FileName.ToString + " '"
'con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("بازیابی با موفقیت انجامبد")
Form1_Load(e, sender)
End If
دوستان راهنمایی کنید مشکل کارکجایه خدا خیرتان بده
یا علی