المشاركات : 19
المواضيع 5
الإنتساب : Apr 2015
السمعة :
1
الشكر: 22
تم شكره 31 مرات في 13 مشاركات
السلام عليكم اخوتي الاعزاء
انا صممت برنامج وعملت فيه زر للنسخ الاحتياطي وزر لاستعادة قاعدة البيانات
النسخ الاحتياطي اشتغل تمام لكن في الاستعادة واجهتني مشكلة وهي ان الكود ليس من صلاحياته ان يحذف الملف القديم ويستبدله بالملف الجديد المطلوب استعادته
انا قلت مالي الا اخوتي المبرجين في المنتدي اصحاب الخبرات واللي من بعد الله بفضلهم استطعت التغلب علي كثير من المشاكل التي واجهتني في البرمجه
كود :
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
المشاركات : 1,379
المواضيع 77
الإنتساب : Sep 2012
السمعة :
180
الشكر: 7891
تم شكره 14093 مرات في 904 مشاركات
السلام عليكم
اخي الكريم جرب ان تشغل البرنامج AS ADMINISTRATOR واذا بقيت المشكلة انسخ قاعدة البيانات على قرص اخر غير :C
والله اعلم
يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))
المشاركات : 1,545
المواضيع 33
الإنتساب : Jul 2016
السمعة :
255
الشكر: 6532
تم شكره 4339 مرات في 1696 مشاركات
وعليكم السلام ورحمة الله
اذا كنت متصل بفقاعدة البينات المراد حذفها لن تتمكن من حذفها
تاكد ان البرنامج نفسه غير متصل بقاعة البينات الاولى .
المشاركات : 19
المواضيع 5
الإنتساب : Apr 2015
السمعة :
1
الشكر: 22
تم شكره 31 مرات في 13 مشاركات
30-01-17, 03:43 PM
(آخر تعديل لهذه المشاركة : 30-01-17, 03:46 PM {2} بواسطة مبرمج جديد.)
(30-01-17, 03:15 PM)abulayth كتب : السلام عليكم
اخي الكريم جرب ان تشغل البرنامج AS ADMINISTRATOR واذا بقيت المشكلة انسخ قاعدة البيانات على قرص اخر غير :C
والله اعلم
يعطيك العافية
وعليك السلام ورحمه الله وبركاته اخي الكريم شكرا لاهتمامك وردك وبارك الله فيك واسأل الله ان يجزيك عنا خير الجزاء
جربت اخي كريم وشغلته كامسؤل ونفس المشكلة قائمة انا مازلت لم اثبت البرنامج علي الجهاز يعني قاعدة البيانات غير موجودة في القرص c
(30-01-17, 03:33 PM)sendbad100 كتب : وعليكم السلام ورحمة الله
اذا كنت متصل بفقاعدة البينات المراد حذفها لن تتمكن من حذفها
تاكد ان البرنامج نفسه غير متصل بقاعة البينات الاولى .
وعليك السلام ورحمه الله وبركاته اخي الكريم شكرا لاهتمامك وردك وبارك الله فيك واسأل الله ان يجزيك عنا خير الجزاء
اخي الكريم فكرتك صحيحة لكن كيف اقطع الاتصال بقاعدة البيانات لو عندك الكود ممكن تعطيه لي
المشاركات : 1,545
المواضيع 33
الإنتساب : Jul 2016
السمعة :
255
الشكر: 6532
تم شكره 4339 مرات في 1696 مشاركات
انظر اسم كائن الاتصال في الاستعلام
في هذي الحاله الذي بعد لكمة dim
Dim DB As New ADODB.Connection
ثم نفذ الكود التالي قبل حذف قاعدة البينات
If DB.State = 1 Then DB.Close
ستحتاج ايضا اعادة الاتصال بعد اكمال الاسترجاع
المشاركات : 19
المواضيع 5
الإنتساب : Apr 2015
السمعة :
1
الشكر: 22
تم شكره 31 مرات في 13 مشاركات
(30-01-17, 03:59 PM)sendbad100 كتب : انظر اسم كائن الاتصال في الاستعلام
في هذي الحاله الذي بعد لكمة dim
Dim DB As New ADODB.Connection
ثم نفذ الكود التالي قبل حذف قاعدة البينات
If DB.State = 1 Then DB.Close
ستحتاج ايضا اعادة الاتصال بعد اكمال الاسترجاع
وعليك السلام ورحمه الله وبركاته اخي الكريم شكرا لاهتمامك وردك وبارك الله فيك واسأل الله ان يجزيك عنا خير الجزاء
تم تعديل الكود واشتغل تمام لكن كيف يمكن ان نعيد الاتصال بقاعدة البيانات
المشاركات : 1,545
المواضيع 33
الإنتساب : Jul 2016
السمعة :
255
الشكر: 6532
تم شكره 4339 مرات في 1696 مشاركات
30-01-17, 04:13 PM
(آخر تعديل لهذه المشاركة : 30-01-17, 05:18 PM {2} بواسطة 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
كي يغلق البرنامج
المشاركات : 19
المواضيع 5
الإنتساب : Apr 2015
السمعة :
1
الشكر: 22
تم شكره 31 مرات في 13 مشاركات
(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"
المشاركات : 1,545
المواضيع 33
الإنتساب : Jul 2016
السمعة :
255
الشكر: 6532
تم شكره 4339 مرات في 1696 مشاركات
|