Скачать: CL | DM;

Извлечение месяца   Найти похожие ветки 

← →
Georji   (2004-12-30 12:23) [0]

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

---

← →
Sandman25 ©   (2004-12-30 12:26) [1]

mes - текстовое поле? Если да, то лучше сделать числовым

---

← →
Georji   (2004-12-30 12:27) [2]

Опишу точнее. Думаю так понятнее, что мне нужно:
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;

---

← →
Georji   (2004-12-30 12:30) [3]

Сделал числовым, все равно та же ошибка: "Missing operator or semicolon"

---

← →
Anatoly Podgoretsky ©   (2004-12-30 12:31) [4]

1. Почему ты используеешь переменную как функцию или приведение типа?
2. Ты сообщение об ощибке читал?

---

← →
Sandman25 ©   (2004-12-30 12:32) [5]

Это компилируется? Переменная 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;

---

← →
Соловьев ©   (2004-12-30 12:36) [6]

update table
set mes = extract(month from dotar)

---

← →
Georji   (2004-12-30 12:44) [7]

Спасибо! Всех с наступающим Новым годом!!! Успехов во всех делах!

---

← →
Sergey13 ©   (2004-12-30 12:48) [8]

2Georji   (30.12.04 12:23)
Не делай этого вообще. Незачем. 8-)

---

← →
Sandman25 ©   (2004-12-30 12:50) [9]

[8] Sergey13 ©   (30.12.04 12:48)

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

---

← →
Georji   (2004-12-30 12:56) [10]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c