Problemas entre fechas con resto de la sentencia

[Casimiro Noteví]

¿Y cuál es el error?

[manelb]

Código Delphi [-]
SQL.Add('SELECT * FROM Entradas_Salidas_ECS WHERE tipo_de_entrada=condicion1 and tipo_de_salida=condicion2 and Fecha_salida BETWEEN :condicion3 and :condicion4');

En condición1 y condicion2 no veo los dos puntos (:condicion1, :condicion2). Podría ser esto??

[netcom]

Buenas,

Cuando cambio la sentencia solo para condicion1 y 2 o solo para condicion3 y 4 no hay error ninguno. Cuando lo pongo junto como veis lanza un error indicando que el parámetro condicion1 no lo encuentra, algo muy raro.

He probado lo de los puntos por si las moscas, no tienen nada que ver.

Gracias por las respuestas!

[Casimiro Noteví]

Empezado por netcom

Buenas,
Cuando cambio la sentencia solo para condicion1 y 2 o solo para condicion3 y 4 no hay error ninguno. Cuando lo pongo junto como veis lanza un error indicando que el parámetro condicion1 no lo encuentra, algo muy raro.
He probado lo de los puntos por si las moscas, no tienen nada que ver.
Gracias por las respuestas!

Lo primero de todo, la sentencia está mal, faltan los : como indica manel, a partir de ahí tienes que ver qué parámetros recibe y ver qué error da.

[netcom]

nuca he usado los puntos con este tipo de sentencias, haciendo pruebas y modificando código:

Código Delphi [-]
With Datamodule1.ADOQuery_consultasFlujo Do
            Begin
              Close;
              SQL.Clear;
              SQL.Add('SELECT * FROM Entradas_Salidas_ECS WHERE tipo_de_entrada =condicion1 and tipo_de_salida =condicion2 and nombre =condicion3 ');
              SQL.Add('and Fecha_salida BETWEEN :condicion4 and :condicion5 ');
              SQL.Add('and Fecha_de_entrada BETWEEN :condicion6 and :condicion7');
              Parameters.Refresh;
              Parameters.ParamByName('condicion1').Value:=RG_Entradas.Items.strings[RG_Entradas.ItemIndex];
              Parameters.ParamByName('condicion2').Value:=RG_Salidas.Items.strings[RG_Entradas.ItemIndex];
              Parameters.ParamByName('condicion3').Value:='Cliente';
              Parameters.ParamByName('condicion4').Value:=StrToDatetime(E_Entrada_Inicio.Text);
              Parameters.ParamByName('condicion5').Value:=StrToDate(E_Entrada_Fin.Text);
              Parameters.ParamByName('condicion6').Value:=StrToDate(E_Salida_Inicio.Text);
              Parameters.ParamByName('condicion7').Value:=StrToDate(E_Salida_Fin.Text);
              Open;
            End;

Ahora melanza el error "PArameter 'codición4' not found". Me estoy volviendo tarumba. ¿alguna otra idea?

[Casimiro Noteví]

Empezado por netcom

nuca he usado los puntos con este tipo de sentencias, haciendo pruebas y modificando código:
Ahora melanza el error "PArameter 'codición4' not found". Me estoy volviendo tarumba. ¿alguna otra idea?

Para empezar, ¿qué base de datos estás usando?

[Casimiro Noteví]

Y que leas nuestra guía de estilo

[mRoman]

Creo q tienes algunos errores....

Código Delphi [-]
With Datamodule1.ADOQuery_consultasFlujo Do
            Begin
              Close;
              SQL.Clear;
              SQL.Add('SELECT * FROM Entradas_Salidas_ECS WHERE tipo_de_entrada =:condicion1 and tipo_de_salida =:condicion2 and nombre =:condicion3 ');
              SQL.Add('and Fecha_salida BETWEEN :condicion4 and :condicion5 ');
              SQL.Add('and Fecha_de_entrada BETWEEN :condicion6 and :condicion7');
              Parameters.Refresh;
              Parameters.ParamByName('condicion1').Value:=RG_Entradas.Items.strings[RG_Entradas.ItemIndex];
              Parameters.ParamByName('condicion2').Value:=RG_Salidas.Items.strings[RG_Entradas.ItemIndex]; //AQUI HACE REFERENCIA RG_ENTRADAS... no debería ser a RG_Salidas.ItemIndex???
              Parameters.ParamByName('condicion3').Value:='Cliente';
              Parameters.ParamByName('condicion4').Value:=StrToDatetime(E_Entrada_Inicio.Text);
              Parameters.ParamByName('condicion5').Value:=StrToDate(E_Entrada_Fin.Text);
              Parameters.ParamByName('condicion6').Value:=StrToDate(E_Salida_Inicio.Text);
              Parameters.ParamByName('condicion7').Value:=StrToDate(E_Salida_Fin.Text);
              Open;
            End;

Y mas arriba te hacian un comentario de registrar el tipo de dato que debe aceptar, es decir cambiar VALUE por el tipo de dato que deberá aceptar como parametro:

Código Delphi [-]
Parameters.ParamByName('condicion5').Value:=StrToDate(E_Entrada_Fin.Text);
              Parameters.ParamByName('condicion6').AsDate:=StrToDate(E_Salida_Inicio.Text);//AsDate o AsDateTime, segun...si el campo TimeStamp
              Parameters.ParamByName('condicion7').AsDate:=StrToDate(E_Salida_Fin.Text);

Saludos.

[netcom]

Gracias por la sugerencia Manel.
Roman, bien visto el error de entrada/salida, aunque no afecta en nada al problema que tengo.

Intento cambiar "value" por el tipo concreto de cada parámetro como me sugerís, pero el delhpi da error de sentencia. ParamByName no acepta otra cosa queno sea Value, ni AsString, ni Asdate... quizá tengo una versión algo obsoleta? trabajo con XE2:

Código Delphi [-]
With Datamodule1.ADOQuery_consultasFlujo Do
            Begin
              Close;
              SQL.Clear;
              SQL.Add('SELECT * FROM Entradas_Salidas_ECS WHERE tipo_de_entrada =condicion1 and tipo_de_salida =condicion2 and nombre =condicion3 ');
              SQL.Add('and Fecha_salida BETWEEN :condicion4 and :condicion5 ');
              SQL.Add('and Fecha_de_entrada BETWEEN :condicion6 and :condicion7');
              Parameters.Refresh;
              Parameters.ParamByName('condicion1').AsString:=RG_Entradas.Items.strings[RG_Entradas.ItemIndex];
              Parameters.ParamByName('condicion2').AsString:=RG_Salidas.Items.strings[RG_Salidas.ItemIndex];
              Parameters.ParamByName('condicion3').AsString:='Cliente';
              Parameters.ParamByName('condicion4').AsString:=E_Entrada_Inicio.Text;
              Parameters.ParamByName('condicion5').AsString:=E_Entrada_Fin.Text;
              Parameters.ParamByName('condicion6').AsString:=E_Salida_Inicio.Text;
              Parameters.ParamByName('condicion7').AsString:=E_Salida_Fin.Text;
              Open;
            End;

Alguna otra idea?

Gracias de nuevo.