[Uniq!]

Есть три таблицы, каждая с автоинкрементируемым полем.
Они же являются и ключевыми.

Дом(Object) -> Квартиры(Flats) -> Приборы(Devs)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

SELECT   Objects.`ID`,   Flats.`ID` AS FlatID,   Flats.`Title`,   Flats.`Entrance`,   Flats.`Floor`,   Devs.`ID` AS DevID,   Devs.`FlatID` AS DevFlatID,   Devs.`Nr`,   Devs.`Type`,   Devs.`ErrID`,   Devs.`Archive` FROM   Objects   LEFT JOIN Flats     ON Flats.`ObjectID` = Objects.`ID`   LEFT JOIN Devs     ON Devs.`FlatID` = Flats.`ID` WHERE Objects.`ID` = :ObjectID

Этот запрос храню в ObjectImg: TADODataSet

При попытке обновить Devs.Archive вот таким вот методом:

Код:

1 2 3

ObjectImg.Edit; ObjectImg['Archive'] := -1; ObjectImg.Post;

Выдаётся сообщение:

Недостаточные сведения о ключевом столбце для обновления

Все таблицы связаны Каскадно и на обновление и на удаление (позволительно в моём случае)
В поисковиках удалось лишь найти информацию о том, что результат сJOINенных таблиц является статичным и его нельзя редактировать.
Совершенно не ясно зачем тогда в БД у связей есть свойства OnUpdate и OnDelete.

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

[Aristarh Dark]

Я когда-то пытался сделать рабочими связи между таблицами с помощью свойств DataSource и MasterFields. С двумя таблицами такое работало. Но потом я перешел на принцип: все изменения в БД делаются с помощью хранимых процедур и эта проблема пропала.

[Страдалецъ]

Вот для таких случаев и сделан LockType = ltBatchOptimistic и обработка через UpdateBatch

[Uniq!]

Сообщение от Страдалецъ

Вот для таких случаев и сделан LockType = ltBatchOptimistic и обработка через UpdateBatch

А можно чуть подробнее? Я работал в этом режиме, но использовал его чтобы избежать постоянного обновления БД загружая в неё большой объём данных. Т.е. я сначала делал все изменения на клиенте, а потом переносил их в Базу командой UpdateBatch. Но там я работал с каждой таблицей в отдельности.

[Страдалецъ]

Суть идеи в том, что в этом режиме данные не пишутся сразу в базу, а хранятся в памяти этим и можно воспользоваться. Вот скажем у меня есть вот такая структура и запрос к ней:

Код:

1 2	SELECT Building.Building, Floor.Floor, Room.Room, Socket.Socket FROM ((Building INNER JOIN Floor ON Building.BuildingId = Floor.BuildingID) INNER JOIN Room ON Floor.FloorId = Room.FloorID) INNER JOIN Socket ON Room.RoomId = Socket.RoomId;

Такой запрос нельзя редактировать напрямую, поэтому мы выставляем для него:

Код:

1	ADOQuery1.LockType := ltBatchOptimistic;

и самостоятельно обрабатываем сохранение данных:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

procedure TForm9.ADOQuery1AfterPost(DataSet: TDataSet); Var DS: TAdoDataSet;     ID: Integer; begin  DS := TAdoDataSet.Create(nil);  DS.Connection := AdoConnection1;    DS.CommandText := 'Building';  DS.CommandType := cmdTable;  DS.Open;  DS.AppendRecord([nil, DataSet['Building']]);  ID := DS['BuildingID'];  DS.Close;    DS.CommandText := 'Floor';  DS.CommandType := cmdTable;  DS.Open;  DS.AppendRecord([nil, ID, DataSet['Floor']]);  ID := DS['FloorID'];  DS.Close;    DS.CommandText := 'Room';  DS.CommandType := cmdTable;  DS.Open;  DS.AppendRecord([nil, ID, DataSet['Room']]);  ID := DS['RoomID'];  DS.Close;    DS.CommandText := 'Socket';  DS.CommandType := cmdTable;  DS.Open;  DS.AppendRecord([nil, ID, DataSet['Socket']]);  DS.Close;    DS.Free; end;