c:\xharbour\lib\rddads.lib+
c:\xharbour\lib\ace32.lib +
#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
AdsSetFileType( ADS_CDX )
SET SERVER LOCAL
SET SERVER LOCAL
SET FILETYPE TO CDX
Patricio Avalos Aguirre wrote:se ve claro el error, no existe la lib advantage.lib
yo no utilizo verse, trata de modificar las librerias o bien cambia de nombre a rddads.lib advantage.lib
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 29 guests