Советы по Delphi
Параметризованные запросы
Создание и использование параметризованных запросов (Parameterized Queries)
Как мне передать переменную в запрос?
Сначала вы должны создать запрос, использующий переменную.
Select Test."FName", Test."Salary Of Employee" From Test Where Test."Salary of Employee" > :val Примечание: Если вы просто пишете имя поля как "Salary of Employee", вы получите ошибку "Capability Not Supported". Это должно быть просто Test."Salary of Employee".
В нашем случае имя переменной "val", но это может быть любое другое (естественно). Затем вы переходите к свойству TQuery's params и устанавливаете параметр "val" в зависимости от требуемого типа. В нашем примере мы используем тип integer.
Затем вы должны создать код, устанавливающий значение параметра. Для задания значения мы будем использовать компонент TEdit.
| procedure TForm1.Button1Click(Sender: TObject);beginwith Query1 dobeginClose;ParamByName('val').AsInteger := StrToInt(Edit1.Text);Open;end;end; |
Примечание: рекомендуем в качестве меры предосторожности разместить приведенный выше код в блоке try..except.
Если в своем запросе вы хотите использовать ключевое слово LIKE, то вы можете сделать это так:
Примечание: Следующий код использует таблицу пользователя, расположенную в каталоге \delphi\demos\data. При этом также возможно использование псевдонима DBDEMOS.
Код SQL для свойства TQuery.SQL:
SELECT * FROM CUSTOMER WHERE Company LIKE :CompanyName Код Delphi:
| procedure TForm1.Button1Click(Sender: TObject);beginwith Query1 dobeginClose;ParamByName('CompanyName').AsString := Edit1.Text + '%';Open;end;end; |
Альтернативный способ передачи параметра (с последующим использованием ParamByName) - params[TheParameterNumber].
Вот демонстрация такого способа:
| ParamByName('CompanyName').AsString := Edit1.Text + '%'; |
или, в качестве альтернативы:
| Params[0].AsString := Edit1.Text + '%'; |
Хитрость шаблона - в конкатенирующем знаке процента в конце параметра.
[000843]
