Clipper/FiveWin - Cambiar el handle por defecto de una conexion ADS

Hola a todos,

Estoy intentando desarrollar unas clases para manejar querys desde FIVEWIN/HARBOUR

Segun este ejemplo:

local hAds1, hAds2
local cQuery

ADSConnect(cPathDbf())
hAds1 := AdsGetConnectionHandle()
ADSConnect(cPathStart())
hAds2 := AdsGetConnectionHandle()

// ESTA QUERY NO FUNCIONA PORQUE POR DEFECTO
// Esta activada la segunda conexion

DbSelectArea( 0 )
ADSCreateSQLStatement("alias1",2)
ADSExecuteSQLDirect("SELECT * FROM TRABAJA",nil,hAds1)

// ESTA SI QUE FUNCIONA BIEN
DbSelectArea( 0 )
ADSCreateSQLStatement("alias2",2)
ADSExecuteSQLDirect("SELECT * FROM EMPRESA")

AdsDisconnect(hAds1)
AdsDisconnect(hAds2)

La pregunta es ¿ como puedo cambiar la conexion por defecto ?
supongo que las funciones Ads habra que pasarle el hAds1 o hAds2
dependiendo en que conexion quiero hacer la query , pero no doy con ello

gracias de antemano

En la documentacion de (x)Harbour de CiberTec (master Rene Flores), tienes 2 funciones que te pueden servir:

AdsGetConnectionType() y AdsGetTableConnType()

y por otro lado tienes:

AdsConnection()

Cambia la conexión al servidor ADS o devuelve el manejador de la conexión actual.

Sintaxis: AdsConnection([<hConnection>]) -> <hConn>

Parámetros:

<hConnection> Parámetro opcional que indica el manejador (handle) de la conexión a la cual queremos cambiar, si este parámetro se omite devuelve el manejador de la conexión actual.

Devuelve:

<hConn> Si se pasa parámetro en <hConnection> devuelve el manejador (handle) de la conexión anterior, si no hay parámetro devuelve el manejador de la conexión actual.

Veáse También: AdsConnect(), AdsDisconnect(), AdsConnect60()

lo tienes todo esto documentado en el maunal de ADS de CiberTec

hernia discal