ADS - Database server

[Numerabilis]

Hi,

Once a time somebody told me ADS is much better than LetoDBF and it´s free up to 5 users... xHarbour v123 is not showing ADS anymore but there´s a rddads.lib file at lib folder.

I put this code before function main()

********************************
*** CODEPAGE E CHARSET
********************************
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_GT_WVT_DEFAULT
REQUEST HB_GT_WVT
*****************************************************   
*** DEFINIR TIPO DE BANCO DE DADOS PADRÃO: DBFCDX ***
*****************************************************
// ANNOUNCE RDDSYS
REQUEST DBFCDX
REQUEST DBFFPT
Request ordfor
ANNOUNCE FPTCDX
#IFDEF __ADS
    // servidor ADS
    #include "ads.ch"
    REQUEST ADS, ADSKEYCOUNT, ADSKEYNO, ADSGETRELKEYPOS
#ENDIF  

And this after:

#IFDEF __ADS
    ** ADS
    ******  
    RDDSETDEFAULT( "ADS" )
    RddRegister("ADS",1)
    // TIPO DE ARQUIVOS DE ÍNDICES
    AdsSetFileType(2) // 1- DBFNTX 2- DBFCDX 3- ADTADI  
    // TIPO DE SERVIDOR
    AdsSetServerType(7) // 1-Local 2-Remote 3-Local+Remote 4-Internet 5-Internet+Local 6-Internet+Remote, 7-All of them
    ADSRightsCheck(.F.) // ABERTURA DOS DBFs + RÁPIDA
    // FAZ CONEXÃO
    IF AdsConnect60( xPATH, 4, cDBFUSER, cDBFPASS)
       WAIT "Servidor ADS conectado"
    ELSE
       WAIT "Não foi possível se conectar ao servidor ADS"
    ENDIF
#ENDIF

It throw errors and I can´t find the app server. This link does not work anymore: https://devzone.advantagedatabase.com/dz/content.aspx?Key=20

What database manager do you recommend?

[ronpinkas]

Hi,

This is not the place for such question. Please post such questions to: https://groups.google.com/g/comp.lang.xharbour