El resultado de un Stored Procedure y los tiempos de Delphi.

[TiammatMX]

Buena tarde, jóvenes.

Tengo un pequeño detallín con el resultado de un Stored Procedure, el cual tiene un tiempo de procesamiento de más de 15 minutos, un mundo de tiempo que el venerable Delphi 6 que estoy usando para desarrollar la aplicación con un TADOQuery que recoge ése resultado no alcanza a procesar; al grado que inicia el procesamiento de ése SP y la aplicación Delphi "cierra" la conexión, tira el servicio y no muestra el resultado en un reporte, que es la finalidad de ésta aplicación.

¿Alguna idea que me permita ejecutar el Stored Procedure HASTA QUE TERMINE y arroje el resultado deseado al reporte?

[Casimiro Noteví]

jejeje... tenemos la bola de cristal averiada, a ver si los reyes magos nos trae una nueva

Mejor sería que nos dieras más datos, por ejemplo, la base de datos que usas, el código del store procedure, el código fuente delphi de cómo lo usas, la tabla o tablas que estás usando, datos adicionales que estimes oportuno para que podamos ayudarte.
Gracias.

[TiammatMX]

Empezado por Casimiro Notevi

jejeje... tenemos la bola de cristal averiada, a ver si los reyes magos nos trae una nueva ...

Cierto, perdón...

MS SQLServer 2008 R2, el código fuente del SP es ENORME, tanto que el editor de tópicos de ClubDelphi me lo acaba de rechazar.

Código Delphi del llamado:

Código Delphi [-]
 with Rprt.adoqryDtsRprt do
  begin
    Close;
    SQL.Clear; // 20111010 FEOL Se añade los nuevos parámetros.
    SQL.Add('SET DATEFORMAT DMY ' + #13 + #10 + DevuelveSP(IntToStr(iIdntfcdrRprt)) + ' ' +
      IntToStr(iIdntfcdrRprt) + ', ' + QuotedStr(DateToStr(dtetmepckrFchDsd.Date)) + ' , ' +
      QuotedStr(DateToStr(dtetmepckrFchHst.Date)) + ', ' + sDsgls + ', 0, 0,' + sPcntsEgrsds +
      ', 0, ' + sFechaPivote);
    wsNmbrArchv := SQL.Text;
    Open;
  end;

Si el Stored Procedure se corre por fuera de Delphi, tarda entre 25 y 35 minutos en arrojar resultados..., dentro de Delphi, simplemente nunca termina.

[Casimiro Noteví]

Pues si no podemos mirar nada

Verifica que tienes índices en los campos involucrados, aunque lo que yo haría es usar el "divide y vencerás"
Empieza a "recortar" la sql y ve probando que vaya rápido, si va bien entonces añades algo más y pruebas... y así poco a poco hasta que llegues al "culpable".

[[duilioisola]]

No veo el código. Deberás ponerlo entre[ delphi ] y [ /delphi ].

Parece que es:

Código Delphi [-]
with Rprt.adoqryDtsRprt do 
begin 
  Close; 
  SQL.Clear; 
  // 20111010 FEOL Se añade los nuevos parámetros. 
  SQL.Add('SET DATEFORMAT DMY ' + #13 + #10 + 
    DevuelveSP(IntToStr(iIdntfcdrRprt))+' '+ 
    IntToStr(iIdntfcdrRprt)+', '+ 
    QuotedStr(DateToStr(dtetmepckrFchDsd.Date))+', '+ 
    QuotedStr(DateToStr(dtetmepckrFchHst.Date))+', '+ 
    sDsgls+', 0, 0,'+
    sPcntsEgrsds+', 0, '+ 
    sFechaPivote); 
  wsNmbrArchv := SQL.Text; 
  Open; 
end;

• Tu problema puede ser que la transacción tenga un tiempo de timeout "pequeño" para tu requerimiento. (Mira ADOQuery.CommandTimeOut)
• También puede ser que otra transacción colisione con la del listado y genere un error.
• Puede ser también que la cantidad de líneas que devuelve el procedimiento sean demasiadas. Prueba a poner el AdoQuery.CursorLocation = clUseServer.

[TiammatMX]

Empezado por duilioisola

• Tu problema puede ser que la transacción tenga un tiempo de timeout "pequeño" para tu requerimiento. (Mira ADOQuery.CommandTimeOut)

TimeOut a 0, o sea, a infinito. Por ese lado, descartamos el problema.

Empezado por duilioisola

• También puede ser que otra transacción colisione con la del listado y genere un error.

No uso transacciones, son SP's que sólo producen datos.

Empezado por duilioisola

• Puede ser también que la cantidad de líneas que devuelve el procedimiento sean demasiadas. Prueba a poner el AdoQuery.CursorLocation = clUseServer.

Devuelve solamente 88 filas, el más largo de ellos.

[[Chris]]

Estimado Colega, sin ánimo de ofender, sinceramente pienso que un Stored Procedure que dure casi media hora es inaceptable. A cómo ha comentado Casimiro arriba, es mejor que busques como optimizar el tiempo de respuesta de ése procedimiento. Tienes que hacer un análisis exhaustivo de él y ver que índices son necesarios para mejorar su rendiemiento y además debes fijarte que las clausulas SQL sean las óptimas.

Saludos,
Chris