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.......