Erro ao gravar no banco

Delphi

11/08/2009

Calegas,
Ja testei com EditNum, TEdit, DbEdit e não resolveu.
Quando mando gravar um valor ex: 70.35 (70,35) no banco de dados da a mensagem:
[b:8c3bc04aa8]´Data Truncated for colunm´precocondominio´ at row1´.[/b:8c3bc04aa8]

Quando gravo direto no banco de dados não da este problema, mas quando mando gravar do formulário aparece esta mensagem.
O campo no banco de dados é o seguinte:

precocondominio (Double(9,2)
no formulario coloqui para gravar a procedure
[b:8c3bc04aa8]
DM.Condominio.fieldbyname(´precocondominio´).value := strToFloat(precocondominio.text)[/b:8c3bc04aa8]

alguém sabe como resolver isso?


Nlsouza

Nlsouza

Curtidas 0

Respostas

Osocram

Osocram

11/08/2009

mude a propriedade ´EditFormat´ deste seu campo para ´#0.00´
veja se isso resolve


GOSTEI 0
Nlsouza

Nlsouza

11/08/2009

Bem colega o que eu fiz.
Criei um form Teste
Estou usando o DbExpress Query, Privider, ClienteDataSet e Source

Criei um tabelinha
Codigo (autoincremente)
Procuto (varchar(20)
valor(double(9,2)

O código abaixo esta no procedimento click de um botão.

dm.CDs_teste.Append;
dm.cds_teste.fieldbyname(´descricao´).asstring := edtProduto.Text;
[b:e143523a4d] dm.cds_teste.fieldbyname(´valor´).value := StrToFloat(edtPreco.Text); [/b:e143523a4d]
dm.CDs_teste.Post;
dm.CDs_teste.ApplyUpdates(-1);

Quando clico para gravar retorna a mesma mensagem de erro:
[b:e143523a4d]´Data truncated for collunm ´valor´ at row 1´.[/b:e143523a4d]

Testei com os componentes EditNum e TEdit e deu a mesma mensagem.
Tem outra idéia.


GOSTEI 0
Osocram

Osocram

11/08/2009

tenta usar um sqlmonitor para ver se vc conegue pegar o sql gerado.


GOSTEI 0
Nlsouza

Nlsouza

11/08/2009

O problema é que como iniciante não sei usar o sql monitor. Tem outro jeito?


GOSTEI 0
Osocram

Osocram

11/08/2009

adiciona ele no mesmo form do Connection

faz assim....
seleciona esse codigo q estou t passando.... da um Ctrl+C
vai no seu form e da um Ctrl+V... ele ja vai criar o componente.

object SQLMonitor1: TSQLMonitor
  Active = True
  AutoSave = True
  FileName = ´c:\zica.log´      <- nome do arquivo
  SQLConnection = sqlConn  <- seu connection
end


O problema é que como iniciante não sei usar o sql monitor. Tem outro jeito?



GOSTEI 0
Osocram

Osocram

11/08/2009

Desculpa faltou 2 propriedades p fazer o copiar e colar...

object SQLMonitor1: TSQLMonitor
  FileName = ´c:\zica.log´
  SQLConnection = sqlConn
  Left = 558
  Top = 48
end



GOSTEI 0
POSTAR