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