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

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

Как увеличит TimeOut в AdoQuery [D5, D6, MSSQL]


amamed_3071 ©   (2002-03-30 09:17:00) 

В проект прибавляеш модул ADODB.Pas.
В этом модуле находиш строку
Recordset.Open(Source, ActiveConnection,
CursorTypeValues[FCursorType], LockTypeValues[FLockType],
CommandTypeValues[CommandType] + ExecuteOptionsToOrd(ExecuteOptions));

перед этой стракой прибавляеш
SetCommandTimeout(900);


amamed_3071   (2002-03-30 14:41:00) [1]

Лучше Один раз написат SetCommandTimeout(900);
чем 100 раз писать TADODataSet(ADOQuery).CommandTimeOut := 1000;


DiggerAbstract   (2002-03-30 14:08:00) [2]

Sorry - сначало был пример из моей программы


DiggerAbstract   (2002-03-30 14:06:00) [3]

а можно проще - в программе перед открытием или после создания ADOQuery пишешь:
TADODataSet(DM.ADOQueryInsSums1AU).CommandTimeOut := 1000;
и фсё


DiggerAbstract   (2002-03-30 14:06:00) [4]

а можно проще - в программе перед открытием или после создания ADOQuery пишешь:
TADODataSet(ADOQuery).CommandTimeOut := 1000;
и фсё


Наверх

Титульная страница Поиск, карта сайта Написать письмо