compact and repair database & password

[sehm67]

سلام

سوال اول :

می خوام بدونم چطور تو محیط کد نویسی وی بی بانک اکسس 2007 عمل compact and repair database

یعنی عمل فشرده سازی و ترمیم رو انجام بدم؟

سوال دوم :

چطور با کد نویسی تو محیط وی بی بر روی بانک اکسس 2007 پسورد بذارم ؟

[ENG_Torshani]

قابل انجام نیست

[M.T.P]

Public Function CompactAccess2007(sDatabase As String) As Boolean
    On Error GoTo EndLine
    Dim blnRet As Boolean
    Dim ObAccess As Object
    Dim StrTmp As String
    Dim StrSrc As String

    blnRet = False
    
    Set ObAccess = CreateObject("DAO.DBEngine.120")
    
    StrSrc = sDatabase
    StrTmp = sDatabase & "x"

    Call SetAttr(StrSrc, vbNormal)
        
    Call ObAccess.CompactDatabase(StrSrc, StrTmp, , , ";pwd=123456;")

    Call Kill(StrSrc)
    Name StrTmp As StrSrc

    Set ObAccess = Nothing
    blnRet = True

EndLine:
    CompactAccess2007 = blnRet
    If Err.Number Then Call MsgBox(Err.Description, vbExclamation)
End Function