| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Требуется динамически создать Calculated поле [D6, MSSQL]
Boriz © (2002-11-21 15:48:00)Доброе время суток! Потребовалось применять caclulated поля, но выделять под это отдельную ADOStoredProc не хочется.
Вопрос: а как динамически создать calculated поле? Пробовал так:
var Fld: TField;
...
Fld:=TField.Create(nil);
Fld.FieldName:="test";
Fld.FieldKind:=fkCalculated;
Fld.Dataset:=SProc;
SProc.Fields.Add(Fld);
Sproc.Open;
На SProc.Open выдается сообщение, что поле test не может быть calculated или lookup полем.
Что я упустил?
Boriz (2002-11-21 16:01:00) [1]Все получилось. Просто был невнимателен ;o)
if SP.Active then Sp.Close;
SP.ProcedureName:="usp_test";
SP.Parameters.Clear;
SP.Parameters.CreateParameter("@param", ftInteger, pdInput, SizeOf(integer), 0);
Fld:=TStringField.Create(SP);
Fld.FieldName:="regnum_obj";
Fld.Dataset:=SP;
Fld.Alignment:=taRightJustify;
Fld.FieldKind:=fkCalculated;
SP.OnCalcFields:=CalcFields;
SP.Open;
SP.First;
Memo1.Clear;
While not SP.EOF do begin
Memo1.Lines.Add(SP.FieldByName("code").AsString+" - "+SP.FieldByName("regnum_obj").AsString);
SP.Next;
end;
SP.Close;
end;
procedure TForm1.CalcFields(DataSet: TDataSet);
begin
if SP.FieldByName("code").AsInteger > 10 then
SP.FieldByName("regnum_obj").AsString:="БОЛЬШОЙ"
else
SP.FieldByName("regnum_obj").AsString:="маленький";
Вот и все ;o)
Prooksius (2002-11-21 15:57:00) [2]TFieldDefs.AddFieldDef - посмотри хелп Delphi - может так можно...
| |
