поиск, dbf файлы

[Алена_=)))]

то ли я поиском разучилась на форуме пользоваться, то ли что-то непонятное)
суть программы: пользователь загружает dbf файл с неопределенного места (с такого какого хочет), Но структура файла всегда одинакова, отображается все это в dbgrid, посредством ado.
вопрос: не получается сделать поиск, ввод в edit, выбор категории по поиску в combobox и нажатие на кнопочку.
исходники вложила
(unit3)

procedure TForm3.Button1Click(Sender: TObject); //открытие файла dbf
begin
  if OpenDialog1.Execute then begin
    ADOConnection1.Close;

    ADOConnection1.ConnectionString := Format('Provider=VFPOLEDB.1;Data Source=%s;'
      + 'Mode=ReadWrite;Extended Properties="";User ID="";Password="";'
      +'Mask Password = False; '
      + 'Cache Authentication=False;Encrypt Password=False;'
      + 'Collating Sequence = RUSSIAN; DSN = ""',[ExtractFilePath(OpenDialog1.FileName)]);

      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add(Format('select ID, FILIAL, STREET_NAM, NAME, DT_BUILD, BUILD_SQ, DIMENSION, TOTALSQ_FL, LIVSQ_FL,TOTALSQ_OF, LIVSQ_OF from %s',[ExtractFileName(OpenDialog1.FileName)]));
      ADOQuery1.Active := True
  end;
end;

procedure TForm3.Button2Click(Sender: TObject);  //поиск
begin  //поиск при нажатии на кнопку и выборе категории поиска в комбобокс
Application.Title:= 'По управляющей компании';
if (trim(ComboBox1.Text)='') or (trim(Edit1.Text)='') then
begin
     if (trim(ComboBox1.Text)='') and (trim(Edit1.Text)='') then
        begin
         ShowMessage('Не заданы параметры поиска ');
        showop:=showop+1;
       end;

      if (trim(ComboBox1.Text)='') and (showop = 0) then
        begin
          ShowMessage('Вы не выбрали категорию поиска '); //если не выбрана категория поиска.
        showop:=showop+1;
        end;
     if (trim(Edit1.Text)='') and (showop = 0) then //если поле поиска пуста
        begin
          ShowMessage('Вы ничего не ввели в поле поиска! ');
        end;
showop := 0;
end
else
    begin
      ADOQuery1.Filter :='По управляющей компании='+QuotedStr(Edit1.Text);
      ADOQuery1.Filtered :=True;
      ADOQuery1.filtered:=true;
      ADOQuery1.filter:='filial LIKE' + #39 + '%' + Edit1.Text + '%' + #39;
         Form9.ShowModal;  //показываем форму поиска
      end;

end;

[Stilet]

По управляющей компании

Это имя поля???

ADOQuery1.Filtered :=True;
      ADOQuery1.filtered:=true;

Два раза открывать фильтр зачем?

      ADOQuery1.Filter :='По управляющей компании='+QuotedStr(Edit1.Text);
...
      ADOQuery1.filter:='filial LIKE' + #39 + '%' + Edit1.Text + '%' + #39;

Ты бы определилась, какой фильтр нужен, тот или этот...
отработает последний в любом случае.

[Алена_=)))]

дело может быть в кодировке? вроде исправила, все равно не ищет, в dbgrid font терминал, без терминал иероглифы...

[Stilet]

вроде исправила

Показывай.

[Алена_=)))]

      ADOQuery1.Filtered :=True;
   ADOQuery1.filter:='filial LIKE' + #39 + '%' + Edit1.Text + '%' + #39;

[Stilet]

ADOQuery1.filter:='filial LIKE' + #39 + '%' + Edit1.Text + '%' + #39;

Ну и кстати в результате получится следующая строка:

filial LIKE'%тут текст%'

А это ошибка по идее - между LIKE должны быть пробелы.

   ADOQuery1.Filtered :=false;
    ADOQuery1.filter:='filial LIKE ' + QuotedStr('%' + Edit1.Text + '%');
   ADOQuery1.Filtered :=True;

Ну и тут еще момент с регистром. Если он смешанный то и в Эдите придется его учитывать. Я обычно делаю что-то типа:

ADOQuery1.filter:='UPPER(filial) LIKE ' + QuotedStr('%' + AnsiUpperCase(Edit1.Text) + '%');

Но не уверен что твоя СУБД (всмысле не СУБД а скорей провайдер) такой фильтр схавает.

[Алена_=)))]

блин, капец...уже не могу
теперь: "аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом"
___
даже так и то ничего не ищет (пустые строки):

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
const
  CSQL = 'SELECT DISTINCT ID, FILIAL, STREET_NAM, NAME, DT_BUILD, BUILD_SQ, DIMENSION, TOTALSQ_FL, LIVSQ_FL,TOTALSQ_OF, LIVSQ_OF FROM house.dbf'#13#10+
             'WHERE FILIAL LIKE ''%s'''#13#10+
             'ORDER BY FILIAL';
begin
 
If Key = #13 Then
  Begin
    AdoQuery1.Close;
    AdoQuery1.SQL.Clear;
    AdoQuery1.SQL.Add(Format(CSQL,['%'+Edit1.Text+'%']));
    AdoQuery1.Open;
  End;
end;

[Stilet]

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 
If Key = #13 Then
  Begin
    AdoQuery1.Close;
    AdoQuery1.SQL.Clear;
    AdoQuery1.SQL.Add(
          'SELECT DISTINCT ID, FILIAL, STREET_NAM, NAME, DT_BUILD, BUILD_SQ, DIMENSION, TOTALSQ_FL,' 
            +'LIVSQ_FL,TOTALSQ_OF, LIVSQ_OF FROM house.dbf '+
             'WHERE FILIAL LIKE '+QuotedStr('%'+Edit1.Text+'%')+ ' ORDER BY FILIAL'
   );
    AdoQuery1.Open;
  End;
end;

Так тоже нет? Если нет то убери условие - сработает вообще?

[Алена_=)))]

нет, не сработало, вернее сработало,но не нашло, а ведь ввожу то что есть в таблице!
может это правда как-то со шрифтом связано?с кодировкой?

[ReportCube]

Файл DBF нет возможности приложить?