Consulta de un campo con el valor de un Label

[perillan]

Quiero hacer una consulta con un IBQuery, que el campo a buscar se introduzca en un Combo o en un Label y el resultado a buscar lo haria en el parámetro de IBQuery.

Lo del valor en el parámetro no hay problema lo que necesito como hacer la consulta con el campo que desee como ya indique anteriormente.



Que habria que añadir para buscar en el campo que se desee.



IBQuery1.Params.ParamValues['valor1']:='combo’;



Un saludo.

[Neftali [Germán.Estévez]]

Para acceder al texto del combo puedes hacerlo por la propiedad Text o con
Combo.Items[Combo.ItemIndex]

[perillan]

Sí, pero como se haria la consulta?.

IBQuery1.Params...........................

[jmariano]

Si no estoy interpretandote mal, para poder hacer una consulta sobre cualquier campo tendrás que reconstruir la cláusula "WHERE" cada vez que quieras buscar por otro campo (ya que no se pueden usar parámetros para especificar campos). Lo mejor sería dividir la consulta en varias líneas para así sólo modificar la parte dinámica a través de su índice. Por ejemplo, imaginando que la cláusula "WHERE" estuviera en la segunda línea de la propiedad "SQL" (teniedo en la primera la parte "select...from..."):

Código Delphi [-]
  IBQuery1.SQL[1] := 'WHERE ' + ComboBox.Items[ComboBox.ItemIndex] + ' = :valor1';
  ...

[perillan]

De esta manera no me dá ningún resultado, que error puede tener el codigo.?:

procedure TPaneldeInformes.BitBtn7Click(Sender: TObject);
var
valor:string;
begin
valor:='TRASMISIONES'; //Resultado a buscar en el campo seleccionado en el combobox1.
IBQuery1.Active := False;
IBQuery1.SQL[1] := 'WHERE ' + ComboBox1.Items[ComboBox1.ItemIndex] + ' = :valor';

IBQuery1.Active := True;

[jmariano]

Lo que tienes mal es que primero has de definir la cláusula "WHERE" y después el valor para el parámetro dinámico. También tienes mal la forma de pasar el valor.

La forma correcta sería así

Código Delphi [-]
procedure TPaneldeInformes.BitBtn7Click(Sender: TObject);
begin
  IBQuery1.Active := False;
  IBQuery1.SQL[1] := 'WHERE ' + ComboBox1.Items[ComboBox1.ItemIndex] + ' = :valor';
  IBQuery1.Params[0].AsString := 'TRASMISIONES'; //Resultado a buscar en el campo seleccionado en el combobox1.
  IBQuery1.Active := True;
end;