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

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

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

Извлечение месяца [D6, dBase, FoxPro]

Georji © (2004-12-30 12:23:00)
Добрый день! Уважаемые мастера подскажите, пожалуйста, где ошибка:
Table1.FieldByName('mes').Value:=IntToStr(MonthOf(Table1.FieldValues['dotar']));

Georji (2004-12-30 12:56:00) [1]
Sergey13 © (30.12.04 12:48) [8]
Sandman25 © (30.12.04 12:50) [9]
Все получилось, в BDE работает так как мне нужно.
Еще раз всем СПАСИБО!

Sandman25 (2004-12-30 12:50:00) [2]
[8] Sergey13 © (30.12.04 12:48)

Если через BDE, то для группировки нужно поле. group by extract(..) не работает :(
Через ado работает.

Sergey13 (2004-12-30 12:48:00) [3]
2Georji (30.12.04 12:23)
Не делай этого вообще. Незачем. 8-)

Georji (2004-12-30 12:44:00) [4]
Спасибо! Всех с наступающим Новым годом!!! Успехов во всех делах!

Соловьев (2004-12-30 12:36:00) [5]
update table
set mes = extract(month from dotar)

Sandman25 (2004-12-30 12:32:00) [6]
Это компилируется? Переменная MonthOf - зачем?

MesField, DotarField: TField;

MesField := Table1.FieldByName('mes');
DotarField := Table1.FieldByName('dotar');
try
while not Table1.EOF do
begin
Table1.Edit;
MesField.AsInteger := MonthOf(DotarField.AsDateTime);
Table1.Post;
Table1.Next;
end
except
if Table1.State in dsEditModes then
Table1.Cancel;
raise;
end;

Anatoly Podgoretsky (2004-12-30 12:31:00) [7]
1. Почему ты используеешь переменную как функцию или приведение типа?
2. Ты сообщение об ощибке читал?

Georji (2004-12-30 12:30:00) [8]
Сделал числовым, все равно та же ошибка: "Missing operator or semicolon"

Georji (2004-12-30 12:27:00) [9]
Опишу точнее. Думаю так понятнее, что мне нужно:
procedure TGlav.Button3Click(Sender: TObject);
var MonthOf: word;
begin
with Table1 do
begin
First;
while not EOF do
begin
Table1.Edit;
Table1.FieldByName('mes').Value:=IntToStr(MonthOf(Table1.FieldValues['dotar']));
Table1.Post;
Next;
end;
end;
end;

Sandman25 (2004-12-30 12:26:00) [10]
mes - текстовое поле? Если да, то лучше сделать числовым

Наверх

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