Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Вниз

Dataset not in edit or insert mode 


weak   (2002-01-04 12:48) [0]

Помогите!!!
Есть запрос, который выбирает нужные записи:
SELECT G.NAME_POT, G.KOD, G.GRS, T.l_ch, G.KOD_POT, G.VETKA, F.LM
FROM "potrebitel.DBF" P INNER JOIN "GRS.dbf" G ON (P.NAME = G.NAME_POT INNER JOIN "Fakt_p.DBF" F ON (P.KOD = F.KOD) INNER JOIN "temperatura.DBF" T ON (T.KOD = G.KOD)
where chislo="01" and mesyac="01" and god="01"

а потом нужно нужно посчитать значение поля T.l_ch, разделив F.lm на 24:

FDate.Query1.FieldByName("l_ch").value:=FDate.Query1.FieldByName("lm").asinteger div 24;

А он мне выдает:
Dataset not in edit or insert mode

Что я не так делаю???



Val   (2002-01-04 12:56) [1]

пытаешься изменить неизменяемый запрос



weak   (2002-01-04 12:59) [2]

А как же мне заполнить столбец l_ch, разделив столбец lm на 24??



Fareader   (2002-01-04 13:01) [3]

1) А ты Query в Edit ставишь?
2) Подключи UpdateSQL, включи CachedUPdates и работай.



Val   (2002-01-04 13:16) [4]

кстати, так ты меняешь не столбец а одну строку



Fareader   (2002-01-04 13:29) [5]

Если ты не хранишь в таблице результаты своих вычислений, то более разумным будет использовать Calculeted Fields.
Да, и настоятельно рекомендую в этом куске

where chislo="01" and mesyac="01" and god="01"

дописать название таблиц перед именами полей, чтобы не возникло недоразумений.



weak   (2002-01-04 14:56) [6]

Нет, я пытаюсь поменять во всем столбце:

Fdate.Query1.First;
while not FDate.Query1.Eof do
begin
FDate.Query1.FieldByName("l_ch").value:=FDate.Query1.FieldByName("lm").asinteger div 24;
Fdate.Query1.Next;
end;



Fareader   (2002-01-04 15:14) [7]

Сделай так:
FDate.Query1.Edit;

FDate.Query1.FieldByName("l_ch").value:=FDate.Query1.FieldByName("lm").asinteger div 24;

FDate.Query1.Post;



Desdechado   (2002-01-05 18:38) [8]

можно и в самом запросе соорудить
SELECT G.NAME_POT, G.KOD, G.GRS, (F.LM)/24 AS l_ch, G.KOD_POT, G.VETKA, F.LM




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.027 c
7-9019            gunner                2001-10-25 17:43  2002.02.04  
Неизвестный модуль !


3-8798            Antoniz               2002-01-08 14:27  2002.02.04  
Как программно создать БД Interbase


1-8822            Аркадий               2002-01-20 00:27  2002.02.04  
Физические и логические диски


1-8872            IronHawk              2002-01-15 18:30  2002.02.04  
ОКРУГЛЕНИЕ ! ! ! . . .


1-8879            Ольга                 2002-01-16 15:10  2002.02.04  
ListBox-ы