[princelovelorn]

(22-12-18, 02:50 AM)عبد العزيز البسكري كتب :

عمليّة ضغط و إصلاح قواعد البيانات ذات كلمات المرور من نوع accdb تحتاج أخي الكريم إلى إضافة هذا الجزء بعد كلمة المرور ..

كود :

;Jet OLEDB:Engine Type=5

تحياتي

جزاك الله خيرا أخي الحبيب عبد العزيز البسكري

بالفعل لم أنسى هذا الجزء وهو موجود في الكود الاول من المشاركة الاولى 

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

(22-12-18, 03:28 AM)elgokr كتب :

اخى الحبيب السبب فى الرسالة المرفقة

هو كونك وضعت كلمة المرور بطريقة غير صحيحة

شرح مجدداً للكود مع الخطوات المطلوب نشائها حتى تتاكد جيداً بان كل شئ بدون مشكلة

قم بعمل مشروع جديد على جهازك يحتوى على زر

ادرج بداخل الزر الكود التالى

كود :

       RunCompactDatabase("C:\123.accdb", "C:\123-ok.accdb", "12341234")

اسفل حدث الزر او باى مكان قم بادراج كود هذا الـ Sub

كود :

   Sub RunCompactDatabase(ByVal Sou As String, ByVal Com As String, ByVal Pass As String)
       Dim AccessDatabaseEngine As New Microsoft.Office.Interop.Access.Dao.DBEngine
       Dim source As String = Sou
       Dim compact As String = Com
       Dim MyPassword As String = Pass
       AccessDatabaseEngine.CompactDatabase(source, compact, ";pwd=" & MyPassword, , ";pwd=" & MyPassword)
       MsgBox("The database was compacted successfully")
   End Sub

قم باضافة Microsoft.Office.interop.access.dao

من خلال References

الان قم بتحميل قاعدة البيانات المرفقة وقم بوضعها على الدريف C

قم بتشغيل الان البرنامج من المشروع واضغط على الزر

وبعد ثوانى قليلة ستجد ظهور تلك الرسالة

كود :

The database was compacted successfully

الان اذهب الى الدريف C لتجد تم انشاء قاعدة بيانات جديدة بع الضغط تحت اسم

كود :

123-ok.accdb

تحياتى لك

وتمنياتى لك التوفيق

جزاك الله خيرا وبارك فيك أخي الحبيب elgokr

لقد طبقت شرحك بالظبط وكانت النتيجة 

ظهور هذة الرسالة عندما إستخدمت القاعدة المرفقة  باسم 123

The Microsoft Access database engine cannot open or write to the file 'C:\1234-ok.accdb'. It is already opened exclusively by another user, or you need permission to view and write its data.

ثم أنتبهت الى موضوع الصلاحيات في الويندوز ودرايف ال c

فقمت بنقل القاعدة بداخل مجلد  فنجحت العملية والحمد لله 

ثم قمت بأستخدام القاعدة التى لدي فنجحت العملية والحمد لله 

فجزاكم الله خيرا وبارك فيكم وزادكم علما أخواني الكرام 

عبد العزيز البسكري   elgokr