Скачать: CL | DM;

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

← →
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...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c