Как узнать была ли изменена база?

← →
mlitkin (2005-01-31 04:51) [0]

Подскажите, пожалуйста, как узнать была ли изменена база перед тем, как делать commit транзакции? Т.е. есть ли несохраненные с помощью commit изменения. Это для того, чтобы, например, определить нужно ли выдавать MessageDlg с вопросом сохранять ли изменения или нет. Запросы некэшированные.

← →
Deniz (2005-01-31 06:57) [1]

Какими компонентами пользуешься?

← →
jack128 © (2005-01-31 08:10) [2]

Так пойдет?
procedure TForm1.IBDataSet1AfterPost(DataSet: TDataSet); begin FChangeFlag := True; end; procedure TForm1.Button1Click(Sender: TObject); begin if Transaction1.InTransaction then begin if FChangeFlag and (MessageBox(Handle, PChar("Сохранить изменения?"), "", MB_YESNO) = IDYES) then Transaction1.Rollback else Transaction1.Commit; FChangeFlag := False; end; end;

← →
jack128 © (2005-01-31 08:11) [3]

Сорри, так, конечно, надо MessageBox(Handle, PChar("Сохранить изменения?"), "", MB_YESNO) = IDNO

← →
mlitkin (2005-01-31 08:26) [4]

Deniz
Я пользуюсь IB-компонентами (IBDataSet, IBTransaction и др.).

jack128 ©
Неее. С помощью переменной эт мне не нравится. Так я умею. Хотелось бы как-то узнать, есть ли незакомиченные изменения или нет...

mlitkin (31.01.05 8:26) [4]
С помощью переменной эт мне не нравится.
В явном или неявном виде переменная всегда будет использоваться...

IBTransaction.InTransaction
и см [2]

Как узнать была ли изменена база? Найти похожие ветки