Обновление TClientDataSet

← →
Eugene_e © (2003-06-20 14:43) [0]

Добрый день!
Исходные данные:
- Есть клиент TClientDataSet, получающий данные с использованием RemoteServer

Вопрос к знатокам: каким способом можно корректно установить указатель на запись добавленную в TClientDataSet, после обновления данных на сервере с помощью TClientDataSet.ApplyUpdates(). Проблема заключается в том, что набор содержит ключевое автоинкрементное поле, значение которого нужно получить на клиента обратно. Вариант работы не обязательно однопользовательский.

С уважением, Евгений

← →
Polevi © (2003-06-20 14:49) [1]

см DatasetProvider.BeforeUpdateRecord

← →
Eugene_e © (2003-06-20 15:07) [2]

А чем сей метод может быть мне полезен?
Хотелось бы понять могу я сделать это без излишних манипуляций? Теоретически я понимаю, что используя DatasetProvider.BeforeUpdateRecord() я могу заменить процедуру добавления записи убрав данную запись из DeltaDS, получив код добавленной записи через тот же @@Identity (MSSQL), а затем вернув это значение в DatasetProvider.AfterApplyUpdates(), но как-то громоздко выглядит.
Может у кого-нибудь еще есть предложения?

← →
Juggler (2003-06-20 16:44) [3]

Как это ты не знаеш значение ключевого поля?
Ограничения на поля не дадут просто внести запись в локальный кэш.
если нет значения ключевого поля.
Геморой в MIDAS с автоинкрементальными полями.
Еще до ApplyUpdates добраться надо.;)

← →
Eugene_e © (2003-06-20 17:50) [4]

Как раз в локальный кэш я и могу добавить запись без значения ключевого поля (того, что ключевое по базе) и даже сохранить ее на сервере без всякой обработки в BeforeUpdateRecord(), но вот получить обратно значение автоинкрементного поля проблемно :)

← →
AkaSaint © (2003-06-21 00:10) [5]

У меня такая же ситуация, я после ApplyUpdates делаю в клиентском НД Locate по всем полям, кроме автоинкрементного. Но тут такой недостаток, что если все остальные поля, кроме автоинкрементного, могут составить неуникальное значение, то будет ай-ай-ай.

>Eugene_e © (20.06.03 15:07)
все правильно, только
>а затем вернув это значение в DatasetProvider.AfterApplyUpdates()

не нужно, надо так

DeltaDS.FieldByName("ID").NewValue:=@@IDENTITY

Манипуляции с DeltaDS можно производить в DatasetProvider.AfterUpdateRecord(), однако внесение изменений в DeltaDS не проходит, хотя после обновления мастер-записи значение автоинкрементного поля уже доступно через SourceDS.FieldByName("ID").AsInteger

Всем спасибо за отклики.

В результате выяснилось что проблема решается следующим образом:

a) для TDataSetProvider устанавливаем опции [poAutoRefresh,poPropogateChanges]
б) TDataSetProvider.ResolveToDataSet установлен [True]
в) Обработчик TDataSetProvider.AfterUpdateRecord() формируется наподобие следующего:

procedure TSCSRVXD.ds_wpAfterUpdateRecord(Sender: TObject; SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind: TUpdateKind); var fld: TField; begin try fld := DeltaDS.FieldByName("ID"); except //По желанию чего-нибудь end; fld.ReadOnly := False; //Если был установлен try fld.NewValue := SourceDS.FieldByName("ID").AsVariant; except //По желанию чего-нибудь end; fld := nil; end;

Таким образом после выполнения на клиенте TClientDataSet.ApplyUpdates(), позиция сразу будет содержать значение автоинкрементного поля.

Евгений
PS. Проверено: D6, MSSQL7

Обновление TClientDataSet Найти похожие ветки