Форум: "Начинающим";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];
ВнизПомогите плз... 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
← →
msguns © (2005-10-11 12:20) [2]Смешались в кучу кони (курсоры), люди (рефреши)..
А просто почитать справку по ADO, например про транзакции ?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.042 c