[YuliyaKar]

Здравствуйте!
Подскажите ,пожалуйста, как так сделать!
Я пробовала запросом, но там можно только вписать, что значение с таблицы равно значению Edit/
Есть таблица и в ней столбец значений. Мне нужно узнать между какими двумя значениями столбца находится значение Edit.
в таблице 140 записей, если Edit>первого знаечения, но Edit<второго значения, тогда выбрать первое значение
пишу так

Код:

for i:=1 to 140 do
    if Table7.Locate('KodD', i, []) then
    if (edit6.Text>Table7.FieldByName('Dispt').Value) and
    (edit6.Text<Table7.FieldByName('Dispt').Value[i+1]) then
     edit8.Text:=Table7.FieldByName('DRAFT').Value
  else
    raise Exception.Create('Не найдена нужная запись');

но выбивает что запись не найдена!

[Mrak]

Я пробовала запросом, но там можно только вписать, что значение с таблицы равно значению Edit/

почему же? можно использовать > = < <> <= >=

[Страдалецъ]

Можно так попробовать:

Код:

Q.SQL.Text := 'select (select max(KodD) from Table1 where KodD < :Value1) Min, (select min(KodD) from Table1 where KodD > :Value2) Max';
Q.Parameters.ParamValues['Value1'] := StrToInt(Edit1.Text);
Q.Parameters.ParamValues['Value2'] := StrToInt(Edit1.Text);
Q.Open;
результат будет лежать в Q['Min'] и Q['Max']

[YuliyaKar]

Странно, я тоже вроде знаю, что можно, но он мне пишет, что неправильный оператор!

[poli-smen]

Сообщение от YuliyaKar

Странно, я тоже вроде знаю, что можно, но он мне пишет, что неправильный оператор!

Если база MS Access, то это наверное опять случай с пустым SELECT'ом как в этой теме.
Т.е. Access'у нужно указывать фиктивную непустую таблицу в этом запросе:

Код:

Q.SQL.Text := 'select (select max(KodD) from Table1 where KodD < :Value1) Min, (select min(KodD) from Table1 where KodD > :Value2) Max';

Например из той же самой таблицы вот так:

Код:

Q.SQL.Text := 'select TOP 1 (select max(KodD) from Table1 where KodD < :Value1) Min, (select min(KodD) from Table1 where KodD > :Value2) Max FROM Table1';

[Mrak]

а как делаешь?

[YuliyaKar]

Пишу так:

Код:

Query3.Active:=false;
 query3.SQL.Clear;
 query3.SQl.Text:='select *FROM Stab.DB where Dispt  <= ''' + Edit6.Text + '''';
 query3.ExecSQL; 
Edit8.Text:=Query3.Fields[1].AsString; 

[poli-smen]

Сообщение от YuliyaKar

Пишу так:

Код:

Query3.Active:=false;
 query3.SQL.Clear;
 query3.SQl.Text:='select *FROM Stab.DB where Dispt  <= ''' + Edit6.Text + '''';
 query3.ExecSQL; 
Edit8.Text:=Query3.Fields[1].AsString; 

Здесь должно быть не "ExecSQL", а "Open"

[Mrak]

Poli-smen опередил))

и от строки
query3.SQL.Clear;
нет толку

[YuliyaKar]

Ладно, пусть так! Но все равно он находит первое наимешьшое значение, которое наименьшое и все - дальше не ищет! Хотя я написала его в событие OnChange другого Edit.
И еще мне надо точно определить,что значение Edit находится между двумя значениями столбца таблицы. А по запросу он выводит только первое попавшееся! Ну сейчас буду пробовать

[poli-smen]

Сообщение от YuliyaKar

Ладно, пусть так! Но все равно он находит первое наимешьшое значение, которое наименьшое и все - дальше не ищет! Хотя я написала его в событие OnChange другого Edit.
И еще мне надо точно определить,что значение Edit находится между двумя значениями столбца таблицы. А по запросу он выводит только первое попавшееся! Ну сейчас буду пробовать

Скорее всего он выводит не первое попавшееся, а все значения которые меньше чем это записано в "Edit6.Text", просто ты читаешь первое попавшееся.
Попробуй такой запрос:

Код:

query3.SQl.Text:='select *FROM Stab.DB where Dispt  <= ''' + Edit6.Text + ''' ORDER BY Dispt DESC';

[YuliyaKar]

Я тоже так подумала, что по логике, он находит, все что меньше, но выводит только первое.
Попробую так

[poli-smen]

Сообщение от YuliyaKar

Я тоже так подумала, что по логике, он находит, все что меньше, но выводит только первое.
Попробую так

Где же он выводит первое? Это же ты выводишь только первое значение вот в этой строке:

Код:

Edit8.Text:=Query3.Fields[1].AsString;

Чтобы вывести всё что запрос вернул одной этой строки недостаточно - нужно в цикле пройтись по всей выборке и каждое возвращённое значение прочитать.

[YuliyaKar]

Так они мне вес не нужны! Мне нужно только одно, которое стоит между двумя, которые имеют приближенные значения к значению Edit и взять наименьшое из них двух! ТО еcть определить в какой диапазон попадает значение Edit!

[Страдалецъ]

Код:

query3.SQl.Text:='select *FROM Stab.DB where Dispt  <= ''' + Edit6.Text + ''' ORDER BY Dispt DESC';

Или я че-то не понимаю или лыжи не едут. Это как же вы таким запросом получите граничные значения? Вы получите так все что меньше или равно критерию. Зачем вы еще и равно делаете, мне неясно. Если у вас не получается вернуть одним запросом сразу границы, то можно и двумя запросами это сделать:

Код:

Q.SQL.Text := 'select max(KodD) as Min from Table1 where KodD < :Value';
Q.Parameters.ParamValues['Value'] := StrToInt(Edit1.Text);
Q.Open;
Min := Q['Min'];
Q.SQL.Text := 'select min(KodD) as Max from Table1 where KodD > :Value';
Q.Parameters.ParamValues['Value'] := StrToInt(Edit1.Text);
Q.Open;
Max := Q['Max'];