Вниз
Скачать: CL | DM;

Поиск в БД: переход на следующую строку   Найти похожие ветки 

 
VadimLG   (2003-12-02 14:19) [0]

Здравствуйте, уважаемые мастера! В целях обучения пишу простенькую БД. Прочитал статью "Поиск и фильтрация данных в Delphi", пытаюсь создать поиск по базе. С помощью Locate нахожу первую строку, отвечающую требованиям. Как продолжить поиск и найти остальные строки по порядку? У меня следующий код:
procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
if not DataModule2.tInputGrid.Locate(ComboBox1.Text, Edit1.Text, []) then ShowMessage("Not found");
end;

И еще. При конструкции:
if not DataModule2.tInputGrid.Locate(ComboBox1.Text, Edit1.Text, [loCaseInsensitive, loPartialKey])
компилятор ругается на loCaseInsensitive и loPartialKey и говорит про Incompatible type TLocalOption and Integer. В че проблема?
Заранее спасибо.


 
Silver Alex ©   (2003-12-02 14:36) [1]


> компилятор ругается на loCaseInsensitive и loPartialKey
> и говорит про Incompatible type TLocalOption and Integer.
> В че проблема?

добавь в uses модуль DB, и не понятно что тебе надо поиск или фильтрация


 
VadimLG ©   (2003-12-02 14:45) [2]

Нужно чтобы я при очередном нажатии на кнопку прыгал на следующую запись, соответствующую искомой строке в Edit1.Text.


 
Silver Alex ©   (2003-12-02 15:04) [3]

а что не прыгает? или у тебя одинаковые значения?если одинаковые то наверное надо фильтровать


 
VadimLG ©   (2003-12-02 15:09) [4]

Да. У меня одинаковые значения. Если без фильтра нельзя обойтись, значит буду разбираться с ним. Спасибо. И за подсказку насчет модуля DB спасибо. А то все голову ломал не мог понять.


 
Vlad ©   (2003-12-02 15:14) [5]

Locate не будет "прыгать", т.к. каждый раз начинает поиск от начала набора данных.
Если втупую, то можно просто по кнопке "поиск" выполнять цикл
while not DataSet.Eof do... итд, каждый раз прерывая цикл на искомой строке.


 
Silver Alex ©   (2003-12-02 15:14) [6]

можно юзать тогда OnFilterRecord, есть такое событие у DataSet



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c
3-86309
Chris
2003-12-04 09:38
2003.12.26
Механизм подключения к SQL Server


6-86477
bers
2003-10-28 10:13
2003.12.26
Запуск программ


3-86265
Nikolai_S
2003-12-03 15:15
2003.12.26
ADO & SQL Server2000


6-86473
bul82
2003-10-28 14:22
2003.12.26
Программа удаленного управления по сети


11-86325
DrFaust
2003-04-03 16:07
2003.12.26
TreeView Нужна помощь!




   Наверх