![]() |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]()
|
|
| X-Vlad |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 570 Регистрация: 10.4.2002 Где: Украина, Львов Репутация: 1 Всего: 5 |
Топик создан модератором, из темы: http://forum.vingrad.ru/index.php?act=ST&f=2&t=7855
я пробовал создать индекс в базе с заполнеными полями и возникла ситуация: когда я добавляю индекс то одинаковые поля в даном столбце удаляются - тоесть остается по одной копии (записи неповторяются) соответственно мне такое неподходит. вопрос: как можно осуществить поиск в базе Парадокс? (поиск может производится только в индексных полях?) как осуществить фильтр? пробовал делать но фильтруется только по первой букве: например ввел букву "А" таблица показывает все записи которые начинаются на "А", а когда я ввожу "Авт" то таблица нифига непоказывает |
|||
|
||||
| Vit |
|
|||
![]() Vitaly Nevzorov ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Метод Locate работает по любым полям, если есть индекс то метод его использует, если нет, то не использует. -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Georg4 |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 961 Регистрация: 2.11.2002 Репутация: 0 Всего: 10 |
Я искал по БД в парадоксе через компоненту листбокс.
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; -------------------- Никто и никогда не должен решать одну проблему дважды |
|||
|
||||
| Соловьев |
|
|||
|
Unregistered |
onfilterRecord поможет
|
|||
|
||||
![]()
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |