Hola elisma22, bienvenido a
Club Delphi
Como es costumbre con los que ingresan, te invitamos a leer nuestra
guía de estilo.
El problema es que en la consulta
SQL declaras un parámetro, pero en ningún momento le das un valor. Lo que le asignes a la variable "
nombre" no tiene relación alguna con el parámetro "
NOMBRE" que está dentro de la consulta SQL.
Debería ser:
Código Delphi
[-]
procedure TTF_articulos.ComboBox1Change(Sender: TObject);
begin
with modulo1.MyQuery_articulos do
begin
Close;
SQL.Clear;
SQL.Add('SELECT AR.ID_ARTICULO, AR.NOMBRE_ARTICULO, RU.NOMBRE_RUBRO, AR.PRECIO, AR.DESCRIPCION');
SQL.Add('FROM ARTICULOS AR INNER JOIN RUBROS RU ON AR.ID_RUBRO = RU.ID_RUBRO');
SQL.Add('WHERE RU.NOMBRE_RUBRO LIKE :NOMBRE');
ParamByName('NOMBRE').AsString := ComboBox1.Items[ComboBox1.ItemIndex]+'%'; Open;
end;
end;
Saludos