BLS
WD12 HyperfileSQL and HcreationIfNotFound() - Urgent April 08, 2009 06:53PM |
IF OnTestMode() THEN // todo ckeck commandline WHEN EXCEPTION IN HCreationIfNotFound( "*", hDelayedOpening ) DO Error("Hyper File error: " + HErrorInfo( hErrServerInfo) ) ExceptionEnable() ELSE Info("Files created") END END
Jimbo
Re: WD12 HyperfileSQL and HcreationIfNotFound() - Urgent April 08, 2009 07:09PM |
Moderator |
// Die Dateien Öffnen und ihre Struktur beobachten ErgebnisString = HListFile("","",hLstNormal)+CR FOR I = 1 TO StringCount(ErgebnisString,CR) MyFileName = ExtractString(ErgebnisString,I,CR) WHEN EXCEPTION IN HOpen(MyFileName) DO // Die Datei hat ein Problem IF HError() = 70021 OR HError() = 70052 THEN HIndex(MyFileName,hNdxSilent) END IF HError() = 70003 THEN HCreation(MyFileName) END IF HError() <> 70021 AND HError() <> 70052 AND HError() <> 70003 THEN Info("Öffnen der Datei: "+MyFileName,"Fehler "+HError()+" aufgetreten !",HErrorInfo(hErrFullDetails)) END END END
Bls
Re: WD12 HyperfileSQL and HcreationIfNotFound() - Urgent April 08, 2009 07:15PM |
BLS
Re: WD12 HyperfileSQL and HcreationIfNotFound() - Urgent April 08, 2009 07:20PM |
Jimbo
Re: WD12 HyperfileSQL and HcreationIfNotFound() - Urgent April 08, 2009 07:28PM |
Moderator |
Al
Re: WD12 HyperfileSQL and HcreationIfNotFound() - Urgent April 09, 2009 05:23AM |
Moderator |
Jimbo
Re: WD12 HyperfileSQL and HcreationIfNotFound() - Urgent April 09, 2009 06:41AM |
Moderator |
bls
Re: WD12 HyperfileSQL and HcreationIfNotFound() - Urgent April 16, 2009 10:16PM |