Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Adoquery con parametros (https://www.clubdelphi.com/foros/showthread.php?t=41436)

erasmorc 15-03-2007 14:31:09

Adoquery con parametros
 
Saludos a todos

Estoy trabajando con sql2k como base de datos, utilizo componentes adoqry para unas consultas y quiero buscar un campo que se parezca a un texto que envio como parametro para activar el qry, el problema esta en que probando el qry desde el query analizer de SQL me funciona, cuando intento pasar los parametros desde delphi entonces no me devuelve nada en las lineas de qry.

Este es el qry usado desde el query analizer, que funciona bien
select codigo,empresa,corporativo
from basicosdq..clientes
where corporativo Like '%0930%'


Estas son las lineas que tengo dentro del componente AdoQuery
Select Codigo,Empresa,Corporativo
From Basicosdq..Clientes
Where Corporativo Like :PCodigo


y este esta es la forma en que activo y paso los parametros al query
Wbusca := QuotedStr('%'+TrimRight(FRecibosMult.Edit3.Text)+'%');
FRecibosMult.QClientesSc.Close;
FRecibosMult.QClientesSc.Parameters.ParamByName('PCodigo').Value := wbusca;
FRecibosMult.QClientesSc.Open;

Posteriormente valido el valor de wbusca que es donde guardo el string que paso al query y me devuelve '%0930%' que es la misma cadena que coloco en el query analizer y que funciona.

Realmente no se que pueda ser, agradeceria cualquier ayuda.

fjcg02 15-03-2007 23:39:11

Cita:

Empezado por erasmorc
Wbusca := QuotedStr('%'+TrimRight(FRecibosMult.Edit3.Text)+'%');
FRecibosMult.QClientesSc.Close;
FRecibosMult.QClientesSc.Parameters.ParamByName('PCodigo').Value := wbusca;
FRecibosMult.QClientesSc.Open;

Deja Wbusca sin la funcion Quotedstr y prueba.

Ya nos contarás.

Suerte y un saludo

erasmorc 16-03-2007 14:29:15

Nitido, funciono a la perfeccion, gracias mil.


La franja horaria es GMT +2. Ahora son las 05:58:59.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi