topic-29932

Vikthor.Thomas

Posts: 144

Joined: Thu Jan 02, 2014 01:49 PM

SCOPE con ADS

Posted: Wed Jan 07, 2015 07:43 PM

Hola , buen día
Feliz año 2015 !

¿ Qué funciones debo usar con ADS para tener la misma funcionalidad de los SCOPES en CDX ?

Saludos

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: SCOPE con ADS

Posted: Thu Jan 08, 2015 11:45 AM

Mira el comando, xScopeFilter() ó xFilter() del ADS.

http://fivewin.com.br/index.php?/topic/21739-definicao-de-posicoes-do-vetor/

Salu2.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

lucasdebeltran

Posts: 1303

Joined: Tue Jul 21, 2009 08:12 AM

Re: SCOPE con ADS

Posted: Thu Jan 08, 2015 11:56 AM

Hola,

Mira este ejemplo:

Code (fw): Select all Collapse

#include "ads.ch"
REQUEST ADS

function main()
   local i
   local cFile := CurDrive() + ":" + CurDirX() + "stories.dbf"
   local cExpr1 := 'contains( story, "*lucas De Beltrán" )'
   local cExpr2 := 'contains( story, "Nancy or *ing" )'

   RddSetDefault( "ADS" )
   AdsSetServerType( ADS_LOCAL_SERVER )
   AdsSetFileType( ADS_CDX )

   DbUseArea( .f., , cFile, "one", .f., .f. )
   ? "recno() =" + str( reccount() )
   ? ""

   AdsCreateFTSIndex( , "myfts", "story" )
   DbCloseArea()

   DbUseArea( .f., , cFile, "one", .t., .f. )
   ? "recno() =" + str( reccount() )
   ? ""

   ? "--------- primer filter: " + cExpr1
   AdsSetAOF( cExpr1 )
   DbGoTop()
   do while !eof()
      ? one->story
      DbSkip()
   enddo

   ? "--------- segundo filter: " + cExpr2
   AdsSetAOF( cExpr2 )
   DbGoTop()
   do while !eof()
      ? one->story
      DbSkip()
   enddo

   DbCloseArea()
   wait "------------------------ok..."

return NIL

Muchas gracias. Many thanks.

Un saludo, Best regards,

Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]

Implementando MSVC 2010, FWH64 y ADO.

Abandonando uso xHarbour y SQLRDD.

FiveTech Support Forums

SCOPE con ADS

Re: SCOPE con ADS

Re: SCOPE con ADS

Continue the discussion