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

الصفحات : 1 2

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

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

تحياتى لك

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

الصفحات : 1 2