السلام عليكم ورحمة الله وبركاته
هذا الكود يستخدم لظغط واصلاح قاعدة بيانات اكسس
'mdwfilename=database fullpath+databasename
Public shared Sub CompactAccessDB(ByVal connectionString As String, ByVal mdwfilename As String)
Dim oParams As Object()
Dim objJRO As Object = Activator.CreateInstance(Type.GetTypeFromProgID("JRO.JetEngine"))
oParams = New Object() {connectionString, "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\tempdb.mdb;Jet OLEDB:Engine Type=5"}
objJRO.GetType().InvokeMember("CompactDatabase", System.Reflection.BindingFlags.InvokeMethod, Nothing, objJRO, oParams)
System.IO.File.Delete(mdwfilename)
System.IO.File.move("C:\tempdb.mdb", mdwfilename, True)
System.Runtime.InteropServices.Marshal.ReleaseComObject(objJRO)
objJRO = Nothing
End Sub
