| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Снятие аттрибута ReadOnly с полей в TClientDataSet
Rem © (2003-12-18 17:11:00)
Проблема вот в чем:
- данные через TADOQuery запрашиваются из БД; запрос связанный - из нескольких таблиц;
- через TDataSetProvider (локальный) данные передаются в TClientDataSet
ClientDataSet.SetProvider(Provider);
ClientDataSet.Open;
- и в результате у TClientDataSet некоторые поля имеют аттрибут ReadOnly, так как обратная их запись невозможна (они вытянуты первичным запросом из других таблиц)
Установка ReadOnly := false для ClientDataSet и полей не помогает, так как это свойство установлено у курсора более низкого уровня. Интерфейс доступа к данным IDSBase напрочь отказывается это делать.
И при попытке изменить эти поля выскакиевает Exception "Can"t modify read-only field".
Для чего это надо? Загруженные единожды данные хранятся в памяти компбьютера и периодически обновляются: периодически считывается изменившаяся(иеся) строка(и) из БД - и переписывается(ются) в ClientDataSet для отображения пользователю.
Может, кто в курсе, что делать? Заранее благодарен!
Rem (2003-12-19 14:11:00) [1]
2 Mik Prokoshin
Они не снимаются, в том то и дело. Как ADO, так и ClientDataSet работают с данными через COM, а интерфесы наборов данных не позволяют снимать этот аттрибут, ругаются.
Но я все же решил эту проблему. ClientDataSet использует два интерфеса: DSBase - для хранения данных, и DSCursor - для доступа к данным. И как раз DSCursor не позволяет записывать данные в свои ReadOnly поля. А DSBase это все равно. Поэтому можно получить прямой доступ к данным через интерфейс DSBase:
var
Packet: TDataPacket;
UpdateDS.DSBase.StreamDS(Packet);
if BaseDS.Locate("Код", a_sID, []) then
begin
BaseDS.DSCursor.GetRecordNumber(iRecNum);
BaseDS.DSBase.RefreshRecords(Packet, iRecNum, 0, nil);
end
else
BaseDS.DSBase.AppendData(Packet, true);
Правда, после обновления/записи данных надо вручную обновить курсор. Но это уже просто:
BaseDS.UpdateCursorPos;
BaseDS.Resync([]);
Так что вот как-то так... Спасибо всем!... :)
Mik Prokoshin (2003-12-19 06:43:00) [2]
Сними ReadOnly у полей нижележащей таблицы. Но получишь потом проблемы при записи таблиц в БД.
Polevi (2003-12-18 17:58:00) [3]
не очень хороший вариант, но на крайний случай можешь пошаманить с ClientDataset.XmlData - убрать оттуда тег ридонли и присвоить другому ClientDataset.XmlData
Rem (2003-12-18 17:55:00) [4]
И?...
| |
