Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

база DBase   Найти похожие ветки 

 
alexela   (2002-08-03 21:10) [0]

Привет, всем! Может я чего пропустил, но вопрос таков. У меня в таблице (типа
DBase IV)есть удаленные записи.На самом деле они только помечены на удаленияе,т.
е. не видны в DBGreed, хотя в физической таблице присутствуют и поэтому путают
прогу, например, при подсчете количества записей. Можно ли программно выловить
эти записи, а потом вернуть им исходный атрибут ( снять метку на удаление)? Или
удалить конкретную, имеющую метку на удаление, запись, не трогая другие "удален
-ные"? Метод PakTable грохает все удаленные записи.
Иначе : можно ли в таблице программно восстановить удаленные записи?
С уважением.


 
Anatoly Podgoretsky ©   (2002-08-03 21:35) [1]

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


 
Jeer ©   (2002-08-03 22:02) [2]

DbiUndeleteRecord поищи ссылки


 
ValWhite   (2002-08-04 14:19) [3]

В компоненте THalcyonDataSet (работет с таблицами DBASE напрямую без BDE) есть метод Recall. Восстанавливает запись, помеченную как удаленная. Также есть свойство UseDeleted определяет показывать ли записи, помеченные как удаленные.


 
ValWhite   (2002-08-04 14:28) [4]

Либо, если все-таки с BDE, делай как советует Jeer - DbiUndeleteRecord
Пример из хэлпа:
procedure fDbiUndeleteRecord(dBASETbl: TTable);
var
CProps: CurProps;
begin
Check(DbiGetCursorProps(dBASETbl.Handle, CProps));
// Raise an EDBEngineError exception if the table is not dBASE
if (StrIComp(CProps.szTableType, szDBASE) <> 0) then
raise EDBEngineError.Create(DBIERR_NOTSUPPORTED);
// Raise an EDatabaseError exception if the cursor does not have soft deletes on
if (CProps.bDeletedOn = False) then
raise EDatabaseError.Create("Soft deletes is not on");

Check(DbiUndeleteRecord(dBASETbl.Handle));
end;



Страницы: 1 вся ветка

Текущий архив: 2002.08.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
1-71238
amochkin
2002-08-11 20:43
2002.08.22
Прорисовка на desktop


1-71188
Vint44
2002-08-09 16:28
2002.08.22
Адрес функции


1-71103
kronprince
2002-08-12 16:16
2002.08.22
Заполнение TStringList из справочников ???


3-70975
Arso
2002-08-04 23:05
2002.08.22
Совместная работа ExpressQuantumGrid и Halcyon v 6.94


4-71435
jj
2002-06-18 20:44
2002.08.22
Сообщения - где эта очередь и кто крайний?