oi> |ddlZddlZddlZddlmZmZdaGddZdZdZ e dkr e dSdS)N)DispatchWithEvents constantscDeZdZdZdZdZdZdZdZdZ dZ d Z d S) ADOEventscdSN)selfstruserpwoptstscns KC:\PYTHON\Scheduler\python\Lib\site-packages\win32com/test/testADOEvents.py OnWillConnectzADOEvents.OnWillConnect s  cptd|td|ddadS)Nz connection isz Connected toz Data Source)print Propertiesfinished)r errorstatus connections rOnConnectCompletezADOEvents.OnConnectCompletes= oz*** nj33MBBCCCrcdSrr r pErroradStatus pConnections rOnCommitTransCompletezADOEvents.OnCommitTransComplete rcdSrr rs r OnInfoMessagezADOEvents.OnInfoMessage r#rcdSrr )r r r!s r OnDisconnectzADOEvents.OnDisconnect#r#rcdSrr )r TransactionLevelrr r!s rOnBeginTransCompletezADOEvents.OnBeginTransComplete&r#rcdSrr rs rOnRollbackTransCompletez!ADOEvents.OnRollbackTransComplete)r#rcdSrr )r RecordsAffectedrr pCommand pRecordsetr!s rOnExecuteCompletezADOEvents.OnExecuteComplete,s  rc dSrr ) r Source CursorTypeLockTypeOptionsr r/r0r!s r OnWillExecutezADOEvents.OnWillExecute1s  rN) __name__ __module__ __qualname__rrr"r%r'r*r,r1r7r rrrr s                            rrcdtdt}d|z}d}d}||||tjt jdz}t j|kr*tjt j|k*tstddSdS)NzADODB.Connectionz/Driver={Microsoft Access Driver (*.mdb)};Dbq=%ssystemmanager zXXX - Failed to connect!) rrOpenradAsyncConnecttimeclock pythoncomPumpWaitingMessagesrr)dbnamecdsnr r end_times rTestConnectionrI?s -y99A *** Can not import the MSAccess type libraries - tests skipped) rKGenerateSupportrC com_errorrCreateTestAccessDatabaserIosunlink)rKrEs rTestrRTs""$$$$   NOOO 0 0 2 2Fv & &s??A<<B__main__) rPrArCwin32com.clientrrrrrIrRr8r rrrUs 99999999 2 2 2 2 2 2 2 2 j****    zDFFFFFr