Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Cómo trabajar con los parámetros de un procedimiento almacenado? (https://www.clubdelphi.com/foros/showthread.php?t=40415)

efelix 15-02-2007 22:41:16

Cómo trabajar con los parámetros de un procedimiento almacenado?
 
Me disculpan pero este tema ya lo había publicado pero con otro titiulo, que pasa que sin darme cuenta había otro tema casí con el mismo titulo, solo cambiaba en una preposisción, y parece que según el estilo del foro supongo yo, por que no lo he leído completo aquellos hilos que tengan casí el mismo titulo y a los que se les haya adado respuesta se sugeriran como respuesta para el nuevo.
Hola a todos, después de agotar todas las posibilidades acudo a ustedes una vez mas para que me ayuden. tengo el siguiente problema, tengo un procedimiento almacenado en sql server 2000:

Código SQL [-]
CREATE PROCEDURE spAntiguedad
                            (@Proveedor int,    
                             @Proveedor1 int,                         
                             @Fecha1 datetime,
                             @Fecha2 datetime) 
AS
SELECT     Proveedores.IdProveedor, Proveedores.NombreProveedor, Facturas.IdFactura, Facturas.Descripcion, Facturas.Importe, Facturas.FechaRecepcion, DATEDIFF(day, FechaRecepcion, GETDATE()) AS Saldo, 
                    CASE
                        WHEN DATEDIFF(day, FechaRecepcion, GETDATE()) > 0  AND  DATEDIFF(day, FechaRecepcion, GETDATE()) < 31 THEN Facturas.Importe END MENOSDE30dias,
                    CASE
                        WHEN DATEDIFF(day, FechaRecepcion, GETDATE ()) > 30  AND  DATEDIFF(day, FechaRecepcion, GETDATE()) < 61 THEN Facturas.Importe  ELSE 0 END ENTRE3060dias,
                    CASE
                        WHEN DATEDIFF(day, FechaRecepcion, GETDATE()) > 60  AND  DATEDIFF(day, FechaRecepcion, GETDATE()) < 91 THEN Facturas.Importe ELSE 0 END ENTRE6090dias,
                    CASE
                        WHEN DATEDIFF(day, FechaRecepcion, GETDATE()) > 91 THEN Facturas.Importe ELSE 0 END MASDE90dias 
FROM         Proveedores INNER JOIN Facturas ON Proveedores.IdProveedor=Facturas.IdProveedor
WHERE     (Aplicada = 0 AND Proveedores.IdProveedor>=@Proveedor AND Proveedores.IdProveedor<=@Proveedor1 AND Facturas.FechaRecepcion>=@Fecha1 AND Facturas.FechaRecepcion<=@Fecha2)
GO

Este procedimiento lo utilizo en un reporte en delphi 7. En tiempo de diseño le establezco el valor a todos los parámetros a través de la propiedad parameters. Como podrán apreciar son cuatro parámetros. Reitero que los valores de los parámetros están establecidos, esto lo he chequeado hasta la saciedad. El caso es que cuando ejecuto la aplicación, la cual le falta muy poco para terminarla, antes que salga el formulario princiapal que contiene el menu principal, me pone el siguiente error:
Nombre del proyecto raised exception class EOleException with message Procedure 'Nombre del procedimiento almacenado' expects parameters '@Proveedor1', which was not supplied. Esto no lo entiendo, no me refiero al mensaje, se que quiere decir que espera el valor del parámetro el cual no ha sido suministrado, me refiero a que he chequeado que sí le paso el valor del parámetro. Este procedimiento no da ningún error cuando lo ejecuto con el Query Analyzer, funciona perfectamente. Ojala puedan ayudarme. Muchas gracias. Para que le sirva mas de ayuda tengo un fomulario donde le paso el valor de los parámetros al procedimiento almacenado, pero es que no llega ni ahí. El código del botón aceptar de este formulario es el siguiente:
Código Delphi [-]
begin
 QrAntiguedad.ADOSPAntiguedad.Close;
 if CheckBox1.Checked then
 begin
    QrAntiguedad.ADOSPAntiguedad.Parameters.ParamByName('@Proveedor').Value := 0;
    QrAntiguedad.ADOSPAntiguedad.Parameters.ParamByName('@Proveedor1').Value := 5000000;
 end
 else
 begin
    QrAntiguedad.ADOSPAntiguedad.Parameters.ParamByName('@Proveedor').Value := StrToInt(Edit1.Text);
    QrAntiguedad.ADOSPAntiguedad.Parameters.ParamByName('@Proveedor1').Value := StrToInt(Edit2.Text);
    QrAntiguedad.ADOSPAntiguedad.Parameters.ParamByName('@Fecha1').Value := Trunc(DTP1.DateTime);
    QrAntiguedad.ADOSPAntiguedad.Parameters.ParamByName('@Fecha2').Value := Trunc(DTP2.DateTime);
 end;
 QrAntiguedad.ADOSPAntiguedad.Open;
 QrAntiguedad.QRLabel12.Caption := DateToStr(DTP1.DateTime);
 QrAntiguedad.QRLabel14.Caption := DateToStr(DTP2.DateTime);
 QrAntiguedad.Preview;
end;

Pero repito que este formulario yo o invoco desde una opción del menu principal que tengo en mi aplicación. El error del que les hablo se genera desde que ejecuto la aplicación.

Crandel 16-02-2007 01:51:53

seguramente se esta llamando el precimiento desde otro lugar donde no le pasas los parametros.
Coloca un breakpoint al comeinzo de este codigo y fijate si entra ahi cuando te salta el error.

jacanche 16-02-2007 03:48:29

POr que no te aseguras que este cerrado el componente ADOSPAntiguedad em tiempo de diseño, el error se me hace muy similar a cuando se queda abierto en tiempo de diseño el componente, al momento de crearlo en tiempo de ejecucion intentara abrirlo antes de que le puedas asignar los parametros

efelix 16-02-2007 19:02:45

jacanche gracias por tu respuesta y por tomarte tu tiempo ne responder a mi tema. Pero no se si te referirás a la propiedad active del ado stored procedure. Pues la revise y la misma está establecida a false en tiempo de diseño. Realmenete no sé lo que está pasando pues esto lo he hecho en otras ocasiones y no he tenido problemas. Ahora quiero que te fijes en el código del procedimiento almacenado. Verás que el primer parámetro es @Proveedor y el error que me sale hace alusión al parámetro @Proveedor1, si quito este parámetro entonces me da el mismo error pero con el parámetro @Fecha1. Repito que el procedimiento funciona perefectamente bien en sql server 2000. Me encuentro atado de pies y manos. Gracias.

poliburro 16-02-2007 19:23:28

Ok, Por que no intentas esto.


En lugar de definir los parámetros en tiempo de diseño, los creas en tiempo de ejecución algo así como

With TadoSp Do
Begin
Close;
Parameters.Clear;
Parameters.CreatePArameter(Parameter1);
.
.
Parameters.CreatePArameter(ParameterN);
End;

Y ya despúes de creados asignas los valores y lo ejecutas?.
Suerte

efelix 16-02-2007 22:09:31

Saludos poliburro. Tu siempre disponible y ofreciendo tus soluciones. Te diré que ya resolví el problema. Todo estaba perfectamente bien todo el lio estaba en que a modo de prueba ese mismo procedimiento almacenado yo lo utilizaba en un formulario con dbdgrid, pero en ese formulario como solamente era de prueba ya yo le había hecho las modificaciones al procedimiento alamacenado, es decir le había agregado tres parámetros mas a los cuales no les había asignado el valor. Por esso cuendo ejecutaba la palicación me decía que faltaba por asignar el valor al parámetro @Proveedor1. Gracias.

efelix 16-02-2007 22:10:46

Gracias ya encontré la solución. Después de analizar detenidadmente lo que había hecho.

efelix 16-02-2007 22:12:11

Crandel gracias por tu tiempo. Ya encontré la solución, era un error que estaba cometiendo y que no me daba cuenta hasta minuciosamente me detuve a revisar el código.


La franja horaria es GMT +2. Ahora son las 03:20:19.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi