تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
النسخه الأحتياطيه للقاعده وأستراجعها
#1
المشكله لدي في الأسترجاع فقط 

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

كود :
 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.
الرد }}}}
تم الشكر بواسطة: الضمير المستتر
#2
ضع كود استرجاع النسخة كالتالي

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
الرد }}}}
تم الشكر بواسطة: الضمير المستتر
#3
يجب ان تغلق اتصالك بقاعدة البيانات المراد استرجاعها .
الرد }}}}
تم الشكر بواسطة: الضمير المستتر
#4
عرفت متغيـر أخر COON MASTR

وظهر لي هذا الخطأ
Exclusive access could not be obtained because the database is in use.
RESTORE DATABASE is terminating abnormally.
الرد }}}}
تم الشكر بواسطة: الضمير المستتر
#5
كود :
  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, "تنبيـه إداري يجب قرائته")
هذا الكود اللي أضفته للجمله
الرد }}}}
تم الشكر بواسطة: الضمير المستتر
#6
(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, "تنبيـه إداري يجب قرائته")
هذا الكود اللي أضفته للجمله

هل جربت الكود الذي كتبته اعلاه فهو يعمل دون مشاكل ؟
الرد }}}}
تم الشكر بواسطة: الضمير المستتر
#7
ممكن مســاعده في التعديل على هذا البرنامج 

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

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

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


الملفات المرفقة
.zip   مثـال النسخه.zip (الحجم : 315.44 ك ب / التحميلات : 43)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] حول برمجة برنامج عرض وادخال للقاعده binladen 10 2,000 28-10-13, 07:35 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم