Consulta de un campo con el valor de un Label

[perillan]

La consulta funciona perfectamente con la línea en blanco como comentastes. En la segunda pregunta lo que quiero es continuar con otra condición (la consulta con dos condiciones que se cumplan con un AND). Hechale un vistaza pues sale el error "mission operator or semicolon".



var
VISTO:string;
begin

VISTO:='BASEDATOS';
IBQuery1.Active := False;
IBQuery1.SQL[1] := 'WHERE ' + VISTO + ' = :valor' AND +ComboBox1.Items[ComboBox1.ItemIndex] ' =:valor1';
IBQuery1.Params[0].AsString :='TRANSMISIONES';
IBQuery1.Params[1].AsString :='***';//Este resultado tiene que ser (>= 1) mayor o igual a Uno

[jmariano]

Lo que tienes mal es como escribiste la consulta (el "AND" y ">=" forman parte de la consulta SQL y te falto el operador de concatenación al final). Revisa lo siguiente:

Código Delphi [-]
var
  VISTO:string;
begin
  VISTO:='BASEDATOS';
  IBQuery1.Active := False;
 
  // El "AND" y el operador ">=" van dentro de la cadena de consulta
  IBQuery1.SQL[1] := 'WHERE ' + VISTO + ' = :valor AND ' + 
    ComboBox1.Items[ComboBox1.ItemIndex] + ' >= :valor1';
 
  IBQuery1.Params[0].AsString :='TRANSMISIONES'; 
  IBQuery1.Params[1].AsString :='1'; // (>= 1)
  IBQuery1.Active := True; 
end;

[perillan]

Muchas gracias jmariano funciona a las mil maravillas, con personas así da gusto.
Un saludo Agustin.