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

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

Помогите плз... Delphi7>ADO>Access [D7, XP]

Серг73 ©   (2005-10-11 09:48:00) 

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 задумал?

---

msguns   (2005-10-11 12:20:00) [1]

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

---

Серг73   (2005-10-11 10:58:00) [2]

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

---

Наверх