Форум: "Базы";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Вниз

Требуется динамически создать Calculated поле   Найти похожие ветки 

← →
Boriz   (2002-11-21 15:48) [0]

Доброе время суток! Потребовалось применять 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 полем.
Что я упустил?

---

← →
Prooksius   (2002-11-21 15:57) [1]

TFieldDefs.AddFieldDef - посмотри хелп Delphi - может так можно...

---

← →
Boriz   (2002-11-21 16:01) [2]

Все получилось. Просто был невнимателен ;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)

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.011 c