Comunicação com banco de dados

[Livio Neiva]

eu fiz um formulario de cadastro com as conexão DBExpress, e quando eu insiro dados e confirmo, ou seja eu dou o post, aparece a seguinte menssagem de erro!!!

projetc siscom.exe raised exception class EdatabaseError whith message 'Data truncated for column 'vltotal' at row 1'. process stopped. Use step or run to continue

vltotal é um campo(registro) do meu banco de dados.

o que faço para resolver????

[Jhonas]

projetc siscom.exe raised exception class EdatabaseError whith message 'Data truncated for column 'vltotal' at row 1'. process stopped. Use step or run to continue

vltotal é um campo(registro) do meu banco de dados.

O erro é : Dados truncados para coluna 'vltotal' na linha 1

verifique o conteudo deste campo se é string ou integer.

abraço

[Livio Neiva]

O MEU CAMPO ('VLTOTAL' DA TABELA) É VALOR MONETÁRIO (0,00), NA MINHA TABELA ESTAR COMO VALOR MONETARIOS DOUBLE 9,2

ESTOU USANDO UM COMPONENTE EDITNUM PARA ENVIAR DADOS PARA TABELA

E NO MEU PROCEDMENTO DE GRAVAÇAO DO EDIT PARA BANCO DE DADOS TA ASSIM

F_DMExpress.Cds_Pagamento.FieldByName('VLTOTAL').AsString := EditValor.Text;

E NO MEU PROCEDIMENTO QUE ENVIA DO BANCO DE DADOS PARA EDITS ESTAR ASSIM

EditValor.Text := F_DMExpress.Cds_Pagamento.FieldByName('VLTOTAL').AsString;

como faço para resolver??

[Jhonas]

Se seu campo 'VLTOTAL' da tabela é valor monetário (0,00), porque está passando string ?

faça a conversão antes

F_DMExpress.Cds_Pagamento.FieldByName('VLTOTAL').Value := StrToFloat(EditValor.Text);

abraço

[Livio Neiva]

Foi feito essa alteração

F_DMExpress.Cds_Pagamento.FieldByName('VLTOTAL').Value := StrToFloat(EditValor.Text);

O PROBLEMA CONTINUA COM A MESMA MENSSAGEM DE ERRO E TEM OUTRA MENSSAGEM TB.

Project Aplicom.exe raised exception class EDatabaseError with message 'Unable to find record. No key specified'. process stopped. Use Step or Run to continue.

o q vocês aconselham a fazer agora???

[Jhonas]

MEU CAMPO ('VLTOTAL' DA TABELA) É VALOR MONETÁRIO (0,00),

Mude seu campo para Integer e veja o que acontece

abraço

[Livio Neiva]

Ele deu essa mensagem de erro;

’50,00’ is not a valid integer value for Field vltotal

que já era esperado!!!

e agora faço o q??

[Jhonas]

’50,00’ is not a valid integer value for Field vltotal

'50,00' não é um valor inteiro válido para o campo vltotal

observe que este valor é uma string .. então faça a conversão

exemplo:

procedure TForm1.Button1Click(Sender: TObject);
var num : real; n : string;
begin
   n := '50,00';
   num := strtofloat(n);
   edit1.text := floattostr(num);
end;

abraço

[Livio Neiva]

e onde eu devo locolar esse procedimento???

num button???

[Jhonas]

e onde eu devo colocar esse procedimento???

num button???

Livio... isto é apenas um exemplo, voce é que deve adptar as suas necessidades ( você está bem fraquinho em programação ) procure ler mais sobre o delphi, no forum voce encontrá apostilas de delphi

abraço

[Livio Neiva]

e onde eu devo colocar esse procedimento???

num button???

Livio... !!!!

abraço

[Douglas Soares]

Creio que você deve fazer isso:

F_DMExpress.Cds_Pagamento.FieldByName('VLTOTAL').Value := FloatToStr(EditValor.Text);

e para o outro erro: 'Unable to find record. No key specified' Você deve ter um primary key no seu banco de dados, no caso seria uma tabela chamada codigo por exemplo!, vá até ela atravez do Cds_Pagamento, então vá em Fields, e ache o seu campo "CODIGO", clique nele, e na propriedade provider flags, você precisa setar a opção 'pfInKey' para True.

Abraços!