Passando uma string no select + DELPHI

Question

Bom dia a todos,tem alguma fun��o no Delphi que retorna o valorem uma string para dentro de um SELECT....

Rafael Cunha · Answer

Explique melhor o que voc� esta querendo fazer....

Anderson Mendes · Answer

Ex:tenho select montado numa query no Delphi.O resultado desta pesquisa esta me gerando erro.e quando testo no banco funciona perfeitamente, por�m o select que realizo no banco eu passo o contrato entre aspas como fa�oisto no Delphi, tem alguma fun��o para isto ?...

Rafael Cunha · Answer

Passa o erro que est� sendo retornado ao executar essa pesquisa pelo Delphi....

Bruno Leandro · Answer

Ola, o problema pode ser utiliza��o do Qyr.SQL.Add(..., porque a primeira vez que voce pesquisar n�o havera erros, mas na segundo deve ocorrer erro.

para resolver voce pode usar assim
Qyr.Close;
Qyr.SQL.Clear;
Qyr.SQL.Add('SELECT * FROM DEVEDOR')
Qyr.SQL.Add('WHERE CONTRATO =:CONT')
Qry.ParamByName('CONT').AsString := NomeCli;
Qry.Open;

caso n�o seja o problema informe o erro exatamente para que possamos ajudar.

Bruno Leandro · Answer

outra coisa que pode estar dando problema que voce esta pesquisando no campo Contrato, e esta passando a variavel nomecliente, caso o campo contrato seja numerico e voce esta passando o nome pode gerar erros...

William · Answer

Complementando a resposta do colega Bruno, vc poderia usar a fun��o QuotedStr que retorna o valor entre aspas, sendo esse valor uma tipo string:

Qyr.Close;
Qyr.SQL.Clear;
Qyr.SQL.Add('SELECT * FROM DEVEDOR');
Qyr.SQL.Add('WHERE CONTRATO =' + QuotedStr(NomeCli));
Qry.Open;

Pessoalmente prefiro do modo que vc est� fazendo, passando via par�metro.
Mas em uma necessidade!

Anderson Mendes · Answer

Consegui resolver o problemacom a explica��o do wllfl,passando o QuotedStr. No momento de demonstrar o c�digo,errei dizendo que a vari�vel era nomecli enquanto na verdade � contrato.Obrigado ao restante do pessoal pela for�a....

Marcelo Henriques · Answer

Bom, eu tenho uma situa��o um pouco diferente, mas as vezes, voc�s podem me ajudar:

Eu tenho um formul�rio, onde eu fa�o o invent�rio.

Quando clico em "lan�ar", uma procedure vai em duas tabelas e faz a grava��o dos lan�amentos.

GEINVENTARIO - que recebe o cabe�alho

TB_MOVIMENTO - que recebe os produtos

Elas s�o ligadas por um id

Quando eu clico no "Gravar", eu consolido o documento e os itens, atrav�s de um update.

Ap�s consolidar eu queria verificar se existe o item em uma outra tabela(GESALDOS), e se existir fazer um update. Se n�o existir quero gravar os produtos(na tabela GESALDOS).

Acredito que eu tenha que fazer um Select na TB_MOVIMENTO, visualizando os itens lan�ados para o documento e verificar um a um, atrav�s de o FOR de existe na GESALDOS e lan�ar.

Mas n�o estou sabendo como fazer.

Podem me ajudar?