Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
FoxAudit problem
Message
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Produits tierce partie
Titre:
FoxAudit problem
Divers
Thread ID:
00830118
Message ID:
00830118
Vues:
75
I just purchase FoxAudit 8.0 and have a question in regards to running mutiple copies of my program. I have a program on server that all my users click, therefore multiple copies are run on server. When Incorperated the Foxaudit 8.0, it seems like I can only run one copy of my program. The minute another user clicks to run my program I get following message say I can't open another dbc:
FoxAudit Error Information

A problem has occurred that FoxAudit was unable handle.  The following information was available at the time of the problem.

Error: 1569
Message: Database h:\testing\budget2004\dbbudget.dbc: File access denied.
Method: openlogtables 
Line #: 76
Code: Do h:\testing\budget2004\budget.exe

Retry  Cancel
Here is what my main.prg looks like. My main.prg is also running stonefield utility.
*main.prg

CLEAR ALL
CLEAR
RELEASE ALL

LOCAL lcDefDrivePath
lcDefDrivePath = SYS(5)+SYS(2003)

SET DEFAULT TO (lcDefDrivePath)

_screen.Caption = 'Budget 2003 - 2004'
private oMeta
oMeta = newobject('DBCXMgr', 'DBCXMGR.VCX', '', .F., justpath(dbc()))
if type('oMeta') <> 'O' or isnull(oMeta)
	MESSAGEBOX('display an error message and exit, because DBCX cannot be used',1,'Warning from main.prg')
endif type('oMeta') <> 'O' ...
oMeta.SetDatabase(dbc())
oMeta.oSDTMgr.lQuiet = .T.
if oMeta.oSDTMgr.NeedUpdate()
    oMeta.oSDTMgr.Update()
endif oMeta.oSDTMgr.NeedUpdate()
on shutdown do myshutdown
_screen.windowstate=2
_screen.closable=.f.

* Adjust the path to point to the FoxAudit 6.0 Class Library (FoxAudit.VCX)
LOCAL lcFoxAuditLoc, lcLogLoc
lcFoxAuditLoc = 'C:\FOXAUDIT6\'
lcLogLoc = 'H:\TESTING\BUDGET2004\DBBUDGET_LOG.DBF'
SET CLASSLIB TO (lcFoxAuditLoc+'FOXAUDIT.VCX') ADDITIVE
PUBLIC oFoxAudit_DBBUDGET
oFoxAudit_DBBUDGET = CREATEOBJECT('FoxAudit',lcLogLoc)

* Make sure the FoxAudit 6.0 Object was created properly
IF TYPE('oFoxAudit_DBBUDGET') == 'O' AND NOT ISNULL('oFoxAudit_DBBUDGET')
   oFoxAudit_DBBUDGET.cUserID = SYS(0)
ENDIF
do form frmbudget
read event
on shutdown
here is myshutdown
&& myshutdown.prg
clos all
clea all
clear events
quit
Any help appreciated

Thank You
Nick Patel
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform