Erro Consulta com SQLDataSet

Delphi

26/09/2005

Tenho o seguinte código:
DMComissaoFinan.SQLDataSetComissaoFinanc.Close;
       DMComissaoFinan.SQLDataSetComissaoFinanc.CommandText:=´insert into comissaofinanc (vr_comissao,cod_financeira,´
           +´tabela,data,plano,codorgao,tipofinan,cod_comissaofinanc) values ´
           +´(:valor,:financ,:tabela,:data,:plano,:orgao,:tipo,:cod)´;
       DMComissaoFinan.SQLDataSetComissaoFinanc.ParamByName(´valor´).Value:=EditComissao.Text;
       DMComissaoFinan.SQLDataSetComissaoFinanc.ParamByName(´plano´).Value:=EditPlano.Text;
       DMComissaoFinan.SQLDataSetComissaoFinanc.ParamByName(´financ´).Value:=financeira;
       DMComissaoFinan.SQLDataSetComissaoFinanc.ParamByName(´tabela´).Value:=EditTabela.Text;
       DMComissaoFinan.SQLDataSetComissaoFinanc.ParamByName(´cod´).Value:=comissaofinanc;
       DMComissaoFinan.SQLDataSetComissaoFinanc.ParamByName(´data´).Value:=Date;
       DMComissaoFinan.SQLDataSetComissaoFinanc.ParamByName(´orgao´).Value:=orgao;
       DMComissaoFinan.SQLDataSetComissaoFinanc.ParamByName(´tipo´).Value:=EditTipoFinan.Text;
       DMComissaoFinan.SQLDataSetComissaoFinanc.ExecSQL;


mas quando é executavel acontece o seguinte erro:

raised exception class EDatabaseErro with message ´unassigned code ´. Process stopped. Use step or Run continue.


Já verifiquei a consulta e não vejo nenhum erro, alguém poderia me ajudar! :(


Eldrey

Eldrey

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

26/09/2005

with DMComissaoFinan.SQLDataSetComissaoFinanc do
begin
  Close;
  CommandText:=´insert into comissaofinanc (vr_comissao,cod_financeira,´+
               ´tabela,data,plano,codorgao,tipofinan,cod_comissaofinanc) ´+
               ´values (:valor,:financ,:tabela,:data,:plano,:orgao,:tipo,:cod)´;
  ParamByName(´valor´).asfloat:=strtofloat(EditComissao.Text);
  ParamByName(´plano´).asstring:=EditPlano.Text;
  ParamByName(´financ´).asinteger:=financeira;
  ParamByName(´tabela´).asstring:=EditTabela.Text;
  ParamByName(´cod´).asinteger:=comissaofinanc;
  ParamByName(´data´).asdatetime:=Date;
  ParamByName(´orgao´).asinteger:=orgao;
  ParamByName(´tipo´).asstring:=EditTipoFinan.Text;
  ExecSQL;
end;


a única coisa que eu fiz de diferente foi informar os tipos dos campos.
não sei se fará alguma diferença.
o resto foi apenas uma alteração ´estética´ e não deve afetar em nada o código.


GOSTEI 0
POSTAR