FiveTech Software tech support forums

... este codigo con las versiones 99.5 y 99.71 de xHarbour, yo tengo una diferencia del doble entre ellos. FUNCTION main() LOCAL astruct, i, ini, ind rddRegister( "ADS", 1 ) rddsetdefault( "ADS" ) AdsSetServerType ( 1 ) aStruct := {{"name","C",50,0},{"salary","N",10,2}} FOR i:=0 TO 30 ind := ALLTRIM( ...

... ; => AdsSetFileType( if( upper( <(x)> ) == "NTX", 1, ; if( upper( <(x)> ) == "CDX", 2, 3 ) ) ) */ and then //REQUEST ADS //rddRegister( "ADS", 1 ) //rddsetdefault( "ADS" ) //SET SERVER LOCAL //SET FILETYPE TO CDX

Estoy probando ADS con diccionario de datos y me da error en las funciones marcadas con * rddRegister( "ADS", 1 ) //RRG 3.5.2001 rddsetdefault( "ADS_CDX" ) //RRG 3.5.2001 SET FILETYPE TO ADT SET SERVER LOCAL AdsLocking(.T.) * AdsUseDictionary( .T. ) AdsRightsCheck( .F. ...

... related to filtering databases. #include "FiveWin.ch" #include "ads.ch" FUNCTION main() LOCAL cFiltCond FIELD salary, state ******** REQUEST _ADS RddRegister( "ADS", 1 ) RddSetDefault( "ADS" ) AdsSetDeleted(.T.) SET SERVER LOCAL SET FILETYPE TO CDX SET DELETED ON ********* USE c:\fwh\samples\customer.dbf ...

... from E:\PROGRAMA\DATASOL\XHARBOUR\OBJ\GEST.OBJ Estoy usandolo así: ----Código--------- ANNOUNCE ADS Request Hb_lang_es Request Dbfcdx, Dbffpt rddRegister ( "ADS", 1 ) rddsetdefault( "ADS" ) SET SERVER REMOTE SET FILETYPE to CDX Estoy compilando RDDADS.LIB y ACE32.LIB, fwh26 y xHarbour 2.6 ...

Hi Ehab This is the working sample for your prblem. ****** #include "FiveWin.ch" #include "ads.ch" FUNCTION main() REQUEST _ADS rddRegister( "ADS", 1 ) rddsetdefault( "ADS" ) AdsSetDeleted(.T.) SET SERVER LOCAL SET FILETYPE TO CDX select 4 USE METE x := "'9855564'" cFilter := "me_serial ...

James

The latest xHarbour has changed the way you set up ADS ..

REQUEST ADS

rddRegister ( "ADS", 1 ) // no underscore _ infront of ADS
rddsetdefault( "ADS" )
SET SERVER REMOTE
SET FILETYPE to CDX


Notice the underscore is gone .. just use as above.

Rick Lipkin

... INI oIni FILE ".\MyApp.ini" Get xRDD SECTION "RDD" ENTRY "RDD-VERSION" OF oIni DEFAULT "LOCAL" ... rddsetdefault( "ADS" ) SET FILETYPE to NTX rddRegister ( "ADS", 1 ) AdsSetServerType( 7 ) //iif( xRDD == "REMOTE", 2, 1 ) ) I thought with AdsSetServerType( 7 ) it would automatically connect ...

... sort of like this: INI oIni FILE ".\MyApp.ini" Get xRDD SECTION "RDD" ENTRY "RDD-VERSION" OF oIni DEFAULT "LOCAL" ENDINI rddsetdefault( "ADS" ) rddRegister ( "ADS", 1 ) SET FILETYPE to NTX IF upper( xRDD ) <> "LOCAL" SET SERVER REMOTE cADS := " Remote 32 bit -b" ELSE cADS := " Local 32 ...

... '_HB_FUN__ADS' Regards, Rick Lipkin SC Dept of Health, USA IF xRDD = "ADS" ANNOUNCE _ADS * REQUEST _ADS // does not work with latest xharbour cvs rddRegister ( "ADS", 1 ) rddsetdefault( "ADS" ) SET SERVER REMOTE SET FILETYPE to CDX cADS := " Remote 32 bit -b" ELSE cADS := " Local 32 bit -b" REQUEST ...

... // Init... IF Pdebug Pext := ".CDX" Prdd := "DBFCDX" Pdd := "c:\winapps\frt\data\" Prca := "c:\clipweb\winrca\" ENDIF // RDD... RddRegister( "ADS", 1 ) RddSetDefault( "DBFCDX" ) // Caching... ADSLocking(.F.) // Init... PA[001] := "" PA[002] := "" PA[003] := "" PA[004] := "CDM ...

... [ ] disabel user [ok] enable internet access permisions Tables a todas las tablas estan con ticket ahora en el programa __rddSetDefault( "ADS" ) rddRegister( "ADS", 1 ) AdsSetFileType(ADS_CDX) AdsLocking( .t. ) AdsRightsCheck(.F.) if !AdsConnect60( "demointernet.add", 4, "pavalos", "1234" ) MsgInfo( ...