En una aplicación el TQuery no encuentra el campo. He probado en otra más sencilla y tampoco va. Para no dejar los datos en blanco he puesto el TrY-Except.
El caso es que no me funciona. A ver cómo lo ves tú.
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
Var
Dato : Integer; Total: Integer;
BEGIN
TRY
Q1.Close;
Q1.SQL.Clear; Q1.SQL.Add('Select COUNT (ID) as Total FROM DCOLOR where CAT = :Medidas ' ) ;
Q1.ParamByName('Medidas').AsString := '215X150' ;
Q1.Open ; ShowMessage( 'Registros: ' + Q1.FieldByName('Total').AsString ) ;
EXCEPT
ShowMessage( 'Except side');
Q1.SQL.Clear; Q1.SQL.Text :='SELECT * FROM DCOLOR ORDER BY ID' ;
Q1.Open;
END;
end;
Un saludo.
bulc