Duvida SQL/ADO
20/03/2003
0
Negada, tenho esse codigo no meu programa
[b:8d0a83b819]with dtmProducao.qryTrabalho do
begin
SQL.Clear;
SQL.Add(´SELECT SUM(TempoPrevisto), FcMaqData FROM OPOper WHERE MaqCod = :CodM GROUP BY MaqCod, FcMaqData´);
Parameters.ParamByName(´CodM´).Value := edtCodMaq.Text;
try
ExecSQL;
except
on EDatabaseError do
Application.MessageBox (´Não foi possível encontrar os serviços desta máquina´,´Erro´,mb_OK);
end;
end;[/b:8d0a83b819]
O problema eh q o programa fala que o parametro [b:8d0a83b819]CodM[/b:8d0a83b819] nao existe! Eu to utilizando uma conexao ADO. Ja tentei de tudo e num consigo resolve isso! Me ajudem!
obrigado!
[b:8d0a83b819]with dtmProducao.qryTrabalho do
begin
SQL.Clear;
SQL.Add(´SELECT SUM(TempoPrevisto), FcMaqData FROM OPOper WHERE MaqCod = :CodM GROUP BY MaqCod, FcMaqData´);
Parameters.ParamByName(´CodM´).Value := edtCodMaq.Text;
try
ExecSQL;
except
on EDatabaseError do
Application.MessageBox (´Não foi possível encontrar os serviços desta máquina´,´Erro´,mb_OK);
end;
end;[/b:8d0a83b819]
O problema eh q o programa fala que o parametro [b:8d0a83b819]CodM[/b:8d0a83b819] nao existe! Eu to utilizando uma conexao ADO. Ja tentei de tudo e num consigo resolve isso! Me ajudem!
obrigado!
Anonymous
Curtir tópico
+ 0
Responder
Posts
20/03/2003
Anonymous
Já que vc está manipulando o sql em tempo de execução vc não precisa criar parâmetros.
Faça o seguinte:
[color=red:e287b720fa]var CodM :string;
....
CodM:= edtCodMaq.Text; [/color:e287b720fa]
with dtmProducao.qryTrabalho do
begin
SQL.Clear;
SQL.Add(´SELECT SUM(TempoPrevisto), FcMaqData FROM OPOper WHERE [color=red:e287b720fa]MaqCod =´+CodM+´[/color:e287b720fa] GROUP BY MaqCod, FcMaqData´);
try
ExecSQL;
except
on EDatabaseError do
Application.MessageBox (´Não foi possível encontrar os serviços desta máquina´,´Erro´,mb_OK);
end;
end;
Faça o seguinte:
[color=red:e287b720fa]var CodM :string;
....
CodM:= edtCodMaq.Text; [/color:e287b720fa]
with dtmProducao.qryTrabalho do
begin
SQL.Clear;
SQL.Add(´SELECT SUM(TempoPrevisto), FcMaqData FROM OPOper WHERE [color=red:e287b720fa]MaqCod =´+CodM+´[/color:e287b720fa] GROUP BY MaqCod, FcMaqData´);
try
ExecSQL;
except
on EDatabaseError do
Application.MessageBox (´Não foi possível encontrar os serviços desta máquina´,´Erro´,mb_OK);
end;
end;
Responder
20/03/2003
Anonymous
Valeu cara...
Mas desencana.... o Query num tava conectado, por isso dava pau! :(
Sao os detalhes que modificam o o mundo.....
Mas desencana.... o Query num tava conectado, por isso dava pau! :(
Sao os detalhes que modificam o o mundo.....
Responder
Clique aqui para fazer login e interagir na Comunidade :)