كود ضغط و إصلاح قاعدة البيانات

السلام عليكم

ممكن تجرب الكود ده

Dim D As New DAO.DBEngine
If Dir(Application.StartupPath & "\Agc.mdb") = "" Then
   MsgBox("Sorry DataBase Not Found")
   Exit Sub
Else
   D.CompactDatabase("Agc.mdb", "Agc2.mdb")
   Kill(Application.StartupPath & "\Agc.mdb")
End If

Dim OldName, NewName As String
OldName = "Agc2.mdb"
NewName = "Agc.mdb"
Rename(OldName, NewName)
MsgBox("Done")

حيث AGC هي اسم قاعدة البيانات المطلوبة

و AGC2 اسم قاعدة البيانات المؤقتة

لاحظ أن الكود يستخدم لقواعد بيانات 2003

لقواعد بيانات 2007 يجب تغيير الامتداد mdb إلى accdb

مش شغال معايا خالص ياريت تجربه تانى او تعمله برنامج وترفعه

السلام عليكم

يجب أولا ادراج مكتبة الداو Microsoft DAO 3.6 Object Library

Dim g As New DBEngine
g.CompactDatabase "DB1.mdb", "DB2", "dbLangGeneral"
MsgBox "Ok"

DB1 : قاعدة البيانات المطلوب إصلاحها

DB2 : قاعدة البيانات بعد الإصلاح

انت جربت الكود عندك .......

مش شغال معايا

لو شغال عندك ياريت تبعتلى البرنامج

السلام عليكم

هنا مثالين لضغط وإصلاح قواعد بيانات أكسيس

1

http://www.4shared.c...abase_acce.html

2

http://www.4shared.c...x_database.html

الروابط لا تعمل

السلام عليكم ورحمه الله وبركاته

اخي شوف الروابط التاليه

http://vbcity.com/forums/t/155114.aspx

http://www.dreamincode.net/forums/topic/93117-compactrepair-access-2007-with-vbnet/