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

أسعد الله صباحكم بكل خير 

أخواني انا أعمل على برنامج بلغة الفيجوال البيسك ووصلت مرحلة متقدمة

تبقى لي عمل نسخة أحتياطية للقاعدة وأستخدمت هذا الكود الظاهر لكم بالاسفل ولكن يظهري لي الخطاء الواضح امامكم 

أتمنى مساعدتي في عمل النسخة الاحتياطية وان أستطعتم وضع كود لعملية الاسترجاع أيضا.

علماً اني أستخدم قاعدة بيانات اكسس 2007


وشاكر ومقدر جهودكم


PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        Dim sv 
As SaveFileDialog SaveFileDialog1
        sv
.Filter "bak fil (*.Bak) |*.bak"
 
       If (sv.ShowDialog) = Windows.Forms.DialogResult.OK Then
        End 
If
 
       Dim cmd = New OleDbCommand("Backup Database swcc To Disk='" sv.FileName "'"co)
 
       co.Open()
 
       cmd.ExecuteNonQuery()
 
       co.Close() 


اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة
 
الرد }}}}
تم الشكر بواسطة:
#2
تم حل المشكلة والحمد الله

شكراً لكم جميعاً
اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة
 
الرد }}}}
تم الشكر بواسطة:
#3
الطريقة الافضل فى قاعدة بيانات Access هيا نسخ قاعدة البيانات وليس استخدام T-SQL

هذا الكود الصحيح كل الى هتعملة انك هتضيف مسار قاعدة البيانات الاصلى , ومسار حفظ قاعدة اليانات الجديدة



كود :
   Using saveDialog As New SaveFileDialog()
       saveDialog.CheckFileExists = False
       saveDialog.CheckPathExists = True
       saveDialog.FileName = Date.Now.ToString("yyyyMMdd") & ".mdb"
       saveDialog.Filter = "Microsoft Access Database (*.mdb)|*.mdb"
       saveDialog.RestoreDirectory = True

       If openDialog.ShowDialog() = Windows.Forms.DialogResult.OK AndAlso saveDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
           If File.Exists(openDialog.FileName) Then
               File.Copy(openDialog.FileName, saveDialog.FileName)
           End If
       End If
   End Using

-----------------------
Software Developer

Microsoft Partner

الرد }}}}
تم الشكر بواسطة: عدنان الشمري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  يظهر خطاء بعد تنصيب البرنامج ساعدوني samawi 5 274 15-05-17, 04:08 AM
آخر رد: samawi
  خطاء عند التعديل علي Checkbox السيد الجوهري 4 334 27-11-16, 04:10 PM
آخر رد: السيد الجوهري
Information [VB.NET] خطاء في الكرستال ريبورت عند تحويل قاعدة البيانات من اكسس إلى ميسكوال 3msoft 2 344 22-10-16, 11:49 PM
آخر رد: 3msoft
  خطاء عند أخذ نسخة احتياطية جميل علي 5 444 09-02-16, 11:48 PM
آخر رد: HASAN6.0
  زر ((النسخة الإحتياطية)) starosta 2 613 08-04-15, 06:03 PM
آخر رد: starosta
  خطاء في webkit layla2030 1 430 31-03-15, 10:03 AM
آخر رد: layla2030
  رسالة خطاء تظهر عند قراءة ملف نصي aftfm 8 1,281 30-10-14, 12:28 AM
آخر رد: Dev Saeed
  النسخة التجريبية الأولي لرؤية المميزات والعيوب علي2014 14 1,744 25-04-14, 04:56 PM
آخر رد: علي2014
  رسالة خطاء عند انشاء قاعدة بينات جديدة ali.alfoly 2 858 26-01-14, 09:28 PM
آخر رد: ali.alfoly
  حذف النسخ الاحتياطية سامى ابوسريع 2 449 11-08-13, 08:27 AM
آخر رد: سامى ابوسريع

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


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