تقييم الموضوع :
  • 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 159 27-11-16, 04:10 PM
آخر رد: السيد الجوهري
Information [VB.NET] خطاء في الكرستال ريبورت عند تحويل قاعدة البيانات من اكسس إلى ميسكوال 3msoft 2 157 22-10-16, 11:49 PM
آخر رد: 3msoft
  خطاء عند أخذ نسخة احتياطية جميل علي 5 298 09-02-16, 11:48 PM
آخر رد: HASAN6.0
  زر ((النسخة الإحتياطية)) starosta 2 488 08-04-15, 06:03 PM
آخر رد: starosta
  خطاء في webkit layla2030 1 322 31-03-15, 10:03 AM
آخر رد: layla2030
  رسالة خطاء تظهر عند قراءة ملف نصي aftfm 8 931 30-10-14, 12:28 AM
آخر رد: Dev Saeed
  النسخة التجريبية الأولي لرؤية المميزات والعيوب علي2014 14 1,502 25-04-14, 04:56 PM
آخر رد: علي2014
  رسالة خطاء عند انشاء قاعدة بينات جديدة ali.alfoly 2 666 26-01-14, 09:28 PM
آخر رد: ali.alfoly
  حذف النسخ الاحتياطية سامى ابوسريع 2 324 11-08-13, 08:27 AM
آخر رد: سامى ابوسريع
  ظهور خطاء عند تشغيل ملف صوتى محمد 3 412 01-03-13, 11:39 PM
آخر رد: Aly El-Haddad

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


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