Incluir registro no Mysql com ado e Edit

[Redmar 0]

Fiz um Adoconnection - AdoQuery

 

 

Preciso incluir um registro q esta num edit e adicionar a ele + 9,28

 

Usei assim no botão:

adoquery1.append;

adoquery1.fieldbyname('data').asFloat := strtodate(maskedit3.text);

adoquery1.fieldbyname('cod').asString := '40';

adoquery1.FieldByname('valor').AsString := '0';

adoquery1.FieldByName('valor2').Value := edit1.text + 9,28; ***

adoquery1.post;

 

 

***tudo Funcionou menos aqui, preciso somar ao valor q já esta no edit mais 9,28, se eu tirar o + 9,28 funciona, mas preciso somálo.

[port3r 0]

Não é a melhor forma, mas vê se te ajuda.

 

Você tem que transformar o valor do Edit1 em Float, só depois efetuar a soma que deseja.

 

Observe também o separador decimal que está utilizando.

 

Exemplo simples:

procedure TForm1.Button1Click(Sender: TObject);
const
  vAuxiliar = 9.28;
var
  vMensagem: Currency;

begin
  vMensagem := StrToFloat(Edit1.Text) + vAuxiliar;
  ShowMessage(FloatToStr(vMensagem));
end;

Seu exemplo

adoquery1.FieldByName('valor2').Value := StrToFloat(edit1.text) + 9.28;

 

Abraços.

[Redmar 0]

da [Error] Unit1.pas(125): Undeclared identifier: 'vAuxiliar')

 

Fiz assim e não funcionou:

 

procedure TForm1.Edit1Change(Sender: TObject);

Var

valor1: Real;

valor2: Real;

vAuxiliar: Real;

begin

vAuxiliar:=9.28;

end;

 

 

procedure TForm1.Button3Click(Sender: TObject);

begin

adoquery1.append;

adoquery1.FieldByName('valor1').AsString := StrToFloat(Edit1.Text) + vAuxiliar;

 

adoquery1.post;

end;

end.

[port3r 0]

Você está declarando o vAuxiliar no onChange do Edit1, isso não pode. A procedure que está no clique do Button3 não vai enxergar essa variável.

 

Porque você não declara como CONSTANTE, como o exemplo que passei? Se não quer declarar como CONSTANTE, declare como uma variável pública na seção "Public" da usa Unit.

 

Abraços.

[Redmar 0]

Cara, funcionou redondinho, sem nenhum erro, ficou ótimo!!!

Vlw!

 

Só mais uma coisa, e para usar alguns desses dados em outra tabela, usando o mesmo form, só lembrando que o adoconnection esta ligado em outro banco e o adoquery em outra tabela, existe esta possibilidade?

[port3r 0]

Redmar, infelizmente eu não entendi o que você quis dizer com: "usar alguns desses dados em outra tabela".

 

Pode explicar melhor?

 

Abraços.

[Redmar 0]

Essa inclusão foi feita em uma tabela com adoconection

Existe uma outra bela que usa alguns desses mesmos campos

 

Gostaria de pegar e incluir nesta outra tabala esses dados.

 

Melhor eu fazer o seguinte, pensar melhor sobre essa questão e postar quando tiver certeza do que preciso.

Espero contar contigo!

 

Meu email é redmarandrade@ig.com.br

[port3r 0]

Beleza, pensa aí, depois posta!