Как обрубить sql запрос, который работает в отдельном потоке?

← →
Chestniy (2003-06-24 15:38) [0]

Доброго Времени Суток!
Вопрос видимо стандартный, но ответа на него пока не нашел. Используется MsSQL (7.5 и 2000) с доступом через ADO. При каждом обращении к бд открывается новый поток, в рамках которого запрос и выполняется. Теперь вопрос - как корректно остановить выполнение запроса (например, по желанию пользователя, которому надоело ждать :)? Если просто TerminateThread - остается блокировка на сервере.

← →
stone (2003-06-24 15:41) [1]

destructor TYourThread.Destroy;
begin
with ADOCommand do
if stExecuting in States then
Cancel;
with ADOConnection do
if InTransaction then
RollbackTrans;
inherited;
end;

← →
Chestniy (2003-06-24 16:31) [2]

Спасибо за быстрый ответ :)
но .. увы, виснет.
делаю вначале TerminateThread, потом вызываю Thread.Destroy.
В обработчик попадает, но потом виснет на первой же строчке ...
Другими словами если после вызова TerminateThread обратиться к компонентам работы с бд (ADOConnection, ADOCommand и т.п. ), то приложение безжалостно виснет. А если к ним не обрашаться - то как обрубить поток?

← →
stone (2003-06-24 16:52) [3]

> Chestniy (24.06.03 16:31)

> делаю вначале TerminateThread
Этого достаточно

Не надо никуда обращаться, а тем более вызывать Thread.Destroy
Компоненты (ADOConnection, ADOCommand и т.п. ) для потока, должны быть определены именно в потоке путем создания или присваивания. В Execute перед каждым запуском ADOCommand.Execute должно стоять if not Terminated. При создании потока в Constructor указывается FreeOnTerminate := true

Вроде все... если чего не забыл

Как обрубить sql запрос, который работает в отдельном потоке? Найти похожие ветки