Consulta de FIBPlus

[Delphos]

Hola Foro.

Alquien sabe como se hacen consultas con parametros con pFIBQuery, podrian poner un ejemplo completo para asi poder ver de paso el tema de las transacciones y demas ya que tampoco tengo muy claro el componente pFIBDataset y el pFIBTransaction.

Muchas gracias de antemano.

Salu2.

[Sinaloense]

El Sql Generator del query hace todo por ti, solo debes agregar el parámetor:

Por ejemplo:


SELECT
FOLIO,
FECHA,
CORTE,
TANQUE,
FECHAHORA,
COMBUSTIBLE,
NUEVOESTADO
FROM
DPVGCTAN
WHERE FECHA=:FECHA
AND CORTE=:CORTE


Y en el código:


if Tr_Cortes.InTransaccion then
Tr_Cortes.Commit;
Tr_Cortes.StartTransaccion; //Esta es la transacción:
QL_Corte_Tanque.Params[0].Value:=Fecha;
QL_Corte_Tanque.Params[1].AsInteger:=Corte;
QL_Corte_Tanque.ExecQuery;
..
..
Tr_Cortes.commit;



Si te das cuenta no utilize el ql_Corte_Tanque.Close antes de darle valor a los parámetros, esto es porque la transacción no está activa, y si la transacción no esta activa tampoco lo está el Query.

Después de habierto el quiery puedes accesar a los campos de la mandera tradicional. con un FieldByName por ejemplo.

Recuerda que los querys de FibPlus son unidireccionales y de solo lectura, si necesitas algo más avanzado usa mejor un dataset, que en el caso funciona igual.


Suerte.

[Delphos]

El ejemplo de antes funciona de maravilla muchas gracias.

Esta consulta tambien funciona pero ¿Esta bien estructurada, no?.

Ejemplo:

SQL:='INSERT INTO Horarios (Servicio,TiempoI,TiempoF,Horas) VALUES
(:Serv,:TInicio,:TFinal,:THoras)';
If pFIBTransaction1.InTransaction then
pFIBTransaction1.Commit;
pFIBDataSet1.Open;
pFIBDataSet1.InsertSQL.Clear;
pFIBDataSet1.SQLs.InsertSQL.Add(SQL);
pFIBDataSet1.QInsert.ParamByName('Serv').AsString := txtServ.text;
pFIBDataSet1.QInsert.ParamByName('TInicio').AsString := TI;
pFIBDataSet1.QInsert.ParamByName('TFinal').AsString := TF;
pFIBDataSet1.QInsert.ParamByName('THoras').AsString := THM;
pFIBDataSet1.QInsert.ExecQuery;
pFIBTransaction1.Commit;
pFIBDataSet1.Close;


Un saludo.