Using hAlias. (SOLVED) December 21, 2021 02:39PM |
Registered: 5 years ago Posts: 220 |
Argus
Re: Using hAlias. (SOLVED) December 22, 2021 01:51PM |
Re: Using hAlias. (SOLVED) December 26, 2021 02:46PM |
Admin Registered: 5 years ago Posts: 19 |
LOCAL dsDataSource is Data Source <description=products> sFileName is string = "products" ctKassaLokal is Connection bRes is boolean bHFCSConnected is boolean = True sDataDir is string = CompleteDir(fExeDir()) HAlias(sFileName, dsDataSource) HChangeName(dsDataSource,{sFileName,indFile}..DescribedPhysicalName) //Important! IF bHFCSConnected THEN ctKassaLokal..Access = hOReadWrite ctKassaLokal..Database = "TESTDB" ctKassaLokal..User = "admin" ctKassaLokal..Password = "password" ctKassaLokal..Server = "localhost:4900" bRes = HOpenConnection(ctKassaLokal) HChangeDir(dsDataSource, "") HChangeConnection(dsDataSource, ctKassaLokal) ELSE HChangeDir(dsDataSource, sDataDir) END HReadFirst(products, prod_no) WHILE NOT HOut(products) HReadSeek(dsDataSource, prod_no, products.prod_no, hIdentical) IF HFound(dsDataSource) THEN Trace(dsDataSource.prod_no + ", ", + dsDataSource.prod_description) END HReadNext(products, prod_no) END HCancelAlias(dsDataSource)