Como mandar 2 valores de DbEdit diferentes para consulta!

Delphi

16/09/2004

Caros colegas, preciso passar 2 valores diferentes para duas variaveis em consulta sql, ate hoje fiz so com uma variavel e faço assim! e para duas, sendo que uma e String e outra integer?

SQLLogradouro.Params[0].AsString;
SQLLogradouro.ParamByName(´Consulta´).AsString:=´´+suiEdit1.Text+´¬´;


Um abraço a todos!


Luiz.claudio.vieira

Luiz.claudio.vieira

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

16/09/2004

Luiz,

Supondo a seguinte instrução ( creio q seja a do outro tópico ):
select
    L.LOGRADOURO,
    L.CEP
from
    LOGRADOURO L
where
    (L.LOGRADOURO like :rua) and
    (
      (L.NRINICIAL is null) and
      (L.NRFINAL is null) or
      (:numero between L.NRINICIAL and L.NRFINAL)
    )
order by
    L.LOGRADOURO


A passagem dos parametros seria :
SuaQuery.Close;
SuaQuery.ParamByName(´rua´).AsString:= Edit1.Text + ´¬´;
SuaQuery.ParamByName(´numero´).AsInteger:= StrToInt(Edit2.Text);
SuaQuery.Open;

ou então, 
SuaQuery.Close;
SuaQuery.Params[0].AsString:= Edit1.Text + ´¬´;
SuaQuery.Params[1].AsInteger:= StrToInt(Edit2.Text);
SuaQuery.Open;


No código q vc informou, a primeira linha não tem sentido... ela não faz nada...

Espero ter ajudado...
T+


GOSTEI 0
Willian

Willian

16/09/2004

[b:a707dd088e]Exemplo[/b:a707dd088e]
Na Query tem o seguinte código

SELECT * FROM CLIENTES WHERE ESTADO = ´SP´ AND TIPO = 1

Digite-o

SELECT * FROM CLIENTES WHERE ESTADO = :MEU_ESTADO AND TIPO = :MEU_TIPO

Aí, nas propriedades Parameters, defina-os corretamente.

Para usar o código faça:

If Query.Active Then Query.Close ;
Query.ParamByName(´MEU_ESTADO´).Value := ´UF´ ;
Query.ParamByName(´MEU_TIPO´).Value := 1
Query.Open ;

Espero ter ajudado.


GOSTEI 0
Luiz.claudio.vieira

Luiz.claudio.vieira

16/09/2004

Poxa Vina, era mesmo, mas nao quiz te aborrecer com isso nao, vc ja tinha ajudado demais. Muito Obrigado tambem Willian.


GOSTEI 0
POSTAR