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