Usar Varios IBQuery en un IBDatabase

[angel.sosa]

si Claro Casimiro. e leido lo que amablemente me responden, ya entendi que no necesito usar otra transaction y otro IBDatabase.

Del codigo lo pase a mi form, tube que modificar unas cosas porque no me dejaba ejecutarlo pero igual sigo sin ver informacion de la tabla.

Código Delphi [-]
ibquery2.close;
ibquery2.sql.text := 'select nombre from vendedores';
ibquery2.ExecSQL;

[Casimiro Noteví]

Si estás usando un combobox "normal", entonces después de ejecutar el query es cuando debes pasarle los datos al mismo:

Código Delphi [-]
ibquery2.close;
ibquery2.sql.text:='select nombre from vendedores';
ibquery2.open;

while not ibquery2.eof do
begin
  combobox2.items.add( ibquery2.fieldbyname('nombre').asstring );
  ibquery2.next;
end;

[angel.sosa]

OK, ya entendido. Muchisimas Gracias por la ayuda.

[angel.sosa]

solo me resta ingresar 2 parametros fecha. que tengo en un Par de DateTimePiker los cuales pretendo ingresar dentro de un IBQuery3,
el problema es que el sql solo me reconoce el formato dd.mm.yyyy con el Edit2.Text y al querer sustituilo por el DataTimePiker.
me marca error "Token UKNOWn" pues al parecer mi version de DELphi solo me reconoce que le pase la fecha con punto ejemplo 23.11.2012 me manda error cuando entra 23/11/2012 pues el datatimepiker solo me arroja la fecha al leerlo con las "/"

este codigo pedazo de codigo es cuando uso el Text y si funciona.

Código Delphi [-]
IBQuery1.SQL.Add('on VE.cliente_id = cli.cliente_id  AND VE.fecha >='+Char(39)+Edit2.Text+Char(39));

lo pretendo sustituir con este codigo del DataTimePiker pero es cuando me marca el error.
el codigo es:

Código Delphi [-]
IBQuery1.SQL.Add('on VE.cliente_id = cli.cliente_id  AND VE.fecha >='+Char(39)+quotedstr(FormatDateTime('DDMMYYYY',DateTimePicker1.Date))+Char(39));

[Casimiro Noteví]

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.