تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] ضغط وإصلاح قواعد البيانات ( Access mdb & Access accdb )
#1
Thumbs Up 








هذا المثال يقوم بضغط وإصلاح قواعد البيانات ذات إمتداد mdb مثل إصدار Access 2003 وإمتداد accdb مثل إصدار
Access 2007








لقطات من المثال

( 1 )



( 2 )



( 3 )



( 4 )







رابط التحميل









اتمنى ان يكون قد استفدتم من هذا المثال






أخوكم





تم رفع المرفقات الى سيرفر المنتدى



.zip   Compact Access Database.zip (الحجم : 1.4 م ب / التحميلات : 1,131)
Big Grin
<---------------------------------------------------------------->

الرد }}}
#2
السلام عليكم ورحمة الله وبركاته

ما شاء الله لا قوة إلا بالله
رائع وجميل جدا

مرحبا بعودتك أخي الكريم بصراحة افتقدناك كثيرا
أسأل الله لك التوفيق والنجاح
الرد }}}
تم الشكر بواسطة: aftfm , مبرمج بلا حدود
#3
أجمعين آمين

الله يسلمكـ
الرد }}}
تم الشكر بواسطة:
#4
Rolleyes
الرد }}}
تم الشكر بواسطة:
#5
(06-01-14, 12:31 PM)حسن الاهدل كتب : Rolleyes

Confused
Big Grin
<---------------------------------------------------------------->

الرد }}}
تم الشكر بواسطة:
#6
شكراً جزيلاً

الأخوة الكرام :
آمل المساعدة بعد عمل ضغط وإصلاح لملف أكسس 2010 لم يفتح مرة ثانية فهل هناك طريقة للاستعادة الملف ..
ولكم جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#7
شكراً على هذا المثال
لاكنه لايعمل على قاعدة البيانات 2007 لا المرفقة مع المثال ولا التي لدي يبدو ا المشكله لانهو لدي مايكروسوفت اوفس 2010 حيث لايستطيع الربط على قاعدة البيانات
اذا امكن تصحيح الخطأ لاني محتاج الى هذا الكود جداً
الرد }}}
تم الشكر بواسطة:
#8
تم حل المشكلة التي ظهرت لدي وهي ان البرنامج المرفق من حظرتك لايستطيع الاتصال بقاعدة البيانات من نوع 2007 او 2010  حيث قمت باستبدال الجزء التالي provider=microsoft.ace.oledb.12.0; ليصبح provider=microsoft.Jet.oledb.4.0; التي توجد في جملة الربط بقاعدة البيانات لتكون الداله بالشكل التالي

PHP كود :
     Function Access_2007(ByVal FileNameMD As StringByVal PasswordMD As String)
 
           Try
                  Dim Engine 
CreateObject("JRO.JetEngine")
 
                 Engine.CompactDatabase("provider=microsoft.Jet.oledb.4.0;Data Source=" FileNameMD ";Jet OLEDB:Database Password=" PasswordMD ";" _
                  
"Jet OLEDB:Engine Type=5;"_
                  
"provider=microsoft.Jet.oledb.4.0;" _
                  
"Jet OLEDB:Database Password=" PasswordMD ";" _
                  
"Data Source=" FileNameMD ".tmp;" _
                  
"Jet OLEDB:Engine Type=5;")
 
                 Dim FullPath As String IO.Path.GetDirectoryName(FileNameMD)
 
                 IO.File.Delete(FileNameMD)
 
                 Dim filename As String IO.Path.GetFileName(FileNameMD ".tmp")
 
                 Dim GetFileNameWithoutExtension As String IO.Path.GetFileNameWithoutExtension(FileNameMD ".tmp")
 
                 FileSystem.Rename(FileNameMD ".tmp"FullPath "\" & GetFileNameWithoutExtension)
                  EndMD = "
Successfully"
                  Return EndMD ' إرجع بقيمة تدل على إكمال العملية بنجاح
            Catch ex As Exception
                  If My.Computer.FileSystem.FileExists(FileNameMD) = False Then
                        EndMD = "
Database"
                        Return EndMD ' إرجع بقيمة تدل على فشل العملية بسبب عدم صحة مسار قاعدة البيانات
                  Else
                        EndMD = "
Failed"
                        Return EndMD ' إرجع بقيمة تدل على فشل العملية لاسباب اخرى
                  End If
            End Try

      End Function 
مع احترامي الكبير للسيد Easy4ever  لاني عدلت على كود حضرتك
علماً اني استخدم نظام Windows 8 64x مع Office 2010
الرد }}}
تم الشكر بواسطة:
#9
(20-03-15, 01:10 PM)محمد العبيدي كتب : تم حل المشكلة التي ظهرت لدي وهي ان البرنامج المرفق من حظرتك لايستطيع الاتصال بقاعدة البيانات من نوع 2007 او 2010  حيث قمت باستبدال الجزء التالي provider=microsoft.ace.oledb.12.0; ليصبح provider=microsoft.Jet.oledb.4.0; التي توجد في جملة الربط بقاعدة البيانات لتكون الداله بالشكل التالي


PHP كود :
     Function Access_2007(ByVal FileNameMD As StringByVal PasswordMD As String)
 
           Try
                  Dim Engine 
CreateObject("JRO.JetEngine")
 
                 Engine.CompactDatabase("provider=microsoft.Jet.oledb.4.0;Data Source=" FileNameMD ";Jet OLEDB:Database Password=" PasswordMD ";" _
                  
"Jet OLEDB:Engine Type=5;"_
                  
"provider=microsoft.Jet.oledb.4.0;" _
                  
"Jet OLEDB:Database Password=" PasswordMD ";" _
                  
"Data Source=" FileNameMD ".tmp;" _
                  
"Jet OLEDB:Engine Type=5;")
 
                 Dim FullPath As String IO.Path.GetDirectoryName(FileNameMD)
 
                 IO.File.Delete(FileNameMD)
 
                 Dim filename As String IO.Path.GetFileName(FileNameMD ".tmp")
 
                 Dim GetFileNameWithoutExtension As String IO.Path.GetFileNameWithoutExtension(FileNameMD ".tmp")
 
                 FileSystem.Rename(FileNameMD ".tmp"FullPath "\" & GetFileNameWithoutExtension)
                  EndMD = "
Successfully"
                  Return EndMD ' إرجع بقيمة تدل على إكمال العملية بنجاح
            Catch ex As Exception
                  If My.Computer.FileSystem.FileExists(FileNameMD) = False Then
                        EndMD = "
Database"
                        Return EndMD ' إرجع بقيمة تدل على فشل العملية بسبب عدم صحة مسار قاعدة البيانات
                  Else
                        EndMD = "
Failed"
                        Return EndMD ' إرجع بقيمة تدل على فشل العملية لاسباب اخرى
                  End If
            End Try

      End Function 
مع احترامي الكبير للسيد Easy4ever  لاني عدلت على كود حضرتك
علماً اني استخدم نظام Windows 8 64x مع Office 2010
يبدو ان هذا التعديل يجعل البرنامج يعمل على قاعدة البيانات الافتراضية المرفقة معه ولكنه لايزال لايعمل مع قاعدة بيانات ال2007 ,2010
ارجو من حضرتك ايجاد حل للمشكلة
الرد }}}
تم الشكر بواسطة:
#10
اخي الكريم محمد العبيدي
انظر للمرفق 



الملفات المرفقة
.zip   Access_Repair.zip (الحجم : 38.45 ك ب / التحميلات : 502)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [VB.NET] كيف يمكن تحديد البيانات التي اريد ان تظهر في DataGridView1 ؟ Microformt 1 71 18-03-24, 01:37 AM
آخر رد: Kamil
Question [VB.NET] كيف يمكن مسح البيانات في الجدول المجود على الفورم ؟ Microformt 1 109 03-03-24, 08:35 PM
آخر رد: Taha Okla
  اتصال قاعدة البيانات بالسرفر atefkhalf2004 10 318 25-02-24, 09:15 PM
آخر رد: atefkhalf2004
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 81 48,096 10-02-24, 11:26 AM
آخر رد: محمد العموري
  كيفيه عمل حفظ البيانات الخاصة بمتابعة دخول وخروج المستخدمين للبرنامج Saly nor 6 2,615 07-02-24, 05:56 PM
آخر رد: ahmedanwer
  طريقة سهلة للاتصال بقاعدة بيانات SQL مع اضافة ايقونات للتحكم في تدفق البيانات ggtt17121985 0 541 06-11-23, 10:16 AM
آخر رد: ggtt17121985
  برنامج لادارة الدروس الخصوصية VB.NET2013& Access moaath.khalaf 16 15,791 19-08-23, 12:22 AM
آخر رد: Ramadan alking
Video طباعة تقرير صفحة شخصية ب VB.net من خلال Crystal report و access database ggtt17121985 0 356 11-08-23, 10:41 AM
آخر رد: ggtt17121985
Star [مشروع] كيفية نقل البيانات الموجودة في الجداول داخل قاعدة البيانات الاولى إلى قاعدة البيانات aliday03 5 1,157 26-03-23, 03:19 PM
آخر رد: sanyor77
  مثال استيراد اى ملف اكسيل وتصدير البيانات الى ملف اكسيل new_programer 3 3,426 07-12-22, 12:19 PM
آخر رد: hoda299

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


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