Buenas tardes,
Necesito saber si es posible usando ADS Server, implementar un query que me devuelva el recno() de cada registro que cumpla la condición de un select where.
Gracias.
Rolando
#include "fivewin.ch"
#include "ads.ch"
FUNCTION main()
LOCAL cAlias := "sql", cRec := ""
rddRegister( "ADS", 1 )
rddsetdefault( "ADS" )
AdsSetFileType( ADS_CDX )
SET SERVER LOCAL
adsConnect(".")
adsRightsCheck( .F. )
//ADSSETDATEFORMAT("DD/MM/YYYY")
SELECT 0
ADSCreateSQLStatement( cAlias, 2 )
ADSPREPARESQL( "select * from customer where state = 'NY'" )
ADSEXECUTESQL()
? (cAlias) -> ( lastrec() )
(cAlias) -> ( DBGOTOP() )
DO WHILE ! (cALias) -> ( EOF() )
cRec += STR( (cAlias)->(RECNO()) )
(cAlias) -> ( DBSKIP() )
ENDDO
? cRec
BROWSE()
DBCLOSEALL()
return NIL
#include "fivewin.ch"
#include "ads.ch"
//#pragma /b+
FUNCTION main()
LOCAL cAlias := "sql", cRec := ""
rddRegister( "ADS", 1 )
rddsetdefault( "ADS" )
AdsSetFileType( ADS_CDX )
SET SERVER REMOTE
adsConnect60( "//192.168.1.20:3000/ADS/test.add", 2, "ADSSYS","" )
adsRightsCheck( .F. )
//ADSSETDATEFORMAT("DD/MM/YYYY")
SELECT 0
ADSCreateSQLStatement( cAlias, 2 )
ADSPREPARESQL( "select * from customer where state = 'NY'" )
ADSEXECUTESQL()
? (cAlias) -> ( lastrec() )
(cAlias) -> ( DBGOTOP() )
DO WHILE ! (cALias) -> ( EOF() )
cRec += STR( (cAlias)->(RECNO()) )
(cAlias) -> ( DBSKIP() )
ENDDO
? cRec
BROWSE()
DBCLOSEALL()
return NIL
ADSPREPARESQL( "select * from customer where state = 'NY'" )
ADSPREPARESQL( "select * from customer where state like '%NY%' " )
ADSPREPARESQL( "select * from customer where state like '%NY%' " )
ADSPREPARESQL( "select * from customer where CONTAINS( state, '%NY%' ) " )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 131 guests