Как мне передать переменную в запрос?
Сначала вы должны создать запрос, использующий переменную.
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 + ‘%’;
Хитрость шаблона - в конкатенирующем знаке процента в конце параметра.
Эта запись была опубликована 18.12.2007в 23:05. В рубриках: Базы данных. Вы можете следить за ответами к этой записи через RSS 2.0. Комментарии пока закрыты, но Вы можете оставить трекбек со своего сайта.