سلام
سوال اول :
می خوام بدونم چطور تو محیط کد نویسی وی بی بانک اکسس 2007 عمل compact and repair database
یعنی عمل فشرده سازی و ترمیم رو انجام بدم؟
سوال دوم :
چطور با کد نویسی تو محیط وی بی بر روی بانک اکسس 2007 پسورد بذارم ؟
Printable View
سلام
سوال اول :
می خوام بدونم چطور تو محیط کد نویسی وی بی بانک اکسس 2007 عمل compact and repair database
یعنی عمل فشرده سازی و ترمیم رو انجام بدم؟
سوال دوم :
چطور با کد نویسی تو محیط وی بی بر روی بانک اکسس 2007 پسورد بذارم ؟
قابل انجام نیست
کد HTML: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