HowTo ADS from (x)Harbour

[reinaldocrespo]

Hello everyone.

I have uploaded to one of my hosted servers a few files that demonstrate how to use ADS RDD from (x)Harbour.

http://www.main.structuredsystems.com/adssamples/

AdsQuery.prg is a class that allows you to use ADS SQL queries as an object making it simpler to use.

SampleSQLUsage.prg shows how to use the class plus it should answer some of the most common questions most people from Harbour have about ADS. You will see on this .prg how to use stored procedures in default existence of actual ACE wrappers on rddads.lib. It also shows how to create an ADS Data Dictionary.

For your convenience, these samples work with the "LOCAL"/free server and does not depend on any GUI including FW. I'm a FW user but this sample code is aimed at anyone who wants to use ADS from harbour so I made an effort to write the sample as a simple console app.

“Building rddads.lib.pdf" is just text explaining how to build the necessary .libs to use ACE. Building rddads.lib is as simple as compiling 3 files and then linking them into a .lib. Building ACE32.lib is as simple as importing the lib from the ace32.dll.

I hope this sample files helps other take full advantage or make better use of ADS.

Best,


Reinaldo.

[Antonio Linares]

Reinaldo,

many thanks!

[dutch]

Thanks Reinaldo,

Great sample&support.

[Gale FORd]

I get an error when I try to access ADTvsCDX_comparison.prg
I also tried to right click and save link as but the contents show the same error.
I was able to save the other files. Thanks.

You don't have permission to access /adssamples/ADTvsCDX_comparison.prg on this server.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.

[reinaldocrespo]

Hey Gale,

You are right. I forgot to changed the file permissions. It should download now.

Reinaldo.

[Gale FORd]

Thanks

[Massimo Linossi]

Hi.
On c function there is this error :

Forbidden
You don't have permission to access /adssamples/adsfunc.c on this server.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.

Many thanks Reinaldo for these useful functions and informations.
Massimo

[Patricio Avalos Aguirre]

hi Reinaldo

in harbour no exist

Error: Unresolved external '_HB_FUN_ADSCLOSESQLSTATEMENT'

I eat to obtain it for harbour

[reinaldocrespo]

Patricio;

¿Que tál?

On that same directory you will find my adsfunc.c. I had to add many of the ACE wrappers. AdsCloseSqlStatement as well as many others are present on my adsfunc.c. I've been trying to have the Harbour developers commit my changes but so far I haven't even been able to learn who is in charge of the ADS RDDs.

So, just download my adsfunc.c and rebuild rddads.lib.

Please let me know how it works after that.

Reinaldo.

[reinaldocrespo]

Massimo;

You are right. I just fixed that. Please try again. Sorry.


Reinaldo.

[fraxzi]

Thanks Reinaldo.

[Massimo Linossi]

Perfect Reinaldo.
Thank you so much.

[Patricio Avalos Aguirre]

Hi reinaldo

mira he revisado la funcion de ads que propones adsfunc.c pero me encuentro que hay muchas diferencias con la actual
funcion no se si la que tengo esta mas obsoleta o no

la que estoy usando la he sacado de aqui

https://github.com/harbour/core/tree/master/contrib/rddads

por ejemplo la que uso utiliza HB_ISLOG y la otra ISLOG

//-------------------------------------------------------------------------------------------------
HB_FUNC( ADSSETDATEFORMAT )
{
UNSIGNED8 pucFormat[ 16 ];
UNSIGNED16 pusLen = 16;

la otra que uso yo

HB_FUNC( ADSSETDATEFORMAT )
{
UNSIGNED8 pucFormat[ 16 ];
UNSIGNED16 usLen = sizeof( pucFormat );

la que uso HB_BOOL hb_ads_bOEM = HB_FALSE;
la otra
BOOL hb_ads_bOEM = FALSE;

HB_FUNC( ADSENABLEENCRYPTION )
{
const char * pucPassword = hb_parcx( 1 );

if( strlen( pucPassword ) )

HB_FUNC( ADSENABLEENCRYPTION )
{
const char * pucPassword = hb_parcx( 1 );

if( *pucPassword )

y asi n de diferencias...

al parecer habria que compatibilizar con la ultima version de ads

estoy utilizando el programa araxis merge que compara archivos y me encuentra muchas diferencia.

[dutch]

How can I connect 2 different ADS server (different license code) with free table in the same time?

Thanks in advance,
Dutch

[dutch]

I knew the solution now.
** IGNORE Previous Question **
Thanks