Xailer & OZ Software

Hola a todos,
Me encuentro con un problema que no se resolver.
Dado un TSqlQuery que está enlazado con un dbBrowse... quiero, mediante las
instrucciones del dbBrowse, navegar por código y controlar cuando se llega
al principio y/o fin del recordset.
Algo así­:
METHOD Sube() CLASS tForm1
::oDbBrowse:GoUp
IF ::oDbBrowse:oDataset:Bof()
MsgInfo("BOF")
ENDIF
RETURN NIL
El caso es que nunca veo (en mis pruebas) el msginfo indicando que se ha
llegado al BOF.
He dejado un ejemplo modificado (AdoData3) que muestra lo que quiero hacer.
También me pasa con el EOF.
Si alguien me puede ayudar...
Saludos y gracias,
José Luis Capel

--

Attached files Test.zip (3 KB)Â

José Luis,
Navegando por el Browse NUNCA se llega ni a Eof() ni a Bof(). Deberás
utilizar directamente el objeto TDataset en conjunción con el método SKIP
(nunca Nskip()).
Saludos
--
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
http://www.xailer.com/forum
http://www.xailer.com/dokuwiki
"José Luis Capel" <jose.luis@capelsoft.com> escribió en el mensaje de
noticias:4c288e11$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hola a todos,
>
> Me encuentro con un problema que no se resolver.
>
> Dado un TSqlQuery que está enlazado con un dbBrowse... quiero, mediante
> las
> instrucciones del dbBrowse, navegar por código y controlar cuando se llega
> al principio y/o fin del recordset.
>
> Algo así­:
>
> METHOD Sube() CLASS tForm1
> ::oDbBrowse:GoUp
> IF ::oDbBrowse:oDataset:Bof()
> MsgInfo("BOF")
> ENDIF
> RETURN NIL
>
> El caso es que nunca veo (en mis pruebas) el msginfo indicando que se ha
> llegado al BOF.
>
> He dejado un ejemplo modificado (AdoData3) que muestra lo que quiero
> hacer.
>
> También me pasa con el EOF.
>
> Si alguien me puede ayudar...
>
> Saludos y gracias,
> José Luis Capel
>
>

Ignacio,
Gracias por la respuesta.
>
> Navegando por el Browse NUNCA se llega ni a Eof() ni a Bof(). Deberás
> utilizar directamente el objeto TDataset en conjunción con el método SKIP
> (nunca Nskip()).
>
Gracias. Ya he cambiado el método de navegación y todo stupendo.
Saludos,
José Luis Capel
METHOD Button3Click( oSender ) CLASS TForm1
::oDBBrowse2:oDataset:Skip(-1)
IF ::oDBBrowse2:oDataset:Bof()
::oDBBrowse2:oDataset:Skip()
::oDBBrowse2:Refresh()
MsgInfo("BOF")
ENDIF
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD Button4Click( oSender ) CLASS TForm1
::oDBBrowse2:oDataset:Skip()
IF ::oDBBrowse2:oDataset:Eof()
::oDBBrowse2:oDataset:Skip(-1)
::oDBBrowse2:Refresh()
MsgInfo("EOF")
ENDIF
RETURN Nil
//---------------------------------------------------------- --------------------