Usar Varios IBQuery en un IBDatabase

[Casimiro Notevi]

Te aconsejo que uses parámetros, así nunca tendrás problemas de ese tipo, según tu ejemplo:

Código Delphi [-]
query.sql.text:='select ...... on ve.cliente_id=cli.cliente_id and ve.fecha >= :lafecha';
query.parambyname('lafecha').asdatetime := datetimepicker1.date;
query.open;

[angel.sosa]

no puede adecuar tu respuesta Casimiro, pero tomando tu sugerencia, busque como resolverlo.
en realidad no pude hacer uso del método que la consulta es sumamente larga y mejor sustituí, las "." por "/". pues se me facilito de esta forma porque mi cosulta es bastante larga.

Código Delphi [-]
IBQuery1.SQL.Add('select LC.nombre_cliente, ...............................
IBQuery1.SQL.Add('ON CLI.cliente_id = C.cliente_id ');
IBQuery1.SQL.Add('inner join doctos_ve VE ');
IBQuery1.SQL.Add('on VE.cliente_id = cli.cliente_id  AND VE.fecha >='+Char(39)+(StringReplace(DateToStr(DateTimePicker1.Date),'/','.',[rfReplaceAll]))+Char(39)+' ');
IBQuery1.SQL.Add(' inner join condiciones_pago CPG ');
IBQuery1.SQL.Add('ON CPG.cond_pago_id = VE.cond_pago_id ');
IBQuery1.SQL.Add('inner JOIN vendedores ven ');
................................

perdon por no dar la solucion antes. andaba terminando el proyectito

[ecfisa]

Empezado por angel.sosa

no puede adecuar tu respuesta Casimiro...

Hola Angel.

Me alegra que hayas podido resolverlo y gracias por ponernos la solución.

Pero creo mas adecuado el modo que te sugirió Casimiro:

Código Delphi [-]
  with IBQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select LC.nombre_cliente, ...');
    SQL.Add('ON CLI.cliente_id = C.cliente_id ');
    SQL.Add('inner join doctos_ve VE ');
    SQL.Add('on VE.cliente_id = cli.cliente_id  AND VE.fecha >= :PFECHA');
    SQL.Add('inner join condiciones_pago CPG ');
    SQL.Add('ON CPG.cond_pago_id = VE.cond_pago_id ');
    SQL.Add('inner JOIN vendedores ven ');
    ParamByName('PFECHA').AsDate := DateTimePicker1.Date;
    Open;
  end;

Es mucho más seguro, entendible y menos propenso a equivocos.

Saludos.

[[Delphius]]

Empezado por ecfisa

Hola.

Y aunque lo creo innecesario, tambien podes:

IBDatabase1 <--+- IBTransaction1 <-- IBQuery1
               |
               +- IBTransaction2 <-- IBQuery2
               |
               +- IBTransaction3 <-- IBQuery3
               ...

Saludos.

Pues yo diría que esta opción es quizá más sana y segura para evitar conflictos sobre las transacciones. Por ejemplo, como cuando se tiene el error de que ya existe una transacción abierta.
Con esta forma uno puede dejar abierto varias transacciones individualmente en cuanto necesite. No está demás aclarar que tampoco es para dejarlas activas todo el tiempo, pero con esta manera si uno se es ordenado puede controlar mejor cada transacción posible de hacer en el sistema y tomar las acciones para el caso.
Pregunta: ¿Cómo le haces para detectar y discrimar cual de los tantos Datasets ligado a una única transacción es quien está en funciones y acaparando el uso de dicha transacción?

Saludos,

[Casimiro Notevi]

Empezado por Delphius

Pregunta: ¿Cómo le haces para detectar y discrimar cual de los tantos Datasets ligado a una única transacción es quien está en funciones y acaparando el uso de dicha transacción?

Código SQL [-]
ibquery3.transaction.commit;

[[Delphius]]

Empezado por Casimiro Notevi

Código SQL [-]
ibquery3.transaction.commit;

Se entiende que mi pregunta es cómo desde una transacción vas a distinguir cual de los datasets conectados a éste está es operación y haciendo uso del contexto. Se aprecia en tu código que estás haciendo lo opuesto, y lo que es peor, traspasando un mensaje por un intermedio y desobedeciendo la Ley de Demeter.
En términos reales y semánticos existen varias transacciones en una base de datos. Por tanto es natural y de esperarse que se requiera de mas de una transacción y no unicamente la de por “defecto“.

[Casimiro Notevi]

Que exista más de una transacción no tiene nada que ver con el número de 'componentes Transaction'