problema con busqueda

[josi]

hola a todos.

tengo un problemita con una busqueda, Este es el codigo del botos buscar:
var sql: string;
begin
clientesquery2.CLOSE;
clientesquery2.sql.clear;

IF LENGTH (EDIT1.TEXT) > 0 THEN
SQL:= 'SELECT * FROM clientes WHERE codigo =' + QUOTEDSTR (EDIT1.TEXT)
ELSE
SQL:= 'SELECT * FROM clientes';

clientesquery2.SQL.ADD (SQL);
clientesquery2.ACTIVE := TRUE;

IF
clientesQuery2.RECORDCOUNT <= 0 THEN
BEGIN
SHOWMESSAGE ('NO HAY CLIENTE CON ESTE CODIGO');
END
ELSE
EDIT1.TEXT:= clientesquery2.FieldValues ['codigo'];
end;



end.
pero me dice este error 'no conciden los datos en la expresion de criterios'.

gracias.......

[dec]

Hola,

Igual digo alguna tontería, pero, tal vez es que deberías tratar con un entero, y no con una cadena. Es decir, algo así:


WHERE codigo = 4


En lugar de:


WHERE codigo = '4'


Hasta donde llego, podría dar igual un caso que otro. A ver otro compañero qué opina. Tú puedes probar a ver. ;)

[Caro]

Hola josi, al igual que DEC veo que tu campo parece ser de tipo entero, por lo que no es necesario el QuotedStr.


SQL:= 'SELECT * FROM clientes WHERE codigo =' +EDIT1.TEXT


Saluditos

[josi]

:Dgracias ya me acordaon el problema:D