FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour busqueda incremental con tdolphin
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
busqueda incremental con tdolphin
Posted: Mon May 08, 2017 02:15 AM
Gente :
Estoy pasando de DBF a SQL para ello trabajo con la clase TDOLPHIN de Daniel pero no logro que me muestre solamente las filas que coinicida con lo tipeado
la coincidencia puede ser al comienzo , mitad o final del apellido

Este es mi code

Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "tdolphin.ch"
#include "xbrowse.ch

   IF ( oServer := ConnectTo() ) == NIL
      RETURN NIL
   ENDIF
      D_SetCaseSensitive( .T. )
   
    oQry:=oServer:Query("SELECT * FROM president order by first_name")

   DEFINE DIALOG oDlg  SIZE 565, 480 
   
   @ 30, 10 XBROWSE oBrw DATASOURCE oQry ;
            AUTOSORT PIXEL SIZE 260, 200  //AUTOCOLS 

       oBrw:nMarqueeStyle       := MARQSTYLE_HIGHLROW
            
       WITH OBJECT oBrw
         :lSeekWild          := .t.
         :lIncrFilter := .t.
         :cFilterFld := "first_name"         
      END


   
   @ 10, 10 SAY oBrw:oSeek PROMPT oBrw:cSeek SIZE 80,10 PIXEL OF oDlg ;
      COLOR CLR_RED,CLR_YELLOW

   
// Uncomment this line for fivewin version < 10.7   
//   SetDolphin( oBrw, oQry )
   
   oBrw:CreateFromCode()
      
   ACTIVATE DIALOG oDlg CENTERED

Gracias
fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
Re: busqueda incremental con tdolphin
Posted: Mon May 08, 2017 02:20 AM

Me equivoque la busqueda es por el primer nombre

Sorry

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
Re: busqueda incremental con tdolphin
Posted: Mon May 08, 2017 05:18 PM

Probe con ADO y si me trabaja la busqueda incremental pero con Tdolphin no funciona
que le falta a mi codigo?

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

Continue the discussion