Помогите плз... Delphi7>ADO>Access

← →
Серг73 (2005-10-11 09:48) [0]

clUseServer/ilCursorStability/ltBatchOptimistic

procedure TForm1.DataUpply(Tbl: TADOTable);
var
TSS:TRecordStatusSet;
begin // пересылка изменений таблицы в базу данных
while Tbl.UpdateStatus<>usUnmodified do
begin
try
Tbl.UpdateBatch(arCurrent); //пересылка изменений в базу данных
except
try
Tbl.Refresh; // !!! Вот как обновить UpdateStatus или RecordStatus???
// Этот Refresh срабатывает раза с 10-го, а иногда и не помагает :((
except
on E2: Exception do
begin
log ("except2: "+E2.Message+" #"+IntToStr(E2.HelpContext));
end;
end;
TSS:=Tbl.RecordStatus;
// здесь может быть обработка TSS
end;
end;
end;

или может я вообще плохо этот DataUpply задумал?

← →
Серг73 (2005-10-11 10:58) [1]

Извиняюсь не clUseServer, а clUseClient

Смешались в кучу кони (курсоры), люди (рефреши)..
А просто почитать справку по ADO, например про транзакции ?

Помогите плз... Delphi7>ADO>Access Найти похожие ветки