
many thanks for your great feedback!
Code: Select all | Expand
Directory of c:\ModHarbour31/05/2021 11:25 <DIR> .31/05/2021 11:25 <DIR> ..23/06/2015 08:00 1.757.136 ace64.dll23/06/2015 08:21 2.418.640 adsloc64.dll23/06/2015 07:44 2.394 adslocal.cfg23/06/2015 07:57 2.696.656 aicu64.dll23/06/2015 07:57 256.976 axcws64.dll31/05/2021 09:46 3.405.824 libcrypto-1_1-x64.dll31/05/2021 09:46 1.102.968 libcurl-x64.dll31/05/2021 09:46 6.807.040 libharbour.dll31/05/2021 09:46 681.472 libssl-1_1-x64.dll31/05/2021 09:46 49.152 mod_harbour.dll31/05/2021 11:19 <DIR> samples
Code: Select all | Expand
#include "c:\include\ads.ch"Static Ads_Handle*************************************************Function Main()Setting_db()IF !Connetti_db(@Ads_Handle,2) Return nilENDIFUSE UTENTI ALIAS UTENTI SHARED NEWSET ORDER TO TAG CODICEDbgotop()Seek str(73,4) + str(240,6)IF Found() ? UTENTI->UTENTEENDIFDbcloseall()AdsDisconnect(Ads_Handle)AdsApplicationExit()Return nil**************************************************************************Function Connetti_db(Ads_Handle)local str_conn:="" , lGo:=.F.str_conn:="\\DBMASTER:8132\C$\DATABASE\DATABASE.ADD"IF AdsConnect60(str_conn, 7,"user" , "PassWord",,@Ads_Handle) lGo:=.T.ENDIFReturn lGo*********************Function Setting_db()REQUEST HB_LANG_ITHB_LANGSELECT("IT")REQUEST DBFCDXREQUEST DBFFPTREQUEST ADSRddRegister( "ADS", 1 )RddSetDefault("ADS")SET SERVER REMOTESET FILETYPE TO ADTSET(_SET_AUTORDER,1)SET AUTOPEN ONset(_SET_OPTIMIZE,.T.)ADSLOCKING(.T.)SET DATE BRITISHSET DELETED ONSET CENTURY ONReturn nil
Code: Select all | Expand
Error: Unknown or unregistered symboloperation: ADSDISCONNECTcalled from: HB_HRBLOAD, line: 0called from: ..\source\exec.prg, EXECUTE, line: 70Source: