![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Добавление в таблицу [D6, XP]
webpauk © (2007-11-14 12:37:00)1. какого типа должно быть поле таблицы, чтобы туда занести информацию типа TFieldType
2. как сохранить
TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,
ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString,
ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob,
ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd);
в таблицу
webpauk (2007-11-14 12:44:00) [21]
> Palladin © (14.11.07 12:42) [4]
достат кол!
webpauk (2007-11-14 12:43:00) [22]TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,
ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString,
ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob,
ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd);
а как вот эту кучу пройти через цикл.
отдельно добавлять каждое значение - в лом
Palladin (2007-11-14 12:42:00) [23]1. shortint достаточно
2.
Var
f:TFieldType;
q.sql.text:='insert into t1 values (:pft)';
q.Parameters[0].Value:=Byte(f);
q.ExecSQL;
q.sql.text:='select ft from t1';
q.open;
f:=TFieldType(q.Fields[0].AsInteger);
q.Close;
palva (2007-11-14 12:40:00) [24]1. Целым
2. Тип нельзя сохранить. Можно сохранить значение. Преобразовать в целое, потом сохранить.
Reindeer Moss Eater (2007-11-14 12:39:00) [25]заносить через Ord
Reindeer Moss Eater (2007-11-14 12:38:00) [26]Целочисленное