ADS 7.1 to ADS 8.1

[fraxzi]

Hello!

After I removed ADS Local server (7.1) and it associated files and then install ADS Local server (8.1)... I encountered this strange problem...

here's the code...

Code: Select all  Expand view  RUN

hADS := 0
       cCurrentRDD := 'ADS'

       lADSServer_OK := ADSConnect60( aIni[ cDATABASEPATH ], aIni[ nCONNECTTYPES ], 'user', '***')


       If lADSServer_OK

          hADS := AdsGetConnectionHandle()

          Request ADS

          rddRegister( cCurrentRDD, 1 )
          rddsetdefault( cCurrentRDD )

          Extern ADSKeyNo
          Extern ADSKeyCount
          Extern ADSSetRelKeyPos
          Extern ADSGetRelKeyPos

          AdsSetFileType( ADS_CDX )
          AdsSetCharType("OEM")
          AdsLocking( .T. )                     
          AdsSetDateFormat( "MM.DD.YYYY" )
          AdsSetEpoch( 1930 )
          AdsSetDeleted( .F. )                 


          //
          DBSelectArea( 1 )
          dbUseArea(.T., cCurrentRDD, 'RESPON', 'RE', .T., .F.)
          IF !NetErr()

              RE->( OrdSetFocus('RespNam') )

          ELSE
              cTableErrors += 'RESPON Table ' + CRLF
          END
          //


the above code works perfectly with both 7.1 and 8.1 BUT...

Code: Select all  Expand view  RUN

             RE->( dbEval( {|| AAdd( aListBox_RESPONSIBILITY, {RE->RESPCOD,RE->RESPNAM} ) } ))

dbEval >> DOES NOT WORK WITH 8.1 ....Apps closes without any message even within begin..sequence construct..

Code: Select all  Expand view  RUN

MsgInfo(RE->RESPNAM) 

Doe not even work too!

Any pointer?

Regards,

[fraxzi]

SOLVE!

AdsGetConnectionHandle() not in ACE32.DLL (8.1)

but... AdsConnection() is compatible in both 7.1 and 8.1 ace32.dll


whewww!



Thanks!

[Patricio Avalos Aguirre]

Hello

Code: Select all  Expand view  RUN

ADSConnect60( aIni[ cDATABASEPATH ], aIni[ nCONNECTTYPES ], 'user', '***',, @hADS)


[fraxzi]

Hi!

I think yours is much better....



Regards,