Parametors en un IB

Osorio · #1 01-10-2005

Hola todos, les hago llegar mi inquietud en espera de que alguien me de una luz (que no he encuentrado en dos o tres dias de prueba y error).

Tengo este codigo.

Código Delphi [-]IBClientDataSet1.Close;
IBClientDataSet1.CommandText:= 'SELECT * FROM PRC_INVENTARIO_GETCATEGORIAS (:INI, :FIN)';
IBClientDataSet1.Params.ParamByName('INI').Value := Ini.DateTime;
IBClientDataSet1.Params.ParamByName('fIN').Value := fIn.DateTime;
IBClientDataSet1.Open;

pero me da una excepcion y me dice que no reconoce el parametro "INI".

Le hice un paso a paso y evalue la propiedad IBClientDataSet1.Params.count y encontre que tenia el valor 0 (cero).

cambie el codigo por este:

Código Delphi [-]IBClientDataSet1.Close;
IBClientDataSet1.CommandText:= 'SELECT * FROM PRC_INVENTARIO_GETCATEGORIAS (:INI, :FIN)';
IBClientDataSet1.Open;//nueva linea
IBClientDataSet1.close;//nueva linea
IBClientDataSet1.Params.ParamByName('INI').Value := Ini.DateTime;
IBClientDataSet1.Params.ParamByName('fIN').Value := fIn.DateTime;
IBClientDataSet1.Open;

Ahora si me reconoce los parametros, pero... Abrir dos veces el ClientDataset?

La pregunta: No tiene el IBClientDataSet una funcion, procedimiento o propiedad para que reconozca los parametros definidos en la consulta sin tener que hacer la grosería que estoy haciendo?

Gracias a todos,

dec · #2 02-10-2005

Hola,

Acaso esté diciendo una tontería, pero, a bote pronto se me ha ocurrido invertir el orden de las instrucciones... ya dirás si te va bien o qué...

Código Delphi [-]   IBClientDataSet1.Close;
   IBClientDataSet1.Params.ParamByName('INI').Value := Ini.DateTime;
   IBClientDataSet1.Params.ParamByName('fIN').Value := fIn.DateTime;
   IBClientDataSet1.CommandText:= 'SELECT * FROM PRC_INVENTARIO_GETCATEGORIAS (:INI, :FIN)';
   IBClientDataSet1.Open;

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

rastafarey · #4 03-10-2005

Código Delphi [-]IBClientDataSet1.Close;
IBClientDataSet1.CommandText:= 'SELECT * FROM PRC_INVENTARIO_GETCATEGORIAS (:INI, :FIN)';
IBClientDataSet1.prepare;//Nueva linea. Verifica si exactamente asi se llama el metodo O quisas se .PrepareSql
IBClientDataSet1.Params.ParamByName('INI').Value := Ini.DateTime;
IBClientDataSet1.Params.ParamByName('FIN').Value := fIn.DateTime;
IBClientDataSet1.Open;

dec · #5 03-10-2005

Hola,

Si es que es lo que pasa, que las cosas necesitan de una preparación... ¿no?

Osorio · #6 03-10-2005

Algo como eso es lo que busco, pero ...

No encuento en el TIBClientDataSet un método que haga esto. El metodo Prepare, no esta definido en este componente.