VPF::Поиск(ADOTable+MSAccess) - Форум программистов

Palladin

Дата 23.4.2009, 10:44 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 1
Всего: 17

В триллионый раз поднимаю тему поиска, т.к. в поисковике не нашел ничего подходящего. Задача такова, есть таблица по ней необходимо сделать поиск на выбор по одному либо по ругому полю(все зависит от выбора в радиогруппе) Но именно поиск, не фильтр. И поиск не на 100%, а к примеру введем букву В указатель переместится на первую строку в которой В первая, наберем Валь, Указатель на первую строку в которой в поле встретилось Валь и т.п.
Попробовал Locate вообще ничего не ошибок не результата

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Данкинг

Дата 23.4.2009, 10:52 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

А запрос с where... чем плох? smile

--------------------

There's nothing left but silent epitaphs.

Palladin

Дата 23.4.2009, 10:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 1
Всего: 17

Не владею

Если можешь напиши плз эту часть кода:
у меня поле 'ФИО' искать то что в FindEdit

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Данкинг

Дата 23.4.2009, 11:00 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

В общем случае -
select * from BASE where FIO like ' "%'+trim(FindEdit.Text)+'%" '

Это сообщение отредактировал(а) Данкинг - 23.4.2009, 11:04

--------------------

There's nothing left but silent epitaphs.

Palladin

Дата 23.4.2009, 11:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 1
Всего: 17

Хм=) как бы это помягче сказать=) я даже незнаю где это писать smile

с запросами вообще никогда не работал smile

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

insoft

Дата 23.4.2009, 11:22 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3

выброси ADOTable и используй ADOQuery...
в ADOQuery в SQL пишешь запрос которой тебе необходим (в текущем случае это то что написал тебе Данкинг)
или же можно всё сделать программным путём ;)

Данкинг

Дата 23.4.2009, 11:26 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(Palladin @ 23.4.2009, 12:14)

Хм=) как бы это помягче сказать=) я даже незнаю где это писать smile

с запросами вообще никогда не работал smile

Ну так это (приёмы работы с БД) в любых книгах для начинающих описываются. А так ты в любом случае не поймёшь...

Код


Query.Close;
Query.SQL.Clear;
Query.SQL.Add(select * from BASE where FIO like ' "%'+trim(FindEdit.Text)+'%" ');
Query.Open;

--------------------

There's nothing left but silent epitaphs.

Palladin

Дата 23.4.2009, 11:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 1
Всего: 17

Как я понял к ADOTable мне это не прикрутить, он SQL не держит да?
А для ADOTable есть какойнить метод, а то как-то переписывать много где придется:(

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

insoft

Дата 23.4.2009, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Palladin,
только использовать Filter и Filtered

Данкинг

Дата 23.4.2009, 11:41 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(Palladin @ 23.4.2009, 12:30

)

Как я понял к ADOTable мне это не прикрутить, он SQL не держит да?

Или

Цитата(insoft @ 23.4.2009, 12:32

)

только использовать Filter и Filtered

- но ИМХО это извращение, хотя в редких случаях бывает удобно. Но лучше не привыкай к фильтрам.

--------------------

There's nothing left but silent epitaphs.

insoft

Дата 23.4.2009, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Цитата(Данкинг @ 23.4.2009, 11:41

)

но ИМХО это извращение, хотя в редких случаях бывает удобно.

самый полный
но если нет времени разбираться а сделать всё тап-ляп, то пойдёт smile

Palladin

Дата 23.4.2009, 11:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 1
Всего: 17

Лана значит будет урок на будущее, придется программно, т.к. очень многое уже написано при замене ADOTable на ADOQuery придется считай заново всю программу написать smile

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

insoft

Дата 23.4.2009, 12:02 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Palladin
да не мучайся ты
используй Filter и Filtered

Код


ADOTable.Filter := 'select * from BASE where FIO like ' +QuotedStr(FindEdit.Text)+'%');
ADOTable.Filtered := True;

тоже самое будет

Это сообщение отредактировал(а) insoft - 23.4.2009, 12:05

Palladin

Дата 23.4.2009, 12:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 1
Всего: 17

Маразм крепчал и я нашел выход из положения smile

была фильтрация, сделал поиск
было:

Код


...............................................................................
if(RadioGroup1.ItemIndex=0)then
begin
if Length(Edit1.Text)>0 then
ADOTable1.Filtered:=true
else
ADOTable1.Filtered:=false;

ADOTable1.Filter:='ФИО>='''+Edit1.Text+'''';
end;
...............................................................................

стало:

Код


var
i:integer;
............................................................................................
if(RadioGroup1.ItemIndex=0)then
begin
if Length(Edit1.Text)>0 then
ADOTable1.Filtered:=true
else
ADOTable1.Filtered:=false;

ADOTable1.Filter:='ФИО>='''+Edit1.Text+'''';
if(adotable1.Filtered=true) then begin i:=ADOTable1.RecNo; ADOTable1.Filtered:=false; ADOtable1.RecNo:=i; end;
end;
............................................................................................

Как видно по коду идет фильтрация, при ней находится нужная запись, запоминается номер строки, потом отключаем фильтрацию и по рекно переходим к нужной записи smile

Интересно что будет происходит на экране если в таблциу забить 10к записей smile

P.S. Такого маразма давно не писал smile

Добавлено через 1 минуту и 37 секунд
2insoft, При фильтрации скрываются не подходящие условию записи, мне это ненадо, мне надо чтобы были видны все, а коретка так сказать подгонялась к найденной

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Kbl4AH

Дата 23.4.2009, 13:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15

Цитата(Palladin @ 23.4.2009, 11:44

)

Попробовал Locate вообще ничего не ошибок не результата

Ничего подобного, все работает, проверено smile

Код


procedure TForm1.Edit1Change(Sender: TObject);
begin
  ADOTable1.Locate('ename', Edit1.Text, [loPartialKey]);
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »