Como passar de três a seis Parâmetros de uma só vez ???

Delphi

28/08/2003

Tenho o seguinte código:
´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´
Adoquery.sql.add(´select * from Normas´);
AdoQuery.sql.add(´where Instituicao like :parametro1);
Adoquery.parameter.parameterbyname(parametro1).value := Edit1.text+´¬´;
´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´

Esse código funciona perfeitamente !!! Mas é o seguinte:
O exemplo acima vai procurar na tabela o nome que foi digitatado em apenas um Edit.text, ou seja é passado apnas um único parâmetro para a Query...

Como faço para passar de três a seis parâmetro de uma só vez???

Exemplo:
Eu quero que a Query me mostre todas as Normas ABNT
(Parametro1) Instituicao.text;
DO ano de 1988
(parâmetro2) Ano.text;
Em Inglês
(Parâmetro3) Idioma.text;
Assunto Soldagem
(Parametro4) assunto.text; ...

Cada parâmetro é recebido através de Edit.text , digitado pelo usuário,
A query deve me listar (filtrar) todas as Normas da Instituição ABNT, do ano de 1988, idioma Inglês, e que o assunto seje sobre soldagem...

Obrigado,
Leo.


Lbsystems

Lbsystems

Curtidas 0

Respostas

Motta

Motta

28/08/2003

Adoquery.sql.add(´select * from Normas´);
AdoQuery.sql.add(´where Instituicao like :parametro1);

AdoQuery.sql.add(´and xpto like :parametro2);
AdoQuery.sql.add(´and qwert like :parametro3);




Adoquery.parameter.parameterbyname(parametro1).value := Edit1.text+´¬´;

Adoquery.parameter.parameterbyname(parametro2).value := Edit2.text+´¬´;
Adoquery.parameter.parameterbyname(parametro3).value := Edit3.text+´¬´;


.
.
.


GOSTEI 0
POSTAR