Array
(
)

Socorro - Timeout - ADO / SQL Server 2000

Gilcosme
   - 16 out 2003

Estou tendo problemas com o timeout. não consigo aumenta-lo, mesmo aumentando o ConnectionTimeout e o CommandTimeout, o limite de resposta na tela permanece de 1 minuto. Eu estou usando o seguinte codigo:

CREATE PROCEDURE SP_AtualizaHistorico
AS
INSERT INTO Historico(PesCod, PlaCod, CurCod, CurDat, Contato, Assunto)
SELECT DISTINCT E.PesCod, P.PlaCod, P.PlaCodRef, P.PlaDat, PP.ConCod, PP.PlaPesObs
FROM Pessoa as E INNER JOIN Planejamento_Pessoa as PP
on E.PesCod = PP.PesCod INNER JOIN Planejamento as P
on P.PlaCod = PP.PlaCod
WHERE NOT EXISTS (SELECT * FROM Historico
WHERE PesCod = E.PesCod and PlaCod = P.PlaCod)
GO

Obrigado !

Tathianam
   - 19 mai 2004

Olá Amigos!

Eu também estava me matando de tentar solucionar essa questão então achei uma solução para Delphi e decidi compartilhar com vocês.

Primeiro (sem sucesso) tentei configurar o servidor SQL para que não utilizasse o timeout, através da propriedade ´Query Governor´. Fiz a seguinte função (query com execsql):

USE banco_de_dados_sql EXEC sp_configure ´+chr(39)+´QUERY_GOVERNOR_COST_LIMIT´+chr(39)+´, ´+chr(39)+´999999´+chr(39)+ ´ RECONFIGURE WITH OVERRIDE

Porém ainda não sabia que o ADO tinha alguns problemas em relação ao tempo limite excedido, e por mais que eu aumentasse esse valor 999999 ainda assim dava a mensagem.

Então achei a solução definitiva: setar manualmente o timeout das SPs e Querys do meu formulário.

Resolução em Delphi (coloquei esta função em uma unit de sistema):

Citação:

type
TFriendDS = class(TCustomADODataSet);

procedure ResolveTimeOut(xForm:TForm);
var I: integer;
begin
with xForm do
begin
for I := 0 to ComponentCount - 1 do
if (Components[I] is TADOStoredProc) or (Components[I] is TADOQuery) then
TFriendDS(Components[I]).CommandTimeout := 999999;
end;
end;


Aí no form show bastou colocar a seguinte instrução:

Citação:
ResolveTimeOut(self);


É isso aí pessoal, se alguém souber de outra alternativa compartilhe também...!!!