|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
по идее так можно попробовать (Firebird):
Код:
SELECT FIRST 1 number FROM orders WHERE number < :number ORDER BY number DESC Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
Этот пользователь сказал Спасибо Yurk@ за это полезное сообщение: | ||
YuliyaKar (28.11.2013)
|
#17
|
||||
|
||||
Цитата:
Вот так должно работать: Код:
Query3.Close; Query3.SQL.Text:='SELECT TOP 1 Dispt FROM Stab.DB WHERE Dispt < ''' + Edit6.Text + ''' ORDER BY Dispt DESC'; Query3.Open; if Query3.IsEmpty then raise Exception.Create('Ничего не найдено') else Edit8.Text := Query3.FieldByName('Dispt').AsString; |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
YuliyaKar (28.11.2013)
|
#18
|
|||
|
|||
Да, именно! Близкое, но не превышает значение Edit!!! ТО что раньше было не работает,он выводит все равно только первое попавшееся.
Сейчас этот вариант попробую! |
#19
|
|||
|
|||
Пишет Invalid use of keyword!
|
#20
|
||||
|
||||
Цитата:
Кстати, а поле "Dispt" какого типа? Строкового или числового? |
#21
|
|||
|
|||
Строкового!
Но еще! Само edit8 считается так Код:
Edit6.Text:=(floattostr(strtofloat(Character.Edit2.Text)+strtofloat(Edit5.Text))); //початкова водотоннажнысть судна И когда он выбивает эту ошибку, то высвечивает это поле! |
#22
|
||||
|
||||
Цитата:
|
#23
|
|||
|
|||
Смотрите, убрала "TOP 1", но теперь выбивает ошибку, что не найдено поле "query3KodD", этоу меня поле счетчик. Посмотрела, запрос авктивный, поле на месте. А что такое непонятно
НАписала вот так Код:
Query3.Close; Query3.SQL.Text:='SELECT Dispt FROM Stab.DB WHERE Dispt < ''' + Edit6.Text + ''' ORDER BY Dispt DESC'; Query3.Open; if Query3.IsEmpty then raise Exception.Create('Ничего не найдено') else Edit8.Text := Query3.FieldByName('Dispt').AsString; |
#24
|
||||
|
||||
Цитата:
В крайнем случае можно добавить в выборку и это поле: Код:
Query3.SQL.Text:='SELECT Dispt, query3KodD FROM Stab.DB WHERE Dispt < ''' + Edit6.Text + ''' ORDER BY Dispt DESC'; |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
YuliyaKar (28.11.2013)
|
#25
|
|||
|
|||
Так и я о том же. Поле это нигде не фигурирует, но проект сразу выбивает.
Попробовла так! И все заработало!!!!!!!!!! Просто все поля выбрала, потому что , когда я добавила "KodD", он тогла начал показывать, что другие не может найти Код:
Query3.Close; Query3.SQL.Text:='SELECT * FROM Stab.DB WHERE Dispt <= ''' + Edit6.Text + ''' ORDER BY Dispt DESC'; Query3.Open; if Query3.IsEmpty then raise Exception.Create('Ничего не найдено') else Edit8.Text := Query3.FieldByName('DRAFT').AsString; |
#26
|
||||
|
||||
Цитата:
|
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
YuliyaKar (28.11.2013)
|
#27
|
|||
|
|||
Ааа, теперь ясно!!! Я же их в самом начале добавила. Ну та ладно, все равно работает ))) спасибо!!!
|