passar valor para parametro em instrucao SQL

Question

No codigo abaixo eu pretendia que a variavel �varcodigo� fosse passada para o para o parametro �c_varcodigo� da instrucao SQL, mas isso nao esta acontecendo.O codigo esta plenamente funcional s� nao c...

Eixox · Answer

[code:1:cb0ea9961e]varcodigo := DataModule1.ClientDataSet1.FieldValues&#91;�CODIGO�&93;; DataModule1.SQLDataSet2.CommandText := �SELECT * FROM HISTORICO_PACIENTES WHERE CODIGO=:c_varcodigo); DataModule1.SQLDataSet2.ParamByName(�c_varcodigo�).asinteger := varcodigo; DataModule1.SQLDataSet2.ExecSQL;[/code:1:cb0ea9961e]function TForm1.Teste: Integer;var  Codigo : Integer;  Varr   : Integer;begin  SQLDataSet1.Active := False;  Codigo := SQLDataSet2.FieldValues[�CODCLI�];  SQLDataSet1.CommandText := ��;  SQLDataSet1.CommandText := �Select * from clientes where codcli = :pcodigo�;  SQLDataSet1.ParamByName(�pcodigo�).AsInteger := Codigo;  SQLDataSet1.Active := True;  Varr := SQLDataSet1CODCLI.Value;  Result := Varr;end;Eu fiz uma fun��o e retornou corretamente o resultado. Bem verifique se o valor que est� sendo atribu�do a sua primeira vari�vel corresponde exatamente ao tipo ou tente deixar o seu c�digo mais ou menos igual a minha fun��o que obrigatoriamente tem que funcionar....

Joe_wah · Answer

Valeu, eu acabei de fazer um teste e descobri q esta funcionando no sentido de que o valor esta sendo passado(ao menos quando nao uso a variavel) mas aparentemente a instrucao SQL nao esta funcionando, nada aocorre, mas se eu subtituo por um valor fixo ela funciona, veja, isso funciona:

DataModule1.SQLDataSet2.CommandText := �SELECT * FROM HISTORICO_PACIENTES WHERE CODIGO=:c_varcodigo�;
DataModule1.SQLDataSet2.ParamByName(�c_varcodigo�).asinteger := 34;

Mas isso abaixo nao funciona ( e posso dar certeza que a variavel �varcodigo� esta com o valor certo que deveria), a unica diferenca � q mudie o 34 para variavel varcodigo

DataModule1.SQLDataSet2.CommandText := �SELECT * FROM HISTORICO_PACIENTES WHERE CODIGO=:c_varcodigo�;
DataModule1.SQLDataSet2.ParamByName(�c_varcodigo�).asinteger := varcodigo;

Joe_wah · Answer

fiz outros testes e decobri q esta tudo funcionando POR�M esse codigo � chamado sempre q um evento ocorre mas ele s� esta sendo execuatdo na primeira vez q o evento ocorre, depois n�o funciona mais!!!!!!!!!!!!

Eixox · Answer

Acho ent�o que est� faltando voc� ativar e desativar a sua consulta n�o.Mande na �ntegra o seu c�digo para que eu possa ver o que voc� est� fazendo....

Martins · Answer

tente assim, se bem q o resultado deveria ser o esperado.


varcodigo := DataModule1.ClientDataSet1.FieldByName(�CODIGO�).AsInteger; 

DataModule1.SQLDataSet2.CommandText := �SELECT * FROM HISTORICO_PACIENTES WHERE CODIGO=:c_varcodigo�; 

DataModule1.SQLDataSet2.ParamByName(�c_varcodigo�).asinteger := varcodigo; 

DataModule1.SQLDataSet2.ExecSQL;

Ou ent�o post o q foi pedido pelo eixox!!