problema con busqueda

[josi]

hola a todos.

tengo un problemita con una busqueda, Este es el codigo del botos buscar:

Código Delphi [-]
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í:

Código SQL [-]
WHERE codigo = 4

En lugar de:

Código SQL [-]
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.

Código Delphi [-]
  SQL:= 'SELECT * FROM clientes WHERE codigo =' +EDIT1.TEXT

Saluditos

[josi]

gracias ya me acordaon el problema