منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
النسخه الأحتياطيه للقاعده وأستراجعها - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : النسخه الأحتياطيه للقاعده وأستراجعها (/showthread.php?tid=13857)

النسخه الأحتياطيه للقاعده وأستراجعها - adel27 - 18-11-15

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

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

كود :
 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.

RE: النسخه الأحتياطيه للقاعده وأستراجعها - Adrees - 18-11-15

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

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) 


RE: النسخه الأحتياطيه للقاعده وأستراجعها - حريف برمجة - 18-11-15

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

RE: النسخه الأحتياطيه للقاعده وأستراجعها - adel27 - 18-11-15

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

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

RE: النسخه الأحتياطيه للقاعده وأستراجعها - adel27 - 18-11-15

كود :
  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, "تنبيـه إداري يجب قرائته")
هذا الكود اللي أضفته للجمله

RE: النسخه الأحتياطيه للقاعده وأستراجعها - Adrees - 18-11-15

(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, "تنبيـه إداري يجب قرائته")
هذا الكود اللي أضفته للجمله

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

RE: النسخه الأحتياطيه للقاعده وأستراجعها - adel27 - 17-01-16

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

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

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

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