фильтр текстового поля

romanj
Дата: 03.05.2011 16:54:36
Приветствую всех, не работает фильтр ShipsName.text текстового поля, результат запроса пусто

procedure TArrivalsListForm.SelectArrivals;
var
  bstr,
  sql : string;
begin
  Screen.Cursor := crSQLWait;
  odsArrival.Close;
  sql := 'select a.rowid, a.ship_name,a.*, t.type_name, s.status_name,';
  sql := sql + ' v.inv_count, v.not_pay, v.serv_main, v.inv_credit';
  sql := sql + ' from KASSA.arrival a, KASSA.arr_type t, KASSA.arr_status s, KASSA.arr_inv v';
  sql := sql + ' where a.arr_status <>5 and t.id(+) = a.arr_type and s.id(+) = a.arr_status';
  sql := sql + ' and a.id = v.id';

//?????

    if length(ShipsName.text)>0 then begin
    sql := sql + ' and a.ship_name='''+'*'+ShipsName.text+'*''' ;
        end;

  
  odsArrival.SQL.Text := sql;
  odsArrival.Open;

  Screen.Cursor := crDefault;
end;
Vladimir2009
Дата: 03.05.2011 16:56:35
romanj,

какая СУБД?

ПС RTFM like
Anatoly Podgoretsky
Дата: 03.05.2011 16:57:03
Про что речь то ведешь?
romanj
Дата: 03.05.2011 16:57:23
oracle
romanj
Дата: 03.05.2011 17:00:44
пытаюсь фильтровать на gride в текстовом поле корабли ShipsName