Código Delphi [-] ADOQuery2.Close; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add('SELECT vchMarca FROM TB_Marca where smlMarca IN (SELECT smlMarca FROM TB_Relacion WHERE smlLinkup like'+Char(39)+DBedit1.Text+'%'+Char(39)+')'); ADOQuery2.Open;
ADOQuery2.Close; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add('SELECT vchMarca FROM TB_Marca where smlMarca IN (SELECT smlMarca FROM TB_Relacion WHERE smlLinkup like'+Char(39)+DBedit1.Text+'%'+Char(39)+')'); ADOQuery2.Open;