منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
محتاج كود ضغط وإصلاح قاعدة بيانات Access 2010 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : محتاج كود ضغط وإصلاح قاعدة بيانات Access 2010 (/showthread.php?tid=27987)

الصفحات: 1 2

RE: محتاج كود ضغط وإصلاح قاعدة بيانات Access 2010 - سعود - 02-07-19

اخواني الكرام
اذا اردت الغاء كلمة مرور القاعدة فماذا اعدل بالاجراء التالي من قبل الاخ elgokr بارك الله فيه وفيكم جميعا:
PHP كود :
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 


RE: محتاج كود ضغط وإصلاح قاعدة بيانات Access 2010 - سعود - 03-07-19

بعد ثمان ساعات عرفت التعديل اللازم
PHP كود :
CompactDatabase(old_db.Text, "new_db.accdb", ";pwd=",, ";pwd=old_db_pass") 


RE: محتاج كود ضغط وإصلاح قاعدة بيانات Access 2010 - elgokr - 05-07-19

(02-07-19, 10:54 PM)سعود كتب : اخواني الكرام
اذا اردت الغاء كلمة مرور القاعدة فماذا اعدل بالاجراء التالي من قبل الاخ elgokr بارك الله فيه وفيكم جميعا:
PHP كود :
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 

مرحباً اخى سعود
لديك امر من اثنين وهو التالى

اولاً جعل الاستدعاء بهذا الشكل
كود :
       RunCompactDatabase("مسار", "مسار", Nothing)

ثانياً التعديل على الـ Sup  ليصبح بهذا الشكل
كود :
   Sub RunCompactDatabase(ByVal Sou As String, ByVal Com As String, Optional Pass As String = Nothing)
       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

ويتم مناداه الـ Sup بهذا الشكل
كود :
       RunCompactDatabase("مسار", "مسار")

وفى حالة استخدام كلمة المرور
كود :
       RunCompactDatabase("مسار", "مسار", "123456")

ثالثاً التعديل على الـ Sup ليكون بهذا الشكل
كود :
   Sub RunCompactDatabase(ByVal Sou As String, ByVal Com 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)
       MsgBox("The database was compacted successfully")
   End Sub

وهنا سيتم مناداه الـ Sub بهذا الشكل
كود :
       RunCompactDatabase("مسار", "مسار")

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