Formata��o para um insert into

Question

Ol�Espero q alguem possa me ajudar.Formata��o para um insert intoo problema esta na quantMes, como fa�o para gravar o valor corretamente, a quest�o � a frass�o.     codigoEmpresa: Integer;     codigoP...

Rjun · Answer

[b:bb065059de]FRASS�O??????????????[/b:bb065059de]

N�o fica enfiando instru��o SQL no meio do seu c�digo em strings concatenadas. Isso fica horroroso e de dificil manuten��o. Utilize queries parametrizadas. D� uma pesquisada no f�rum que tem v�rios t�picos sobre isso.[/b]

Martins · Answer

codigoEmpresa:= StrToInt(DBTxtCodigoEmp.Caption);
codigoProdServ:= StrToInt(DBLookupComboBox2.KeyValue);
-> quantMes:= StrToFloat(Edit1.Text);
anoReferencia:= Edit2.Text;

DMClient.cdsEmpresas_Prod_Serv.Close; 

DMClient.cdsEmpresas_Prod_Serv.CommandText:= 

�insert into empresas_produtos_servicos values(:CodEmpresa, :CodProdServ, :QtdMes, :AnoRef)�; 

DMClient.cdsEmpresas_Prod_Serv.Params.ParamByName(�CodEmpresa�).AsInteger := IntToStr(codigoEmpresa);

DMClient.cdsEmpresas_Prod_Serv.Params.ParamByName(�CodProdServ�).AsInteger := IntToStr(codigoProdServ);

DMClient.cdsEmpresas_Prod_Serv.Params.ParamByName(�QtdMes�).AsString := FloatToStrF(Round(quantMes),FFnumber,12,2);
�0 into empresas_produtos_servicos values(:CodEmpresa, :CodProdServ, :QtdMes, :AnoRef)�; 

DMClient.cdsEmpresas_Prod_Serv.Params.ParamByName(�CodEmpresa�).AsInteger := IntToStr(codigoEmpresa);

DMClient.cdsEmpresas_Prod_Serv.Params.ParamByName(�CodProdServ�).AsInteger := IntToStr(codigoProdServ);

DMClient.cdsEmpresas_Prod_Serv.Params.ParamByName(�QtdMes�).AsString := FloatToStrF(Round(quantMes),FFnumber,12,2);

DMClient.cdsEmpresas_Prod_Serv.Params.ParamByName(�AnoRef�).AsString := AnoReferencia;

DMClient.cdsEmpresas_Prod_Serv.Execute;

boa sorte!

Martins · Answer

:?   :x T� maluco, essas tags, aff[code:1:7919d551cb]DMClient.cdsEmpresas_Prod_Serv.Close; DMClient.cdsEmpresas_Prod_Serv.CommandText:= �insert into empresas_produtos_servicos values(:CodEmpresa, :CodProdServ, :QtdMes, :AnoRef)�; DMClient.cdsEmpresas_Prod_Serv.Params.ParamByName(�CodEmpresa�).AsInteger := IntToStr(codigoEmpresa); DMClient.cdsEmpresas_Prod_Serv.Params.ParamByName(�CodProdServ�).AsInteger := IntToStr(codigoProdServ); DMClient.cdsEmpresas_Prod_Serv.Params.ParamByName(�QtdMes�).AsString := FloatToStrF(Round(quantMes),FFnumber,12,2); DMClient.cdsEmpresas_Prod_Serv.Params.ParamByName(�AnoRef�).AsString := AnoReferencia; DMClient.cdsEmpresas_Prod_Serv.Execute; [/code:1:7919d551cb]...

F�rum Formata��o para um insert into #332793