Ver Mensaje Individual
  #1  
Antiguo 28-05-2015
elisma22 elisma22 is offline
Registrado
NULL
 
Registrado: may 2015
Posts: 7
Reputación: 0
elisma22 Va por buen camino
problemas al filtrar datos desde combobox

saludos, estoy teniendo problemas al querer filtrar un tabla con el contenido de un combobox, y al ejecutarlo la planilla no muestra datos
pongo el código para ver si me pueden dar ua mano
Código Delphi [-]
procedure TF_articulos.FormCreate(Sender: TObject);
begin
modulo1.MyQuery_rubros.Open;
combobox1.Clear;
while not modulo1.MyQuery_rubros.Eof do
  begin
    combobox1.Items.Add(modulo1.MyQuery_rubros.FieldByName('nombre_rubro').AsString);
    modulo1.MyQuery_rubros.Next;

  end;
end;


procedure TF_articulos.ComboBox1Change(Sender: TObject);
var
nombre:string;
begin
 with TComboBox(Sender) do
  begin
    modulo1.MyQuery_articulos.Close;
    modulo1.MyQuery_articulos.SQL.Clear;
    modulo1.MyQuery_articulos.SQL.Add('select articulos.id_articulo,articulos.nombre_articulos,rubros.nombre_rubro,articulos.precio,articulos.desc  ripcion from articulos inner join rubros on articulos.id_rubro=rubros.id_rubro');
    modulo1.MyQuery_articulos.SQL.Add(' where rubros.nombre_rubro like :nombre; ');
    nombre:=combobox1.Items[ItemIndex];
    modulo1.MyQuery_rubros.Open;
  end;
end;

espero que puedan ayudarme con este problema.
Responder Con Cita