Fórum Colsulta sql com error!! #56026

23/05/2006

0

Oi turma tudo bem?

Tenho um form com 1 edit, 1 button e 1 grid. No button tenho asseguinte rortina.
Var
Cod : String;
begin
cod := ´´;
With DM_BASE do
begin
Cod := Edit1.Text;
CDS_Diarias.close;
SQLDS_Diarias.CommandText := ´Select * from Diarias where CODIGO = :Codigo´;
SQLDS_Diarias.Params[0].AsString := Cod;
SQLDS_Diarias.ExecSQL;
CDS_Diarias.open;
end;
end;

Sempre na priemira vez ele me retorna o solicitado mais dia em diante o grid não atualiza mais, sempre fica com o resultado da primeira consulta!

Alguem tem uma ieia do que seja! Estou ussando o Delphi 2005 mais Fire.

Desde ja muito obrigado! :lol:


Superdelphi

Superdelphi

Responder

Posts

23/05/2006

Thomaz_prg

Substitua o ExecSQL por Open e após o CDS_Diarias.close; coloque também SQLDS_Diarias.Close;


Responder

Gostei + 0

23/05/2006

Superdelphi

Cara eu testei mais continua do mesmo jeito. Na primeira consulta vai mais na segunda em diante não vai!! Fica sempre o resultado da primeira consulta. O grid não atualiza!!


Responder

Gostei + 0

24/05/2006

Thomaz_prg

Faça o seguinte então... no DataSetProvider, em options, deixe a opção poAllowCommandText setada para true e faça o seguinte:

Var 
  Cod : String; 
begin 
  cod := ´´; 
  With DM_BASE do begin 
    Cod := Edit1.Text; 
    CDS_Diarias.close; 
    CDS_Diarias.CommandText := ´Select * from Diarias where CODIGO = :Codigo´; 
CDS_Diarias.Parameters[0].Value := Cod; 
    CDS_Diarias.open; 
  end; 
end; 


Tente isso e veja se funciona.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar