Colsulta sql com error!!

Firebird

23/05/2006

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

Curtidas 0

Respostas

Thomaz_prg

Thomaz_prg

23/05/2006

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


GOSTEI 0
Superdelphi

Superdelphi

23/05/2006

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!!


GOSTEI 0
Thomaz_prg

Thomaz_prg

23/05/2006

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.


GOSTEI 0
POSTAR