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

كود :
On Error GoTo RestoreError
   Dim Ans
   Dialog.Filter = "Backup files (*.bck) |*.bck|"
   Dialog.ShowOpen
   If Dialog.FileName <> "" Then
       Ans = MsgBox("هل تريد استعادة قاعدة البيانات", vbExclamation + vbYesNo, " تنبيه" + UserName)
       If Ans = vbYes Then
         
           FileCopy Dialog.FileName, App.Path + "\data.MDB"
             MsgBox "تمت استعادة قاعدة البيانات بنجاح.", vbOKOnly + vbInformation, " استعادة قاعدة البيانات" + UserName
'
       End If
   End If
   Exit Sub
RestoreError:
 MsgBox Err.Description, vbOKOnly + vbCritical, " Warning:End-User" + UserName
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

اخي الكريم جرب ان تشغل البرنامج AS ADMINISTRATOR واذا بقيت المشكلة انسخ قاعدة البيانات على قرص اخر غير :C

والله اعلم

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}}
#3
وعليكم السلام ورحمة الله

اذا كنت متصل بفقاعدة البينات المراد حذفها لن تتمكن من حذفها

تاكد ان البرنامج نفسه غير متصل بقاعة البينات الاولى .
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد }}}}
#4
(30-01-17, 03:15 PM)abulayth كتب : السلام عليكم

اخي الكريم جرب ان تشغل البرنامج AS ADMINISTRATOR واذا بقيت المشكلة انسخ قاعدة البيانات على قرص اخر غير :C

والله اعلم

يعطيك العافية

وعليك السلام ورحمه الله وبركاته اخي الكريم شكرا لاهتمامك وردك وبارك الله فيك واسأل الله ان يجزيك عنا خير الجزاء
جربت اخي كريم وشغلته كامسؤل ونفس المشكلة قائمة انا مازلت لم اثبت البرنامج علي الجهاز يعني قاعدة البيانات غير موجودة في القرص c

(30-01-17, 03:33 PM)sendbad100 كتب : وعليكم السلام ورحمة الله

اذا كنت متصل بفقاعدة البينات المراد حذفها لن تتمكن من حذفها

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

وعليك السلام ورحمه الله وبركاته اخي الكريم شكرا لاهتمامك وردك وبارك الله فيك واسأل الله ان يجزيك عنا خير الجزاء

اخي الكريم فكرتك صحيحة لكن كيف اقطع الاتصال بقاعدة البيانات لو عندك الكود ممكن تعطيه لي
الرد }}}}
#5
انظر اسم كائن الاتصال في الاستعلام
في هذي الحاله الذي بعد لكمة dim
Dim DB As New ADODB.Connection

ثم نفذ الكود التالي قبل حذف قاعدة البينات
If DB.State = 1 Then DB.Close
ستحتاج ايضا اعادة الاتصال بعد اكمال الاسترجاع
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد }}}}
#6
(30-01-17, 03:59 PM)sendbad100 كتب : انظر اسم  كائن الاتصال في الاستعلام
في هذي الحاله الذي بعد لكمة dim
Dim DB As New ADODB.Connection

ثم نفذ الكود التالي  قبل حذف قاعدة البينات
If DB.State = 1 Then DB.Close
ستحتاج ايضا اعادة الاتصال بعد اكمال الاسترجاع

وعليك السلام ورحمه الله وبركاته اخي الكريم شكرا لاهتمامك وردك وبارك الله فيك واسأل الله ان يجزيك عنا خير الجزاء

تم تعديل الكود واشتغل تمام لكن كيف يمكن ان نعيد الاتصال بقاعدة البيانات
الرد }}}}
#7
(30-01-17, 04:06 PM)مبرمج جديد كتب :
(30-01-17, 03:59 PM)sendbad100 كتب : انظر اسم  كائن الاتصال في الاستعلام
في هذي الحاله الذي بعد لكمة dim
Dim DB As New ADODB.Connection

ثم نفذ الكود التالي  قبل حذف قاعدة البينات
If DB.State = 1 Then DB.Close
ستحتاج ايضا اعادة الاتصال بعد اكمال الاسترجاع

وعليك السلام ورحمه الله وبركاته اخي الكريم شكرا لاهتمامك وردك وبارك الله فيك واسأل الله ان يجزيك عنا خير الجزاء

تم تعديل الكود واشتغل تمام لكن كيف يمكن ان نعيد الاتصال بقاعدة البيانات

افضل انك تقوم باغلاق البرنامج  احسن في نهاية كود الاستعادة 
ضع الامر   End

كي يغلق البرنامج
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد }}}}
#8
(30-01-17, 04:13 PM)sendbad100 كتب :
(30-01-17, 04:06 PM)مبرمج جديد كتب :
(30-01-17, 03:59 PM)sendbad100 كتب : انظر اسم  كائن الاتصال في الاستعلام
في هذي الحاله الذي بعد لكمة dim
Dim DB As New ADODB.Connection

ثم نفذ الكود التالي  قبل حذف قاعدة البينات
If DB.State = 1 Then DB.Close
ستحتاج ايضا اعادة الاتصال بعد اكمال الاسترجاع

وعليك السلام ورحمه الله وبركاته اخي الكريم شكرا لاهتمامك وردك وبارك الله فيك واسأل الله ان يجزيك عنا خير الجزاء

تم تعديل الكود واشتغل تمام لكن كيف يمكن ان نعيد الاتصال بقاعدة البيانات

افضل انك تقوم باغلاق البرنامج  احسن في نهاية كود الاستعادة 
ضع الامر   End

كي يغلق البرنامج

بارك الله فيك اخي الكريم وجزاك كل خير تم تعديل الكود ولكن ليس بالامر end  ظفت كود الاتصال بعد كود الاستعادة
كود :
cn.Provider = "microsoft.Jet.oledb.4.0"
cn.Open App.Path & "\db1.mdb"
الرد }}}}
#9
بالتوفيق يالغالي
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب تعديل على مثال خاص بالليست فيو w123eg 1 36 20-01-18, 01:23 AM
آخر رد: w123eg
  مساعدة ضروري saharramadan 1 33 16-01-18, 10:21 PM
آخر رد: Amir_alzubidy
  تعديل مثال حفظ بيانات الحضور والغياب مصمم هاوي 1 58 13-01-18, 02:02 AM
آخر رد: مصمم هاوي
  مساعدة اريد ظهور جميع البيانات في القريد فلكسي khezzani 6 109 12-01-18, 08:06 PM
آخر رد: khezzani
  تعديل على المثال التالي للاتصال بقاعدة بيانات 2016 w123eg 6 122 07-01-18, 08:32 PM
آخر رد: awidan76
  هل من الممكن تعديل بيانات عدد من السجلات في الجدول دفعة واحدة كنونو 8 517 06-01-18, 01:30 PM
آخر رد: w123eg
  [vb6.0] طلب تعديل على المرفق لاظهار جدولين في ليست فيو واحد w123eg 6 146 20-12-17, 08:07 AM
آخر رد: w123eg
Information [vb6.0] هل يوجد طريقة اجعل الاستعلام يعرض جميع البيانات باسرع وقت ممكن ؟؟ Microformt 3 130 26-11-17, 12:02 PM
آخر رد: الاصيله
  [سؤال] مساعدة لوتكرمتم في صنع برنامج تخفيضات Visual Basic 8 125 17-11-17, 12:00 AM
آخر رد: Visual Basic
  مساعدة في البحث والجمع sulimanalahdl 4 129 10-11-17, 02:17 AM
آخر رد: sulimanalahdl

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


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