TdaSQL ignoring field aliases

rbuser

?In the function TdaSQL.CreateFieldsFromSQL (called when I use a custom
SQL) it ignores the TppField.FieldAlias property returned by
GetFieldsForSQL.

In function TdaSQL.CreateFieldsFromSQL contains

lField.FieldAlias := lDataSetField.FieldName;

which should be
if lDataSetField.FieldAlias <> '' then
lField.FieldAlias := lDataSetField.FieldAlias
else
lField.FieldAlias := lDataSetField.FieldName;

Thanks in advance.



--- posted by geoForum on http://delphi.newswhat.com

rbuser

also the lField.Alias property.




--- posted by geoForum on http://delphi.newswhat.com