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

Вниз

Помогите плз... 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;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.039 c