Создание и использование параметризованных запросов (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);
begin
with Query1 do
begin
Close;
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);
begin
with Query1 do
begin
Close;
ParamByName('CompanyName').AsString := Edit1.Text + '%';
Open;
end;
end;
|
Альтернативный способ передачи параметра (с последующим использованием ParamByName) - params[TheParameterNumber].
Вот демонстрация такого способа:
ParamByName('CompanyName').AsString := Edit1.Text + '%';
|
или, в качестве альтернативы:
Params[0].AsString := Edit1.Text + '%';
|
Хитрость шаблона - в конкатенирующем знаке процента в конце параметра.
[000843]