|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Нахождение максимального элемента в базе данных
Доброго времени суток! У меня имеется база данных содержащая название музеи и кол-во посетителей. Я хочу найти где больше всего посетителей и вывести название этого музея в Edit. Делаю это так:
Код:
max:=0; AdoDataset1.First; While AdoDataSet1.Eof<>true do begin If AdoDataSet1Posit.AsInteger>max then begin max:=AdoDataSet1Posit.AsIneger; Edit1.Text:=AdoDataSet1Nazv.AsString; AdoDataSet1.Next; end; end; lmikle: Пользукмся тегами!!! Но программа зависает на второй строке в таблице. А если убрать строчку max:=AdoDataSet1Posit.AsIneger;, то программа просто просматривает все строчки и выводит название последнего музея, что довольно логично=) Помогите, плиз, понять в чем загвостка! |