как обратиться к столбцу?

← →
Пун (2007-05-14 15:44) [0]

Вот код:
function AgeStr(aDate: TDateTime): string;
var
Day:Double;
Years,Months:Integer;
begin
Day:=Date-aDate;
Years:=Trunc(Day/365.25);
Day:=Day-(365.25 * Years);
Months:=Trunc(Day/30.41);
Result:=Format("%d лет,%d месяцев",[Years,Months]);
end;

procedure TForm1.TableNameOrderCalcFields(DataSet: TDataSet);
begin
Table3DR.AsString:=AgeStr(Table3Codr.AsDateTime);
end;
Значит в чём фишка.. Показывает в гриде сколько лет и месяцев. Как вы понимаете ето значение переменное и по етаму не сохраняется в таблице, а при запуске программы подсчитывает снова и снова. Мне необходимо Обратиться к этим записям уже посчитам после запуска проги (Обращаюсь я так:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add("select *");
Query1.SQL.Add("from Obsch.db");
Query1.SQL.Add("where God1 like "%"+Edit3.Text+"%"");
Query1.Open;
Но при поиске выводит сообщение, что не находит такого столбца God1 да и в самом то деле, в таб. Obsch.db его там и нету. Так как мне к этаму сталбцу обратиться?

← →
Desdechado © (2007-05-14 15:54) [1]

Обращайся к датасету с обсчитанными полями, а не к БД, где этих калькулируемых полей и в помине нет.

← →
Пун (2007-05-14 16:01) [2]

Да я бы с удовольствием, но не уме:)) Может примерчик оставишь??? Какой нить маленький..

Table3DR.AsString

как обратиться к столбцу? Найти похожие ветки