مشکل در کپی کردن بانک برنامه

[systam]

سلام
توی سایت زیادی گشتم کد های زیادی رو انتخاب کردم
نمیدونم چرا فایل کپی نمیشه خطا میده
فایلی که میخام کپی کنم بانک برنامه است با اینکه کانشکشن برنامه رو میبندم
بازم مشکل میگیره

عکس خطا رو ضمیمه کردم

[swallow.pa]

فايلهاي MDF رو كپي نمي كنن شما از دستورات BACKUP DATABASE استفاده كن

[asghar2008]

سلام

این پیغام نشون میده که فایل Database.Mdf توسط برنامه دیگر در حال استفاده هست .شما ابتدا باید فایل رو آزاد کنید بعد کپی نمایید.

در ضمن بهتره از بانک Backup بگیرید نه کپی !

[eshaghrahimy]

اگر خواستی بانک رو کپی کنی باید اونو یا take offlline یا detach کنی بعد میتونی ازش کپی بگیری

[shadi khanum]

یا باید backup بگیری یا ابتدا پایگاه رو Detach کنی بعد کپی کنی و بعد attach کنی

[farbod61]

سلام دوستان در مورد بکاپ گرفتن یه توضیحی میدید؟ چه جوری؟

[systam]

سلام من با این کد از برنامه بکاپ میگیرم مشکلی نداره
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

دوستان راهنمایی کنید مشکل کارکجایه خدا خیرتان بده


یا علی

[systam]

سلام توی این عکس قسمت که نوشه movi اون رو باید برای بازیابی و پشتیان باید بنوسیم
http://www.mssqltips.com/tipimages2/2168_image002.png