[DOR]

Добрый день, помогите пожалуйста исправить код. СУБД Firebird. Нужно отобрать все строки которые содержат значения в tb_Poisk.text

Код:

          with Module.Q_PoiskKontragenta do
            begin
              Close;
              SQL.Clear;
              Params.Clear;
              SQL.Add('SELECT ID_FACE, ADRES_ID, TELEFON_ID, AGENCY_CONTRACT_ID, FULL_NAME, R_K_O, DISTRICT, NAS_PUNCT, TOWN, STREET, DOM, KORPUS, FLAT, INN, BIRTHDAY');
              SQL.Add('FROM ADRES');
              SQL.Add('INNER JOIN FACE ON FACE.ADRES_ID=ADRES.ID_ADRES');
              SQL.Add('WHERE FULL_NAME like :tb ');
              Params.Items[0].AsString := '%'+ tb_Poisk.text + '%';
            end;

[Yurk@]

Код:

with Module.Q_PoiskKontragenta do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT id_face, adres_id, telefon_id, agency_contract_id, full_name, r_k_o, district, nas_punct, town, streen, doc, korpus, flat, inn, birthday');
  SQL.Add('FROM adres');
  SQL.Add('  JOIN face ON face.adres_id = adres.id_adres');
  SQL.Add('WHERE full_name CONTAINING (:tb)');
  Parameters.ParamByName('tb').Value := tb_Poisk.Text;
end;