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

[GNMQ8]

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

اخواني ممكن طريقة عمل زر لضغط قاعدة البيانات وإصلاحها .. بحيث أعمل لها زر معين ؟؟

جزاكم الله خير ...

[محب العلم]

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

نعم أخي GNMQ8 ،

تضع هذا الكود خلف النموذج الذي فيه الزر

 

Function RepairDatabase(strSource As String, _
        strDestination As String) As Boolean
        ' Input values: the paths and file names of
        ' the source and destination files.

    ' Trap for errors.
    On Error GoTo error_handler

    ' Compact and repair the database. Use the return value of
    ' the CompactRepair method to determine if the file was
    ' successfully compacted.
    RepairDatabase = _
        Application.CompactRepair( _
        LogFile:=True, _
        SourceFile:=strSource, _
        DestinationFile:=strDestination)

    ' Reset the error trap and exit the function.
    On Error GoTo 0
    Exit Function

' Return False if an error occurs.
error_handler:
    RepairDatabase = False

End Function

وفي حدث الزر تطلب الكود السابق هكذا

Private Sub cmd_Click()
If RepairDatabase("c:\a.mdb", "c:\b.mdb") = True Then MsgBox "تمت العملية"
End Sub

هذا بدوره يعمل ضغط واصلاح للقاعدة a وينتج القاعدة المضغوطة b وذلك في جهاز التخزين c

compact.zip

مع وافر الاحترام

تم تعديل فبراير 6, 2008 بواسطه محب العلم

[GNMQ8]

مشكوور اخي محب العلم

بارك الله فيك (: