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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  يوجد خطاء عند تحميل الفورم - مثال شجرة الحسابات new_programer 6 756 11-06-23, 06:47 PM
آخر رد: new_programer
  يوجد خطاء عند فتح الفورم مثال شجرة الحسابات new_programer 2 564 06-06-23, 02:41 PM
آخر رد: new_programer
  [VB.NET] خطاء فى كود dynamic asdfar1977 9 895 21-05-23, 06:01 PM
آخر رد: magdyelsedawy
  منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله معاذ_ابراهيم 7 3,360 29-03-23, 08:11 AM
آخر رد: عبدالله الدوسري
Rainbow [كود] رساله خطاء لملف اكسس مرتبط بفيجوال دوت نت. محمد مسافر 5 674 23-11-22, 12:16 PM
آخر رد: Jounior_P
  خطاء في كود السورس اريد التعديل عليه wolf1120 1 538 10-11-22, 05:20 PM
آخر رد: عبدالله الدوسري
  [سؤال] خطاء كيرلس رفعت 0 648 06-06-22, 04:51 PM
آخر رد: كيرلس رفعت
Wink خطاء عند التشغيل moahmed.abdelmohsen 3 1,217 04-12-20, 10:18 PM
آخر رد: moahmed.abdelmohsen
  أفضل مثال في عمل النسخة الاحتياطية باقي له خطوة بس ويكتمل المهنا 13 3,382 01-08-20, 12:27 AM
آخر رد: atefkhalf2004
  [VB.NET] سؤال بخصوص الكود تبع النسخة التجريبية 0theghost0 1 1,249 03-02-20, 03:25 PM
آخر رد: asemshahen5

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


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