Leve problema con parámetros.

[marcoszorrilla]

Eso es lo que he hecho inicialmente y no me funciona de forma inexplicable, porque como ves en otras partes de la misma aplicación si lo hace, pero recuerdo que en algún sitio más he tenido que recurrir ala misma solución que en este caso.

A ver si logro establecer que circunstancias concurren cuando no me funcionan los parámetros, curiosamente ocurre con fechas.


Si observas mi primer mensaje tengo comentado ese formato porque no me funciona.

Código Delphi [-]
//DmFact.IBDtsAlbaran.SelectSQL.Add(' And Fecha <= :f1'); 
//DmFact.IBDtsAlbaran.ParamByName('f1').AsDate:=DtpkHasta.Date;

Un Saludo.

[[Caral]]

Hola
Para mi sigue siendo extraño el uso de QuotedStr, sobre todo con la fecha y mas si es obtenida de un datetimepicker.
Yo hago esto y funciona perfectamente:

Código Delphi [-]
ADOQuery1.SQL.Add(' AND Fecha >= :f1 AND Fecha <= :f2');
ADOQuery1.SQL.Add(' ORDER BY Fecha, Factura.CodFactura;');
ADOQuery1.Params[0].Value:= DateToStr(DTP1.Date);
ADOQuery1.Params[1].Value:= DateToStr(DTP2.Date);
ADOQuery1.Open;

OJO, no os confundáis, no son componentes ADO, son IBX.
Simplemente se llaman asi por motivos de vagancia.
Saludos

[[Delphius]]

Hola Marcos,
Creo tal vez que parte del problema se deba a que en tu primer código expuesto mientras estás armando la consulta, justamente quieres pasar el dato al parámetro (el :f1) y luego continuar armando la consulta.

Es deseable primeramente armar la consulta, entera, y luego si proceder con el paso de datos a los parámetros. Por seguridad.

Por otro lado, creo que la posible discrepancia entre el .AsDate y el uso de FormatDateTime para armar la consulta también es motivo de problemas. ¿Te aseguraste de revisar la configuración regional para que dé el formato adecuado?

Se supone, en teoría, que la implementación del AsDate es la más segura ya que éste toma la responsabilidad de darle el formato adecuado y que corresponde al formato nativo que utiliza el motor.

Haz una prueba, muestra el contenido de un .AsDate y compáralo con un FormatDateTime para ver si hay alguna diferencia.

Saludos,

[marcoszorrilla]

Delphius tu observación fue la correcta, colocando la entrada de los parámetros al final ha funcionado.

Código Delphi [-]
procedure TfrFactMes.SpeedButton2Click(Sender: TObject);
begin
DmFact.IBDtsAlbaran.Close;
DmFact.IBDtsAlbaran.ParamCheck := True;
DmFact.IBDtsAlbaran.SelectSQL.Clear;
DmFact.IBDtsAlbaran.SelectSQL.Add('Select * From Albaranes');
DmFact.IBDtsAlbaran.SelectSQL.Add('Where CodClient = :C1');
DmFact.IBDtsAlbaran.SelectSQL.Add(' And Fecha <= :F1');
DmFact.IBDtsAlbaran.SelectSQL.Add('And Activo =''S''');
DmFact.IBDtsAlbaran.SelectSQL.Add('And Facturar =''S''');
DmFact.IBDtsAlbaran.SelectSQL.Add('Order by Fecha');
DmFact.IBDtsAlbaran.ParamByName('C1').AsString:=DmFact.IBDtsCliCODIGO.Value;
DmFact.IBDtsAlbaran.ParamByName('F1').AsDate:=DtpkHasta.Date;
DmFact.IBDtsAlbaran.Open;
end;

Un Saludo.

[[Delphius]]

Empezado por marcoszorrilla

Delphius tu observación fue la correcta, colocando la entrada de los parámetros al final ha funcionado.

Un Saludo.

Me alegro haber aportado en algo. Algo ya me decía que el problema estaba justo en eso.
La verdad es que a mi, hasta el momento, nunca se me ha dado por pasar los datos a los parámetros en el medio del armado de la consulta por lo que no he tenido problemas con ellos.

Y más, habiéndome medio informado (viendo el código y leyendo la documentación) sobre como trabaja la clase TParams y TParam es que ni me animaría a hacerlo.

Saludos,

[marcoszorrilla]

Siempre los coloco al final lo que sucede es que añadí una linea máspara colocar el Order by y la puse detras de la última y a partir de ahí dejó de funcionarme, pero no me di cuenta de cual era el motivo, luego me maree cambiando las líneas y haciendo pruebas y no hubo manera.

Un Saludo.