RES: RES: [firebase-br] OFF - AJUDA COM SELECT

Jony jonyridel em yahoo.com.br
Sex Ago 12 08:27:43 -03 2005


RedDevil, 

As vezes ao se colocar o comando SQL num componente Query vazio onde não
haviam parâmetros, já me aconteceu de não conseguir acessar o mesmo através
do ParamByName gerando uma exceção por isso passei esse código para ele
utilizar o Params[0]. Sei que não muda nada mas como já passei por situações
onde isso me gerou erro fiz esta sugestão.
Se bem que no caso dele como o código não muda ele poderia colocar o mesmo
de vez na Query ou então já passar a mesma concatenada com o código
requerido dispensando o paramêtro.

Atenciosamente,

----------------------------
Jony Ridel 
Grupo Êxito - Salvador - BA
----------------------------

-----Mensagem original-----
De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br] Em
nome de RedDevil
Enviada em: quinta-feira, 11 de agosto de 2005 18:28
Para: FireBase
Assunto: Re: RES: [firebase-br] OFF - AJUDA COM SELECT

ola pessoal,

ate onde eu sei, trocar ParamByName('Filtro').AsString := Edit1.Text; 
por Params[0].AsString := Edit1.Text; nao muda nada...

e tambem o Cesar estava correto colocando o "Prepare;" apos atribuir o 
valor do parametro...

mas a soluçao que eu veria para esse caso ae seria usar uma Stored 
Procedure...


[]s
força sempre.
ate +++

--
Luiz "RedDevil" Stefanski
http://www.RedDevil.eti.br - Delphi 4 Powered by IBObjects
exemplos e dicas sobre o IBObjects:
http://www.firebase.com.br/cgi-bin/firebase.cgi/dnld?ID=165
compilaçao/instalaçao do IBObjects sabor BPG:
http://www.firebase.com.br/cgi-bin/firebase.cgi/artigo?ID=630



Jony Wrote:
>> With Modulo.SqlParcela do begin
>> Modulo.SqlParcela.Close;
>> Modulo.SqlParcela.SQL.Clear;
>> SQL.Add('SELECT * FROM PARCELAS');
>> SQL.Add(' C WHERE C.NUMERO =:FILTRO');
>>
>> Prepare; // Para preparar a consulta pra execução
>>
>> ParamByName('Filtro').AsString := Edit1.Text;
>>
>> Open;
> 
> 
> Troque o 
>   ParamByName('Filtro').AsString := Edit1.Text;
> Por
>   Params[0].AsString := Edit1.Text;
> 
> Espero ter ajudado,
> 
> ----------------------------
> Jony Ridel 
> Grupo Êxito - Salvador - BA
> ----------------------------
> 
> -----Mensagem original-----
> De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br]
Em
> nome de Cesar
> Enviada em: quinta-feira, 11 de agosto de 2005 17:34
> Para: FireBase
> Assunto: Re: [firebase-br] OFF - AJUDA COM SELECT
> 
> esta buscando na tabela toda...
> 
> ----- Original Message ----- 
> From: "Augusto" <augusto em cmsolucoes.com.br>
> To: "FireBase" <lista em firebase.com.br>
> Sent: Thursday, August 11, 2005 5:22 PM
> Subject: Re: [firebase-br] OFF - AJUDA COM SELECT
> 
> 
> 
>>Tente
>>
>> With Modulo.SqlParcela do begin
>> Modulo.SqlParcela.Close;
>> Modulo.SqlParcela.SQL.Clear;
>> SQL.Add('SELECT * FROM PARCELAS');
>> SQL.Add(' C WHERE C.NUMERO =:FILTRO');
>>
>> Prepare; // Para preparar a consulta pra execução
>>
>> ParamByName('Filtro').AsString := Edit1.Text;
>>
>> Open;
>>
>>
>>[]´s
>>Augusto
>>
>>
>>----- Original Message ----- 
>>From: "Cesar" <cesar_newton em yahoo.com.br>
>>To: "FireBase" <lista em firebase.com.br>
>>Sent: Thursday, August 11, 2005 5:14 PM
>>Subject: [firebase-br] OFF - AJUDA COM SELECT
>>
>>
>>
>>>EU Tenho uma tabela Chamada Contas e outra chamada Pagamento.. e tabela 
>>>de PAgamento esta amarrada com a tabela de Conta tal como esta o exemplo 
>>>abaixo..
>>>neste select ele me da esse resultado
>>>
>>>COD         COD_CONTA          NUMERO      VALOR
>>>0001                0002                        1 6.870,00
>>>0002                0002                        2 15.010,00
>>>0003                0002                        3 810,00
>>>
>>>agora eu gostaria de fazer uma consulta que busque pelo o campo NUMERO 
>>>ai eu coloco num Edit por exemplo o valor 3 ai apareça isso aqui num 
>>>dbgrid
>>>
>>>0003                0002                        3 810,00
>>>
>>>eu estava fazendo deste jeito..mais aparecia todos os numeros 3 que 
>>>existe na tabela.. e eu naum quero isso..
>>>With Modulo.SqlParcela do begin
>>> Modulo.SqlParcela.Close;
>>> Modulo.SqlParcela.SQL.Clear;
>>> SQL.Add('SELECT * FROM PARCELAS');
>>> SQL.Add(' C WHERE C.NUMERO LIKE :FILTRO');
>>> ParamByName('Filtro').AsString := Edit1.Text + '%';
>>> Prepare; // Para preparar a consulta pra execução
>>> Open;
>>>uso Delphi 7  FB 1.5
>>>alguem pode me ajudar neste assunto?
>>>msn: newton_cesar em hotmail.com
>>>


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa

-- 
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.10.6/69 - Release Date: 11/8/2005
 

-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.10.6/69 - Release Date: 11/8/2005
 


	
	
		
_______________________________________________________ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/





Mais detalhes sobre a lista de discussão lista