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;
Última edición por perillan fecha: 21-08-2005 a las 14:00:27.
|