Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.06.03;
Скачать: CL | DM;

Вниз

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

 
Пун   (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]

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


 
Desdechado ©   (2007-05-14 16:12) [3]

Table3DR.AsString



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

Текущий архив: 2007.06.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.068 c
15-1178620975
DVM
2007-05-08 14:42
2007.06.03
Можно ли как то оптимизировать данный участок кода


3-1173856188
Lavrenty
2007-03-14 10:09
2007.06.03
XML-файл и DBGrid


15-1178307934
Knight
2007-05-04 23:45
2007.06.03
Где тут собака порыта?


15-1178187093
Zoop
2007-05-03 14:11
2007.06.03
Кто подскажет...


2-1178800180
Deled
2007-05-10 16:29
2007.06.03
перезагрузка