Проблемы с SQL запросом

[maonang]

Доброго времени суток.
Столкнулся с нерешаемой, как показывает время, проблемой... Перепробовал разные, известные мне, способы, кроме отдельного указания параметров...
А теперь конкретнее.
Вот часть кода:

If (H1_Otv = 'K') and ((strtoint(KVALITET_Otv) >= 3) and (strtoint(KVALITET_Otv) <= 8)) then
begin
    Form10.ADOQuery1.SQL.Text := 'select [K-(<=8)-' + KVALITET_Otv +'] From es_max Where int([mi])<' + D1 + ' and int([ma])>=' + D1 + ';';
    Form10.ADOQuery1.Open;
    ES_Otv := Form10.ADOQuery1.Fields[0].Text;
    ...
end;

Эта программа связана с дисциплиной метрология, стандартизация и сертификация, для конкретики.
Этот запрос ищет в БД по полям одну строку, удовлетворяющую условию, чтобы Квалитет (KVALITET_Otv) был в диапазоне между двумя полями значения Свыше (mi) и До (ma).
Переменные, которые подставляются в запрос я проверял - корректные. Все названия верные, проверял.

Проблема в том, что при выполнении запроса, программа ругается и выводит ошибку: "Обнаружены символы за пределами инструкции SQL".
Помогите пожалуйста, до этого момента все запросы отлично работают и обрабатываются...

[Stilet]

[K-(<=8)-

Это если оно строковое нужно обрамлять в ковычки.

   Form10.ADOQuery1.SQL.Text := 'select '+QuotedStr('[K-(<=8)-') + KVALITET_Otv +QuotedStr(']')
+ ' From es_max Where int([mi])<' + D1 + ' and int([ma])>=' + D1 + ';';

Если это имя поля то меняй его на другое. Если же это некая лямбда-функция (хоть я и сомневаюсь но мало ли) то скорее всего нужно почитать хелп твоей СУБД как она их переваривает.
Далее: int([mi]) - mi это поле? Какого типа?

[maonang]

Я упростил запрос и ввел параметры такими, как они подставлялись из переменных.

Form10.ADOQuery1.SQL.Text :='select K From es_max Where mi<50 and ma>=50';

Выдел ошибку: '' is not a valid floating point value.

К - название поля текстового типа,
ma и mi - тоже поля и были раньше текстового типа, сейчас сделал Числового типа.

[Stilet]

Выдел ошибку: '' is not a valid floating point value.

Эта ошибка не на этой строке проявилась. Делай пошаговку F7-F8 и выясняй на какой строке ошибка.

К - название поля текстового типа,

Тогда

 ES_Otv := Form10.ADOQuery1.Fields[0].AsString;

Это если ES_Otv строковая.

[maonang]

эм... c поочередным F7/F8 у меня дальше выделенной строки не идет:

@@haveVMT:
MOV     EDI,[EDX].vmtDynamicTable
TEST    EDI,EDI
JE      @@parent
MOVZX   ECX,word ptr [EDI]
PUSH    ECX
ADD     EDI,2
 -> REPNE   SCASW

Исправил:

Form10.ADOQuery1.SQL.Text :='select K From es_max Where mi<50 and ma>=50';
Form10.ADOQuery1.Open;
ES_Otv := Form10.ADOQuery1.Fields[0].AsString;

Но теперь ошибка: "Несоответствие типов данных в выражении условия отбора"

Закомментировал строку

ES_Otv := Form10.ADOQuery1.Fields[0].AsString;

Но ошибка осталась

[Stilet]

Несоответствие типов данных в выражении условия отбора

А точно у тебя ma и mi Числового типа?

[maonang]

я и числового и текстового типа пробовал...

[Stilet]

Ерунда какая то...
Как отработает вот такой запрос?

Form10.ADOQuery1.SQL.Text :='select count(k) From es_max';;
Form10.ADOQuery1.Open;
ES_Otv := Form10.ADOQuery1.Fields[0].AsString;

[Yurk@]

а если

var
  ES_Otv : string;
begin
  Form10.ADOQuery1.Close;
  Form10.ADOQuery1.SQL.Text :='SELECT k FROM es_max WHERE mi < :mi AND ma >= :ma';
  Form10.ADOQuery1.Parameters.ParamByName('mi').Value := 50;
  Form10.ADOQuery1.Parameters.ParamByName('ma').Value := 50;
  Form10.ADOQuery1.Open;
  ES_Otv := VarToStrDef(Form10.ADOQuery1.Fields[0].Value, '');
  ShowMessage(es_otv);
end;

[maonang]

Yurk@
Странно... запрос выполнился, но нашел неверное значение, то есть 3 по базе, а нужно 7. Потом ошибка '' is not a valid floating point value. неразбериха... Я убрал вывод и сразу ошибка, поставил после присваивания значения из БД Exit, чтобы прервать дальнейшие действия - смысла 0, та же ошибка