Доступ к полям таблицы

← →
Сергей. (2002-07-31 14:02) [0]

Подскажите пожалуйста как получить доступ к данным в
таблице Oracle к полям с типом Decimal (тип в TField
ftBCD ) ?

← →
Johnmen (2002-07-31 14:38) [1]

А в чем проблема ? И почему ftBCD, а не ftFloat ?

← →
Сергей. (2002-07-31 15:39) [2]

TField->Value возвращает 0, хотя поле имеет значение отличное
от 0; свойства, позволяющего получить значение поля с этим типом
нет. SQL Explorer показывает все поля корректно. И все свойства
возвращают 0 ( AsInteger и др. ). я пробовал.

← →
Johnmen (2002-07-31 15:48) [3]

Нужны подробности...Где видно "возвращает 0" ? Код ?...

← →
Сергей. (2002-08-01 09:16) [4]

сразу извиняюсь - пишу на С в ВСВ 5.0

if ( !ADOQuery1->Eof ) {
for( l = 0; l < ADOQuery1->FieldCount; l++ )
Memo1->Lines->Add( ADOQuery1->Fields->Fields[l]->FieldName
+ " = " + getVolPole( ADOQuery1, l ));
}

AnsiString __fastcall TForm1::getVolPole( TADOQuery *q, int np )
{
AnsiString s("");

if ( np < q->FieldCount ) {
switch ( q->Fields->Fields[np]->DataType ) {
case ftString : // Character or string field
s = q->Fields->Fields[np]->AsString;
break;
case ftInteger : // 32-bit integer field
s = q->Fields->Fields[np]->AsInteger;
break;
case ftDateTime : // Date and time field
s = q->Fields->Fields[np]->AsDateTime;
break;
case ftBCD : // Binary-Coded Decimal field
s = q->Fields->Fields[np]->Value;

//-- Как получить значение поля ????

break;
default :
s = q->Fields->Fields[np]->Value;
}
}
return s;
}

← →
Val (2002-08-01 12:03) [5]

угу, почему тип такой, странно.
попробуйте преобразовать поле к TFloatField(Fields[np]).Value,например.

Доступ к полям таблицы Найти похожие ветки