[adel27]

المشكله لدي في الأسترجاع فقط 

سأضع كوود النسخه للفائده 

كود :

 Dim cmd As New SqlCommand("backup database COP_DA to disk = 'C:\Users\COP_DA_BAUK.bak' with init, format", conn)
       conn.Open()
       cmd.ExecuteNonQuery()
       conn.Close()
       MsgBox("تم أنشـاء نسخة أحتياطيه لقاعدة البيانات", MsgBoxStyle.Exclamation, "تنبيـه إداري يجب قرائته")
   

وهذا كود الأسترجاع اللي فيه المشكله 

كود :

 Dim cmd As New SqlCommand("Restore database COP_DA From disk = 'C:\Users\COP_DA_BAUK.bak' with Replace,recovery", conn)
       conn.Open()
       cmd.ExecuteNonQuery()
       conn.Close()
       MsgBox("تم أستعاده النسخه", MsgBoxStyle.Exclamation, "تنبيـه إداري يجب قرائته")

هذه رســالة الخطأ 
RESTORE cannot process database 'COP_DA' because it is in use by this session. It is recommended that the master database be used when performing this operation.

RESTORE DATABASE is terminating abnormally.

[Adrees]

ضع كود استرجاع النسخة كالتالي

PHP كود :

Dim cmd As New SqlCommand("Alter Database COP_DA set offline with Rollback Immediate; Restore database COP_DA From disk = 'C:\Users\COP_DA_BAUK.bak' with Replace,recovery", conn) 


[حريف برمجة]

يجب ان تغلق اتصالك بقاعدة البيانات المراد استرجاعها .

[adel27]

عرفت متغيـر أخر COON MASTR

وظهر لي هذا الخطأ
Exclusive access could not be obtained because the database is in use.
RESTORE DATABASE is terminating abnormally.

[adel27]

كود :

  Dim conn_Re As New SqlConnection("Data Source=MADX;Initial Catalog=Master; Integrated Security=True")
       Dim cmd As New SqlCommand("Restore database COP_DA From disk = 'C:\Users\COP_DA_BAUK.bak' with Replace, recovery", conn_Re)
       conn_Re.Open()
       cmd.ExecuteNonQuery()
       conn_Re.Close()
       MsgBox("تم أستعاده النسخه", MsgBoxStyle.Exclamation, "تنبيـه إداري يجب قرائته")

هذا الكود اللي أضفته للجمله

[Adrees]

(18-11-15, 12:08 PM)adel27 كتب :

كود :

  Dim conn_Re As New SqlConnection("Data Source=MADX;Initial Catalog=Master; Integrated Security=True")
       Dim cmd As New SqlCommand("Restore database COP_DA From disk = 'C:\Users\COP_DA_BAUK.bak' with Replace, recovery", conn_Re)
       conn_Re.Open()
       cmd.ExecuteNonQuery()
       conn_Re.Close()
       MsgBox("تم أستعاده النسخه", MsgBoxStyle.Exclamation, "تنبيـه إداري يجب قرائته")

هذا الكود اللي أضفته للجمله

هل جربت الكود الذي كتبته اعلاه فهو يعمل دون مشاكل ؟

[adel27]

ممكن مســاعده في التعديل على هذا البرنامج 

أرسله لي أحد الأحبه بصراحه برنامج رائع ولكن يحتاج لتعديـل 

طبعاً هذا يكون فيه تحديث ونسخ 

أنا أحتاج يكون فيه تديث ونسخ وأسترجاع ويعتبر هذا المثال من الأمثله المهم