Как увеличит TimeOut в AdoQuery

← →
amamed_3071 © (2002-03-30 09:17) [0]

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

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

← →
DiggerAbstract (2002-03-30 14:06) [1]

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

← →
DiggerAbstract (2002-03-30 14:06) [2]

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

← →
DiggerAbstract (2002-03-30 14:08) [3]

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

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

Как увеличит TimeOut в AdoQuery Найти похожие ветки