![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TAdoDataSet
Hooch © (2003-08-29 13:59:00)
День добрый !
Есть TadoDataSet, LockType = ltBatchOptimistic, как узнать были ли изменения (удаления, вставки и редактирование) не выставля флажки на событиях, т.е. есть какое-нибудь свойство говорящее о том что данны были изменены ?
A_N_D (2003-08-29 16:12:00) [1]
function AnyModified(ADODS:TCustomADODataSet):boolean;
var CD: boolean;
BookMark: pointer;
begin
Result:=false;
CD := ADODS.ControlsDisabled;
if not(CD) then ADODS.DisableControls;
BookMark := ADODS.GetBookmark;
ADODS.FilterGroup:=fgPendingRecords;
ADODS.Filtered:=true;
if (ADODS.RecordCount>0) then Result:=true;
ADODS.Filtered:=false;
ADODS.GotoBookmark(Bookmark);
if not(CD) then ADODS.EnableControls;
end;
Vlad (2003-08-29 15:12:00) [2]
Не знаю как в ADO, а в BDE можно CachedUpdates сделать, и смотреть в кэш. Если там че есть, значит были изменения
Может в ADO нечто подобное есть ?
Hooch (2003-08-29 14:07:00) [3]
а как быть с удалёнными записями ? :-)
Vlad (2003-08-29 14:02:00) [4]
Для текущей записи - свойство Modified