Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как обратиться к столбцу? [D7, XP]

Пун © (2007-05-14 15:44:00)
Вот код:
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 16:12:00) [1]
Table3DR.AsString

Пун (2007-05-14 16:01:00) [2]
Да я бы с удовольствием, но не уме:)) Может примерчик оставишь??? Какой нить маленький..

Desdechado (2007-05-14 15:54:00) [3]
Обращайся к датасету с обсчитанными полями, а не к БД, где этих калькулируемых полей и в помине нет.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »