Повторно не выполняется запрос

← →
Viktor (2003-05-15 16:12) [0]

Привет мастерам!
Не могу сообрразить в чем дело.
Есть запрос
QAccessoriesAuto.Close;
sss :="Select * From AccessoriesPack Where FromWidth<"+
IntToStr(Round((StrToInt(FormM.WWidth.Text))/FormM.W))+" and ToWidth>"+
IntToStr(Round((StrToInt(FormM.WWidth.Text))/FormM.W));
QAccessoriesAuto.SQL.Add(sss);
QAccessoriesAuto.Open;
Выполняется в первый раз нормально
при повторном использовании ругается вот так:
Project Horizon.exe raised exception class EOleExeption with message
"[Microsoft][Драйвер ODBC Microsoft Access] Ошибка синтаксиса в выражении
запроса "FromWidth<500 and ToWidth>500
Select * From AccessoriesPack Where FromWidth<500 and ToWidth>500"
Process stopped. Use Step or Run to continue.

Объясните кто-нибудь в чем дело и как с этим бороться.
Заранее спасибо.

← →
Stas (2003-05-15 16:15) [1]

QAccessoriesAuto.Close;
QAccessoriesAuto.Clear;
sss :="Select * From AccessoriesPack Where FromWidth<"+
IntToStr(Round((StrToInt(FormM.WWidth.Text))/FormM.W))+" and ToWidth>"+
IntToStr(Round((StrToInt(FormM.WWidth.Text))/FormM.W));
QAccessoriesAuto.SQL.Add(sss);
QAccessoriesAuto.Open;

← →
Соловьев (2003-05-15 16:16) [2]

в кавычки взять
(FromWidth<500) and (ToWidth>500)

← →
@@Le (2003-05-15 16:16) [3]

QAccessoriesAuto.SQL.Clear;
QAccessoriesAuto.SQL.Add(sss);
QAccessoriesAuto.Open;

← →
Viktor (2003-05-15 16:23) [4]

Спасибо Всем!!!
Забыл про Clear...

Повторно не выполняется запрос Найти похожие ветки