Fórum Colsulta sql com error!! #56026
23/05/2006
0
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
Curtir tópico
+ 0Posts
23/05/2006
Thomaz_prg
Gostei + 0
23/05/2006
Superdelphi
Gostei + 0
24/05/2006
Thomaz_prg
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
Clique aqui para fazer login e interagir na Comunidade :)