| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Повторно не выполняется запрос [D5, Access]
Viktor © (2003-05-15 16:12:00)Привет мастерам!
Не могу сообрразить в чем дело.
Есть запрос
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.
Объясните кто-нибудь в чем дело и как с этим бороться.
Заранее спасибо.
Viktor (2003-05-15 16:23:00) [1]Спасибо Всем!!!
Забыл про Clear...
Соловьев (2003-05-15 16:16:00) [2]в кавычки взять
(FromWidth<500) and (ToWidth>500)
@@Le (2003-05-15 16:16:00) [3]QAccessoriesAuto.SQL.Clear;
QAccessoriesAuto.SQL.Add(sss);
QAccessoriesAuto.Open;
Stas (2003-05-15 16:15:00) [4]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;
| |
