| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Востановление записей помечанных на удаление [D6, dBase, FoxPro]

sterran ©   (2003-01-15 09:35:00) 

Уважаемые мастера, у меня к Вам такой вопрос, работает ли процедура востановления помечанных на удаления записей dbiSetProp с TQuery, если да подскажите как.

---

Соловьев   (2003-01-15 10:33:00) [1]

>>помечанных на уделение записей у TQuery
А как это понимать? Если ты хочешь физически, так кто тебе мешает проверить это?
Ты же сам писал :
procedure TForm1.Button1Click(Sender: TObject);
begin
dbiSetProp(hDBIObj(Query1.Handle), curSOFTDELETEON, 1);
Table1.Refresh;
end;
Так F9 и пробуй...

---

steran   (2003-01-15 10:29:00) [2]

Причем здесь это. Если мне не изменяет память, то UpdateStatus служит для коррекции записей при изменении НД (вставка, удаление или редактирования), а мне бы нужно узнать существуют ли способы востановления помечанных на уделение записей у TQuery

---

Соловьев   (2003-01-15 10:18:00) [3]

UpdateStatus посмотри.

---

steran   (2003-01-15 10:13:00) [4]

> TQuery возвращает "жывые" данные?

Да


> Для этого есть свои методы у TQuery

Можете подсказать

---

Соловьев   (2003-01-15 10:10:00) [5]

TQuery возвращает "жывые" данные?
А вообще, для воостановления такого типа данных, которые в памяти, функции БДЕ не применимы... Для этого есть свои методы у TQuery и TTable.

---

steran   (2003-01-15 10:04:00) [6]

Про TTable я знаю, что работает, а я вот какой способ имел ввиду, будет ли он работать?

procedure TForm1.Button1Click(Sender: TObject);
begin
dbiSetProp(hDBIObj( Query1.Handle), curSOFTDELETEON, 1);
Table1.Refresh;
end;

---

Соловьев   (2003-01-15 09:56:00) [7]

Показывать удаленные:

procedure TForm1.Button1Click(Sender: TObject);
begin
dbiSetProp(hDBIObj(Table1.Handle), curSOFTDELETEON, 1);
Table1.Refresh;
end;

Скрыть:

procedure TForm1.Button2Click(Sender: TObject);
begin
dbiSetProp(hDBIObj(Table1.Handle), curSOFTDELETEON, 0);
Table1.Refresh;
end;

Восстановить:
procedure TForm1.Button3Click(Sender: TObject);
begin
if Table1.State=dsBrowse then Table1.Edit;
if DbiUndeleteRecord(Table1.Handle) = 0 then
Table1.Refresh
else
MessageDlg("Record NOT deleted",mtError,[mbOK],0);
end;

---

Наверх