تقييم الموضوع :
  • 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() 


أساتذتي الكرام
Heart أبوعمر/ سعود/ممدوح الخطيب Heart
شكرا لكم
الرد }}}}
تم الشكر بواسطة:
#2
تم حل المشكلة والحمد الله

شكراً لكم جميعاً
أساتذتي الكرام
Heart أبوعمر/ سعود/ممدوح الخطيب Heart
شكرا لكم
الرد }}}}
تم الشكر بواسطة:
#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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  خطاء عند التعديل علي Checkbox السيد الجوهري 4 66 27-11-16, 04:10 PM
آخر رد: السيد الجوهري
Information [VB.NET] خطاء في الكرستال ريبورت عند تحويل قاعدة البيانات من اكسس إلى ميسكوال 3msoft 2 70 22-10-16, 11:49 PM
آخر رد: 3msoft
  خطاء عند أخذ نسخة احتياطية جميل علي 5 241 09-02-16, 11:48 PM
آخر رد: HASAN6.0
  زر ((النسخة الإحتياطية)) starosta 2 428 08-04-15, 06:03 PM
آخر رد: starosta
  خطاء في webkit layla2030 1 260 31-03-15, 10:03 AM
آخر رد: layla2030
  رسالة خطاء تظهر عند قراءة ملف نصي aftfm 8 798 30-10-14, 12:28 AM
آخر رد: Dev Saeed
  النسخة التجريبية الأولي لرؤية المميزات والعيوب علي2014 14 1,390 25-04-14, 04:56 PM
آخر رد: علي2014
  رسالة خطاء عند انشاء قاعدة بينات جديدة ali.alfoly 2 619 26-01-14, 09:28 PM
آخر رد: ali.alfoly
  حذف النسخ الاحتياطية سامى ابوسريع 2 302 11-08-13, 08:27 AM
آخر رد: سامى ابوسريع
  ظهور خطاء عند تشغيل ملف صوتى محمد 3 382 01-03-13, 11:39 PM
آخر رد: Aly El-Haddad

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


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