fix: handle MONEY column types as float

Refs #2564

Author: ansgarbecker

source/dbconnection.pas

@@ -8400,6 +8400,8 @@ procedure TAdoDBQuery.Execute(AddResult: Boolean=False; UseRawResult: Integer=-1
             TypeIndex := dbdtDateTime;
           //ftTimeStampOffset: // this is NOT data type DATETIMEOFFSET
           //  TypeIndex := dbdtDatetime;
+          ftCurrency:
+            TypeIndex := dbdtMoney;
           else
             raise EDbError.CreateFmt(_('Unknown data type for column #%d - %s: %d'), [i, FColumnNames[i], Integer(LastResult.Fields[i].DataType)]);
         end;