Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > как можно осуществить поиск в базе Парадокс?

Автор: X-Vlad 2.4.2003, 23:19

Топик создан модератором, из темы: http://forum.vingrad.ru/index.php?act=ST&f=2&t=7855

я пробовал создать индекс в базе с заполнеными полями и возникла ситуация:
когда я добавляю индекс то одинаковые поля в даном столбце удаляются - тоесть остается по одной копии (записи неповторяются) соответственно мне такое неподходит.

вопрос:
как можно осуществить поиск в базе Парадокс? (поиск может производится только в индексных полях?)

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

почему? хотя записи которые начинаются на "Авт" существуют.

Автор: Vit 3.4.2003, 22:07

Цитата(X @ 2.4.2003, 14:19)

вопрос:
как можно осуществить поиск в базе Парадокс? (поиск может производится только в индексных полях?)

Метод Locate работает по любым полям, если есть индекс то метод его использует, если нет, то не использует.

Автор: Georg4 4.4.2003, 00:07

Я искал по БД в парадоксе через компоненту листбокс.

procedure TForm3.Button1Click(Sender: TObject);
var
z:boolean;
begin
form1.table1.First;
Listbox1.Clear;
while (not form1.table1.eof) do
begin
if (Edit1.Text=form1.Table1.FieldByName('Name').AsString)then
begin
z:=false;
listbox1.Items.Add(form1.Table1.FieldByName('Name').AsString);
end;
form1.Table1.Next;
end;
if z then showmessage('ffffffffff');
end;
procedure TForm3.ListBox1Click(Sender: TObject);
var z:boolean;
begin
z:=true;
form1.table1.First;
while (not form1.table1.eof) and (z) do
begin
if (Edit1.Text=form1.Table1.FieldByName('Name').AsString)
then
begin
z:=false;
end;
if z then
form1.Table1.Next;
end;
end;

Автор: Соловьев 7.4.2003, 12:59

onfilterRecord поможет