| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Refresh TClientDataSet по Master-Detail связке [D5, MSSQL]
Ega23 © (2006-01-31 17:56:00)Вкратце, ситуация такова.
Есть Мастер-запрос (TADOQuery->TDataSource). На него смотрит грид.
Есть Деталь-запрос. Причём нужно, чтобы в конечном итоге данные из Detail-запроса оказались в TCleintDataSet.
Делаю стандартную связку TADOQuery->TDataSetProvider->TClientDataSet->TDataSource.
Для деталь-запроса поле в поле DataSource прописываю TDataSouce из мастер-запроса. Всё пучком.
НО. При обновлении данных в деталь-запросе данные в TClientDataSet НЕ ОБНОВЛЯЮТСЯ (да и не должны за просто так).
Вопрос: как мне лучше обновить TClientDataSet?
msguns (2006-02-01 11:01:00) [1]>Ega23 © (01.02.06 10:45) [15]
ok
Ega23 (2006-02-01 10:45:00) [2]
> Почему нельзя дерево держать в TList и пересоздавать его
> (все или начиная с соотв.узла) при перечитке детала.
> А уже TList можно отображать в том же стрингриде (если,
> конечно, там не сотни тыщ записей) как таблицу
Потому, что
a) На CDS смотрит DBTreeView
б) Нафига создавать дополнительные структуры, если уже готовые решения есть?
в) Ошибка была тривиальная. Всё уже прекрасно работает.
msguns (2006-02-01 10:09:00) [3]Мне тоже не понятно, зачем для "закачки" дерева и пакетного его обновления юзать CDS. Почему нельзя дерево держать в TList и пересоздавать его (все или начиная с соотв.узла) при перечитке детала.
А уже TList можно отображать в том же стрингриде (если, конечно, там не сотни тыщ записей) как таблицу
sniknik (2006-01-31 19:57:00) [4]> Дело в том, что он мне возвращает достаточно большую "деревянную" выборку, где надо данные подготовить на клиенте, и потом одной пачкой
> отправить на сервер. Пользование чем-либо, типа TTable не катит ...
"катит" пользоваться TADODataSet c установденным LockType в ltBatchOptimistic (батч апдейте режим - аналог клиентского датасета)
посмотри. всяко проще будет без "левых" длинных связок.
Ega23 (2006-01-31 18:41:00) [5]ЕДРИТЬ ТВОИ ЛАПТИ!!!
aqAllObjects.Close;
aqAllObjects.SQL.Add(ss);
aqAllObjects.Open;
А SQL.Clear конечно, Дядя Вася делать будет...
Тьфу, блин, на такой ерунде пол-дня потерял...
Ega23 (2006-01-31 18:30:00) [6]
> Это о-о-очень странно... М.б. повнимательней код поковырять?
Так. Похоже это деталь-запрос не обновляется. Сейчас ещё помучаю...
Johnmen (2006-01-31 18:25:00) [7]>Не обновляется, скотина...
Это о-о-очень странно... М.б. повнимательней код поковырять?
Ega23 (2006-01-31 18:23:00) [8]
> Close-Open?
Да пробовал. И с разными выкрутасами, типа EmptyDataSet, и без них.
Не обновляется, скотина...
Johnmen (2006-01-31 18:21:00) [9]Close-Open?
Ega23 (2006-01-31 18:21:00) [10]
> может лучше им вообще не пользоваться? при такой то связке
> в одном приложении.
Дело в том, что он мне возвращает достаточно большую "деревянную" выборку, где надо данные подготовить на клиенте, и потом одной пачкой отправить на сервер. Пользование чем-либо, типа TTable не катит, т.к. захватит таблицу в экслюзив. А свою структуру "наворачивать" - средства отображения НД не увидят изменений.
Johnmen (2006-01-31 18:20:00) [11]Интересная загогулина...:)
Johnmen (2006-01-31 18:18:00) [12]>В том-то и дело, что нифига... :-(
Т.е. TClientDataSet.Refresh нифига?
Ega23 (2006-01-31 18:18:00) [13]
> Т.е. TClientDataSet.Refresh нифига?
Угу...
sniknik (2006-01-31 18:14:00) [14]> как мне лучше обновить TClientDataSet?
может лучше им вообще не пользоваться? при такой то связке в одном приложении.
Ega23 (2006-01-31 18:09:00) [15]
> Refresh ?
В том-то и дело, что нифига... :-(
Я уже и Master-Detail заменил на вызов обработчика в MasterDataSource.OnDataChange:
procedure TGUIAccRolePropsFrame.dsAccRolesDataChange(Sender: TObject;
Field: TField);
var
RoleID:Integer;
ss:String;
begin
RoleID:=aqAccRoles.FieldByName('ObjID').AsInteger;
ss:='exec S_TAccessRole @ActNam=''ACCMETPL.SEL'','+
' @RoleID='+ValX(RoleID);
aqAllObjects.Close;
aqAllObjects.SQL.Add(ss);
aqAllObjects.Open;
if not cdsAllObjects.Active then
cdsAllObjects.Open
else
cdsAllObjects.Refresh;
end;
aqAccRoles:TADOQuery (Мастер-запрос)
aqAllObjects:TADOQuery (Detail-запрос)
cdsAllObjects:TClientDataSet
Johnmen (2006-01-31 18:00:00) [16]Refresh ?
| |
