كيف أريد أن أعمل ضغط وإصلاح لقاعدة البيانات من خلال البرنامج

السلام عليكم ...

اولاً قم بإدراج المكتبة Microsoft Office 12.0 Access database engine Object لمشروعك

( Project > Reference > Microsoft Office 12.0 Access database engine Object )

ثم استخدم الكود التالي :

Dim dbPath As String, TmpdbPath As String, dbPass As String

dbPath = App.Path & "\db.accdb"     		' مسار قاعدة البيانات
TmpdbPath = App.Path & "\Tmpdb.accdb"   	' مسار قاعدة البيانات بعد الضغط
dbPass = "123"                          	' باسورد قاعدة البيانات

If Dir(ATmpdbPath) <> "" Then
	Kill TmpdbPath
End If

' ضغط قاعدة البيانات
DBEngine.CompactDatabase dbPath, TmpdbPath, , , ";pwd=" & dbPass

Kill dbPath
Name TmpdbPath As TmpdbPath

طبعاً قم بتغيير مسار قاعدة البيانات والباسورد

مع مراعاة غلق قاعدة البيانات او اي اتصال بها قبل عمل الضغط

شكراً لك أخي محمد مصطفي غريب

بارك الله فيك

شكرا لك

جاري تجربتها

اخي الكريم ظهرت لي الرسالة هذه

وهذ الكود اللي استخدمته

Dim dbPath As String, TmpdbPath As String, dbPass As String

dbPath = Text1.Text             
TmpdbPath = Text1.Text          
dbPass = "224466"         

If Dir(ATmpdbPath) <> "" Then
        Kill TmpdbPath
End If


DBEngine.CompactDatabase dbPath, TmpdbPath, , , ";pwd=" & dbPass

Kill dbPath
Name TmpdbPath As TmpdbPath

اقتباس

dbPath = Text1.Text         	
TmpdbPath = Text1.Text          
dbPass = "224466"

المسار الاول هو مسار وجود قاعدة البيانات, انما المسار الثاني هو مسار قاعدة البيانات بعد الضغط, فكود الضغط يضغط قاعدة البيانات ويحفظها في مكان آخر, لذا يجب تغيير المسار الثاني , على سبيل المثال نضيف له كلمة Tmp فيكون الكود

dbPath = Text1.Text         	
TmpdbPath = "Tmp" & Text1.Text          
dbPass = "224466"

وايضاً يوجد حرف زائد في الكود ... تم وضع الكود في Function مستقل لتسهيل العملية

الكود بعد التعديل :

Private Sub Command1_Click()
    CompactDatabase Text1.text, Text2.text
End Sub


Public Sub CompactDatabase(dbPath As String, dbPassword As String)

Dim dbPass As String

On Error GoTo ErrHandle

TmpdbPath = dbPath & "_Tmp"

If Dir(TmpdbPath) <> "" Then
    Kill TmpdbPath
End If

' ضغط قاعدة البيانات
DBEngine.CompactDatabase dbPath, TmpdbPath, , , ";pwd=" & dbPassword

Kill dbPath
Name TmpdbPath As dbPath

MsgBox "Done ...", vbInformation, "Database Compacting"
Exit Sub

ErrHandle:
MsgBox "Error while compacting, make sure that the database is closed", vbExclamation, "Database Compacting"

End Sub

يوضع في Text1 مسار قاعدة البيانات وفي Text2 باسورد قاعدة البيانات ..

ألف شكر لك اخي محمد مصطفي غريب

الأن زبط

ألف شكر لك

الله يقويك ويزيدك من علمه