Foros Club Delphi - Ver Mensaje Individual

dec · #3 03-10-2005

Hola,

Reproduzco una pregunta y una respuesta enviadas a cierta lista de correo de FireBird pues creo que resulta de interés para lo que se trata aquí:

Cita:

Empezado por Lista de correo de FireBird

Cita:

Empezado por Sangenis Pablo

Hola a todos:

Les queria hacer la siguiente consulta, estoy trabajando con Firebird 1.5
+ Delphi 7 con los componentes FibPlus, para la administracion de las bases
de datos uso ibexpert (Personal Edition) resulta que tengo en muchas tablas
de la base de datos campos de tipo date, no tengo problemas para actualizar
los datos de tipo date, pero cuando quiero armar un select * from recibos
where vendedor = 1 and fecha_e >= "01/09/2005" and fecha_e <= "01/10/2005"
sale un mensaje de overflow en la conversion, si pongo en el ibexpert este
select tambien salta lo mismo solamente anda si pongo "01.09.2005", es decir
las "/" traen problemas de conversion, como hago para configurar el tema de
las fecha, es decir com puedo hacer para indicarle al firebird para que
envez de "." como separadores use "/" ?. Si hay algun articulo por ahi que
me recomienden leer, o si alguien tuvo un problema parecido les agradeceria
me den una mano.

Gracias

Sangenis, Pablo Alejandro

Cita:

Empezado por Everardo Ríos

En Delphi te aconsejo utilizar parametros del tipo del dato que necesitas
por experiencia propia, por ejemplo:

Código Delphi [-]  Procedure TForm1.EjecutaConsulta(FechaIni, FechaFin : TDateTime)
  begin
    with qryConsulta do begin {el objeto qryConsultas puede ser un TQuery,
    TIBQuery o cualquier descendiente de TDataSet que haga consultas}
      DisableControls;
      try
        If Active then Close;
        SQL.Clear;
        SQL.Add('select *');
        SQL.Add('from recibos');
        SQL.Add('where');
        SQL.Add('  vendedor = 1 and');
        SQL.Add('  fecha_e between :fecha_ini and :fecha_fin');
        Prepare;
        ParamByName('fecha_ini').AsDateTime := Trunc(FechaIni);
        {La fecha inicial debe comenzar en las 00:00:00 horas del día inicial}
        ParamByName('fecha_fin').AsDateTime := Trunc(FechaFin) + 0.99999;
        {la fecha debe estar hasta las 23:59:59 del dia final si usan hora en la fecha}
        Open;
      finally
        EnableControls;
      end; //Try..Finally
    end; //With
  end;

Saludos, espero que les sirva