FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Question about TDolphin/ oQry:Seek(SOLVED)
vilian
Posts: 1067
Joined: Wed Nov 09, 2005 02:17 AM
Question about TDolphin/ oQry:Seek(SOLVED)
Posted: Thu Jun 25, 2015 01:52 PM
Hi Guys,

I'm Trying this Code:
Code (fw): Select all Collapse
FUNCTION Main()
   LOCAL oServer, oQry
   D_SetCaseSensitive( .T. )

   IF ( oServer := ConnectTo() ) == NIL
      RETURN
   ENDIF

   oQry = TDolphinQry():New( "SELECT * FROM usuarios ORDER BY usuario", oServer )
   If( oQry:Seek( "TESTE", "usuario" ) > 0, MsgInfo("Found TESTE"), MsgInfo("No found TESTE") )
   
   xBrowse(oQry)

RETURN nil


And allways display messenge "No found TESTE", but "TESTE" exist in table "usuários". See xBrowse image run after seek:


What i are doing wrong ?
Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Question about TDolphin/ oQry:Seek
Posted: Thu Jun 25, 2015 04:39 PM
Verifica que el ancho del campo sea igual al del valor a buscar, pudiese ser que al buscar "TESTE", lo limitas al ancho de 5 caracteres y si en la tabla tiene mas de 5, entonces no hay coincidencia, es una teoria vaga, ya que cuando uso SEEK lo hago con el valor de una variable del tamaño definida en el campo de la tabla, tambien intenta hacer un oQry:GOTOP(), antes de hacer la busqueda haber si es que el puntero se quedo al final de la tabla, aunque creo que SEEK hace un GOTOP antes de iniciar la busqueda, saludos... :-)

prueba esto

Code (fw): Select all Collapse
local cbuscar // := space(ancho_del_campo)

oQry = TDolphinQry():New( "SELECT * FROM usuarios ORDER BY usuario", oServer )

oQry:Gotop()

cbuscar := oQry:usuario

   If( oQry:Seek( cBuscar, "usuario" ) > 0, MsgInfo("Found TESTE"), MsgInfo("No found TESTE") )
Dios no está muerto...



Gracias a mi Dios ante todo!
vilian
Posts: 1067
Joined: Wed Nov 09, 2005 02:17 AM
Re: Question about TDolphin/ oQry:Seek
Posted: Thu Jun 25, 2015 05:04 PM
Thanks for try, but the problem continue. I changed the code for bellow:

Code (fw): Select all Collapse
FUNCTION Main()

   LOCAL oServer, oQry,cUsuario

   D_SetCaseSensitive( .T. )

   IF ( oServer := ConnectTo() ) == NIL
      RETURN nil
   ENDIF


   oQry = TDolphinQry():New( "SELECT * FROM usuarios ORDER BY usuario", oServer )
   oQry:GoTop()

   cUsuario := PadR("TESTE",6)
   If( oQry:Seek( cUsuario, "usuario" ) > 0, MsgInfo("Found TESTE"), MsgInfo("No found TESTE") )

   xBrowse( oQry )

RETURN nil


But oQry:Seek continue nof find the record. The problem is only with oQry:Seek, If i'm change this for oQry:Locate the program Works :-)
Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Question about TDolphin/ oQry:Seek
Posted: Thu Jun 25, 2015 05:21 PM

Aunque suene tonto, prueba asi haber, saludos... :shock:

IIf( oQry:Seek( cUsuario, "usuario" ) > 0, MsgInfo("Found TESTE"), MsgInfo("No found TESTE") )

o asi

If oQry:Seek( cUsuario, "usuario" ) > 0, MsgInfo("Found TESTE"), MsgInfo("No found TESTE")

o asi

If oQry:Seek( cUsuario, "usuario" ) > 0
MsgInfo("Found TESTE")
else
MsgInfo("No found TESTE")
endif

Dios no está muerto...



Gracias a mi Dios ante todo!
vilian
Posts: 1067
Joined: Wed Nov 09, 2005 02:17 AM
Re: Question about TDolphin/ oQry:Seek
Posted: Thu Jun 25, 2015 05:33 PM

Thanks for help,

But oQry:Seek() allways Return ZERO. I don´t know whats happening ...

Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Question about TDolphin/ oQry:Seek
Posted: Thu Jun 25, 2015 05:54 PM
Hare un programito pequeño como el tuyo con los mismos campos y datos..haber, coloca si puedes la structura de la tabla o mandamela a mi privado, como solucion rapida puedes hacerlo asi...saludos... :-)

Code (fw): Select all Collapse
"SELECT * FROM usuarios WHERE usuario="+ campo + " ORDER BY usuario"

IF oQr:RecCount() > 0
? "existe"
ELSE
? "no existe"
ENDIF
Dios no está muerto...



Gracias a mi Dios ante todo!
vilian
Posts: 1067
Joined: Wed Nov 09, 2005 02:17 AM
Re: Question about TDolphin/ oQry:Seek
Posted: Thu Jun 25, 2015 06:36 PM
Jose,

Bellow the SQL command to create this table:

Code (fw): Select all Collapse
DROP TABLE IF EXISTS `vfatec`.`usuarios`;
CREATE TABLE  `vfatec`.`usuarios` (
  `id` int(11) NOT NULL AUTO_INCREMENT,
  `usuario` varchar(6) DEFAULT NULL,
  `tpacesso` varchar(1) DEFAULT NULL,
  `ssl` tinyint(1) NOT NULL DEFAULT '0',
  `autentica` tinyint(1) NOT NULL DEFAULT '0',
  `portasmtp` double(4,0) DEFAULT '0',
  `portapop` double(4,0) DEFAULT '0',
  `pop` varchar(45) DEFAULT NULL,
  `provedor` varchar(2) DEFAULT NULL,
  `usremail` varchar(45) DEFAULT NULL,
  `micro` varchar(8) DEFAULT NULL,
  `ult_troca` date NOT NULL DEFAULT '0001-01-01',
  `ativo` tinyint(1) NOT NULL DEFAULT '0',
  `perfis` text,
  `menu` text,
  `data_inc` date NOT NULL DEFAULT '0001-01-01',
  `somnuprc` tinyint(1) NOT NULL DEFAULT '0',
  `ult_acesso` date NOT NULL DEFAULT '0001-01-01',
  `avisa` tinyint(1) NOT NULL DEFAULT '0',
  `email` varchar(50) DEFAULT NULL,
  `smtp` varchar(50) DEFAULT NULL,
  `senha` varchar(6) DEFAULT NULL,
  `pswemail` varchar(15) DEFAULT NULL,
  `tipo` varchar(1) DEFAULT NULL,
  `nome` varchar(50) DEFAULT NULL,
  `restricoes` text,
  `modulos` text,
  `modatv` text,
  `ultmnu` varchar(3) DEFAULT NULL,
  `hash` varchar(6) DEFAULT NULL,
  PRIMARY KEY (`id`)
) ENGINE=InnoDB AUTO_INCREMENT=3 DEFAULT CHARSET=latin1;


Thanks for Support :-)
Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Question about TDolphin/ oQry:Seek
Posted: Thu Jun 25, 2015 07:19 PM
vilian wrote:Jose,

Bellow the SQL command to create this table:

Code (fw): Select all Collapse
DROP TABLE IF EXISTS `vfatec`.`usuarios`;
CREATE TABLE  `vfatec`.`usuarios` (
  `id` int(11) NOT NULL AUTO_INCREMENT,
  `usuario` varchar(6) DEFAULT NULL,
  `tpacesso` varchar(1) DEFAULT NULL,
  `ssl` tinyint(1) NOT NULL DEFAULT '0',
  `autentica` tinyint(1) NOT NULL DEFAULT '0',
  `portasmtp` double(4,0) DEFAULT '0',
  `portapop` double(4,0) DEFAULT '0',
  `pop` varchar(45) DEFAULT NULL,
  `provedor` varchar(2) DEFAULT NULL,
  `usremail` varchar(45) DEFAULT NULL,
  `micro` varchar(8) DEFAULT NULL,
  `ult_troca` date NOT NULL DEFAULT '0001-01-01',
  `ativo` tinyint(1) NOT NULL DEFAULT '0',
  `perfis` text,
  `menu` text,
  `data_inc` date NOT NULL DEFAULT '0001-01-01',
  `somnuprc` tinyint(1) NOT NULL DEFAULT '0',
  `ult_acesso` date NOT NULL DEFAULT '0001-01-01',
  `avisa` tinyint(1) NOT NULL DEFAULT '0',
  `email` varchar(50) DEFAULT NULL,
  `smtp` varchar(50) DEFAULT NULL,
  `senha` varchar(6) DEFAULT NULL,
  `pswemail` varchar(15) DEFAULT NULL,
  `tipo` varchar(1) DEFAULT NULL,
  `nome` varchar(50) DEFAULT NULL,
  `restricoes` text,
  `modulos` text,
  `modatv` text,
  `ultmnu` varchar(3) DEFAULT NULL,
  `hash` varchar(6) DEFAULT NULL,
  PRIMARY KEY (`id`)
) ENGINE=InnoDB AUTO_INCREMENT=3 DEFAULT CHARSET=latin1;


Thanks for Support :-)


Why...name table...`vfatec`.`usuarios`..?, crei era 'usuarios' o tienes alguna otra tabla llamada usuarios..?
Dios no está muerto...



Gracias a mi Dios ante todo!
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Question about TDolphin/ oQry:Seek
Posted: Thu Jun 25, 2015 07:26 PM

Disculpa, ya entendi, 'vfatec' es la DATABASE...saludos... :shock:

Dios no está muerto...



Gracias a mi Dios ante todo!
vilian
Posts: 1067
Joined: Wed Nov 09, 2005 02:17 AM
Re: Question about TDolphin/ oQry:Seek
Posted: Thu Jun 25, 2015 07:28 PM
Jose,

"vfatec' is the name of the schema in MySql. The tabel name is 'usuarios'
Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Question about TDolphin/ oQry:Seek
Posted: Thu Jun 25, 2015 07:47 PM
Acabo probar tu codigo original del primer mensaje...y me funciono sin problemas, consiguio TESTE, saludos... :-)

Code (fw): Select all Collapse
FUNCTION prueba()

   LOCAL oQry

   D_SetCaseSensitive( .T. )

   oQry = TDolphinQry():New( "SELECT * FROM usuarios ORDER BY usuario", oDatos:oConex ) // usando mi conexion...

   If( oQry:Seek( "TESTE", "usuario" ) > 0, MsgInfo("Found TESTE"), MsgInfo("No found TESTE") )
   
RETURN nil


asi que el problema seguro sera otra cosa....hasle un

? oQry:reccount()

haber si te cuenta los registros...
Dios no está muerto...



Gracias a mi Dios ante todo!
dutch
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: Question about TDolphin/ oQry:Seek
Posted: Thu Jun 25, 2015 09:52 PM
Dear Vilian,

I think, if it is not exact equal you should put lSoftSeek parameter.

Code (fw): Select all Collapse
oQry:Seek( cUsuario, "usuario" , , ,.T.)

vilian wrote:Thanks for try, but the problem continue. I changed the code for bellow:

Code (fw): Select all Collapse
FUNCTION Main()

   LOCAL oServer, oQry,cUsuario

   D_SetCaseSensitive( .T. )

   IF ( oServer := ConnectTo() ) == NIL
      RETURN nil
   ENDIF


   oQry = TDolphinQry():New( "SELECT * FROM usuarios ORDER BY usuario", oServer )
   oQry:GoTop()

   cUsuario := PadR("TESTE",6)
   If( oQry:Seek( cUsuario, "usuario" ) > 0, MsgInfo("Found TESTE"), MsgInfo("No found TESTE") )

   xBrowse( oQry )

RETURN nil


But oQry:Seek continue nof find the record. The problem is only with oQry:Seek, If i'm change this for oQry:Locate the program Works :-)
Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)
vilian
Posts: 1067
Joined: Wed Nov 09, 2005 02:17 AM
Re: Question about TDolphin/ oQry:Seek
Posted: Thu Jun 25, 2015 11:31 PM
Sorry my friends, i forgot say - I was using MariaDB.
And not yet have sucess to use oQry:Seek :-)
Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Question about TDolphin/ oQry:Seek
Posted: Fri Jun 26, 2015 12:24 AM
vilian wrote:Sorry my friends, i forgot say - I was using MariaDB.
And not yet have sucess to use oQry:Seek :-)


Ni modo man, esas cosas pasan, yo uso MySql, hasta los momentos y todo super bien...saludos... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Question about TDolphin/ oQry:Seek
Posted: Fri Jun 26, 2015 12:26 PM
vilian wrote:Sorry my friends, i forgot say - I was using MariaDB.
And not yet have sucess to use oQry:Seek :-)


i'll install mariadb to test any way you can contact with me by google hangout or gmail
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Static archive · New replies & topics via GitHub Discussions