Показать сообщение отдельно
  #24  
Старый 27.11.2013, 13:26
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от YuliyaKar
Смотрите, убрала "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;
В каком месте выбивает? Я не вижу чтобы в приведённом куске кода использовалось поле query3KodD.

В крайнем случае можно добавить в выборку и это поле:
Код:
Query3.SQL.Text:='SELECT Dispt, query3KodD FROM Stab.DB WHERE Dispt  < ''' + Edit6.Text + ''' ORDER BY Dispt DESC';
Ответить с цитированием