Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Запрос в SQL [D7, XP]


Tru ©   (2006-11-28 16:55:00) 

Как мне передать значение переменной в SQL-запросе? И обработчике onClick клавиши вывести все записи с величиной поля большей, чем задал пользователь. И как правильна записать SQL запрос используя параметры и сам код?


Tru   (2006-11-28 17:52:00) [1]

всем спасибо, все работает!!!!


Reindeer Moss Eater   (2006-11-28 17:40:00) [2]

Отредактируй свойства параметра.


Tru   (2006-11-28 17:38:00) [3]

Когда я активирую ADOQuery то он пишет ошибку: Parameter object is improperly defined. Inconsistent or incomplete information was provided.


Desdechado   (2006-11-28 17:34:00) [4]

> [Премия] >: X
1. это для русских имен полей, что не сильноприветствуется
2. двоеточие должно стоять СТРОГО перед именем, а не через пробел

> и не фига не работает... Объясните что не так?
текста ошибки не вижу


Reindeer Moss Eater   (2006-11-28 17:34:00) [5]

Что смешно? Что нет записей удовлетворяющих условию запроса?
Или просто смешно?


Tru   (2006-11-28 17:32:00) [6]

смешно..... :)


Reindeer Moss Eater   (2006-11-28 17:31:00) [7]

Видимо премии еще не начислили. Вот и вся причина.


Tru   (2006-11-28 17:30:00) [8]

А нам преподша на лекциях говорила что надо писать так в SQL where [Премия] >: X

А в коде на кнопке

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Parameters.ParamByName ('X').Value := Edit.id;
ADOQuery1.Requery;
end;

и не фига не работает... Объясните что не так?


Desdechado   (2006-11-28 17:21:00) [9]

В запросе нет переменных, которым можно передать значения. Есть параметры. Использовать
with(Query) do begin
 SQL.Text:='SELECT * FROM xxx WHERE yyy > :P';
 ParamByName('P').As... := ...
 Open;
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо