[سعود]

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


[سعود]

بعد ثمان ساعات عرفت التعديل اللازم

PHP كود :

CompactDatabase(old_db.Text, "new_db.accdb", ";pwd=",, ";pwd=old_db_pass") 


[elgokr]

(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("مسار", "مسار")

تحياتى لك

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