поиск в БД

[kuzmich]

привет, всем!
у меня есть проблемма в написании поиска в БД.

procedure TForm5.Button2Click(Sender: TObject);
var
 Pole : ShortString;
begin
 case RadioGroup1.ItemIndex of
     0 : Pole:='FIO';
     1 : Pole:='DR';
     2 : Pole:='Otdel';
     3 : Pole:='Dolzh';
     4 : Pole:='Adres';
     5 : Pole:='Phone';
  end;
  Form1.Query1.Close;
  Form1.Query1.SQL.Clear;
  Form1.Query1.SQL.Add('select * from base.db');
  Form1.Query1.SQL.Add('where ' + Pole + '=:a');
  Form1.Query1.Prepare;
  Form1.Query1.Params[0].AsString:=Form5.Edit1.Text;
  Form1.Query1.Open;
  if Form1.Query1.RecordCount = 0 then
     ShowMessage('Ничего не найдено!');
end;

вот мой код. факт в том, что в предыдущей моей БД - этот код работал. Сейчас (щас) пишу новую БД и когда делаю поиск, он мне пишет что ничего не найдено!
Вопрос в том - почему?

[mihali4]

Потому что вы поторопились (это видно даже по "щас") и написали неверно.
Сравните:

where Pole=:a

Руки не должны опережать сознание (сам придумал очень давно )
Кстати, по поводу "Pole".
Лично я не знаю способа, как динамически задавать имя поля в запросе...
Ау, знатоки! Просветите старика...

[Serge_Bliznykov]

Сообщение от mihali4

Лично я не знаю способа, как динамически задавать имя поля в запросе...
Ау, знатоки! Просветите старика...

дык в вышеприведённом коде имя поля как раз динамически и задаётся!


kuzmich, а мне код понравился!
И поиск не работает, как мне кажется, по причине:
1) в БД реально нет записей, которые Вы ищите
2) регистр букв в таблице не совпадает с регистром букв в строке поиска (Form5.Edit1.Text)
3) в строке поиска Form5.Edit1.Text лишние пробелы в начале и/или в конце строки
4) в RadioGroup1.ItemIndex что то добавили/убрали и поэтому индекс не соответствует именам полей в коде
...
это только навскидку..
забейте в базу заведом регистро независимую информацию (например, в FIO забейте "12345" и ищите)
так же не помешает точка останова внутри Button2Click
посмотрите на получаемый код запроса...

короче, ИМХО, искать ошибку надо не в вышеприведённом коде...

[kuzmich]

все равно не работает!!! (((

[Kotofff]

а база данных сама то подключена ?
тут не проблем ?
вот что это такое : base.db ? имя таблицы ?
приведи пожалуйста полный код или хотя бы покажи как подключаешься к базе перед запросом.

[Yurk@]

код вроде рабочий, но я бы убрал эту строку:

Form1.Query1.Prepare;

[Власов А.С.]

Люди помогите разобраться с поиском в базе. Мой такой вариант. А как бы умные гуру это сделали

[soleil@mmc]

в первую очередь посмотреть что же вернет запрос вообще без фильтра
т.е.закоментить указанные строки

 //Form1.Query1.SQL.Add('where ' + Pole + '=:a');
  Form1.Query1.Prepare;
  //Form1.Query1.Params[0].AsString:=Form5.Edit1.Text;

в зависимости от результата дальше разбираться либо с подключением к бд либо с соответствием полей и т.п.

[Stilet]

А как бы умные гуру это сделали

Элементарно - закрыли бы тему за нарушение "Одна тема - один автор".
Закрыто.