SQL

← →
petvv © (2006-05-19 13:14) [0]

Доброго времени суток господа !

У меня следующий вопрос:

Вот код:

for i:=0 to qOsn.RecordCount do
begin
qFuel.Close;
qFuel.Params[0].AsInteger:=qOsn.Fields[0].AsInteger;
qFuel.Active:=True;
qOsn.Fields[4].AsString:=qFuel.Fields[0].AsString; << -- А вот здеся он мне пишет qOsn: Dataset not in edit or insert mode.

qOsnov.Close;
qOsnov.Params[0].AsInteger:=qOsn.Fields[1].AsInteger;
qOsnov.Active:=True;
qOsn.Fields[5].AsString:=qOsnov.Fields[0].AsString;
qOsn.Next;
end;

Что я не так делаю ? Объясните плз.

← →
Desdechado © (2006-05-19 13:22) [1]

для редактирования нужно перевести этот датасет в режим редактирования
методом Edit, Insert, Append

← →
Vlad © (2006-05-19 13:22) [2]

> petvv © (19.05.06 13:14)

> << -- А вот здеся он мне пишет qOsn: Dataset not in edit
> or insert mode

qOsn.Edit;
qOsn.Fields[4].AsString:= ...
qOsn.Post;

← →
Sergey13 © (2006-05-19 13:23) [3]

>Что я не так делаю ?
Не читаешь то, что "он" ТЕБЕ пишет. 8-)

← →
Johnmen © (2006-05-19 13:24) [4]

1. Нумерация записей нач. с 1, а не с 0.
2. В режим редактирования набор данных переводится вызовом метода Edit.

PS
Цикл по зписям делается не так. Но так while not Eof do begin

← →
petvv © (2006-05-19 13:30) [5]

Вставил следующий код
qOsn.Edit;
qOsn.Fields[4].AsString:=qFuel.Fields[0].AsString;
qOsn.Post;
А он мне

qOsn: Cannot modify a read-only dataset.

Да qOsn это запрос вот код

qOsn.Params[0].AsDateTime:=DateBeg.Date;
qOsn.Params[1].AsDateTime:=DateEnd.Date;
qOsn.Active:=True;
for i:=0 to qOsn.RecordCount do
begin
qFuel.Close;
qFuel.Params[0].AsInteger:=qOsn.Fields[0].AsInteger;
qFuel.Active:=True;
qOsn.Edit;
qOsn.Fields[4].AsString:=qFuel.Fields[0].AsString;
qOsn.Post;
qOsnov.Close;
qOsnov.Params[0].AsInteger:=qOsn.Fields[1].AsInteger;
qOsnov.Active:=True;
qOsn.Fields[5].AsString:=qOsnov.Fields[0].AsString;
qOsn.Next;
end;

Work with read-only dataset
есть такая тема в хелпе.

TQuery+F1 -> Using TQuery -> Updating read-only result sets

SQL Найти похожие ветки