Yoshi 1 Denunciar post Postado Janeiro 18, 2008 Eae gente gostaria de saber se tem como inserir em um banco de dados em access valor com , ex: R$ 6,20 Compartilhar este post Link para o post Compartilhar em outros sites
Yoshi 1 Denunciar post Postado Janeiro 22, 2008 ou tem algum jeito de colocar uma virgula nas casas decimais??? Compartilhar este post Link para o post Compartilhar em outros sites
Hugo Slepicka 0 Denunciar post Postado Janeiro 22, 2008 Como está vindo o valor??? Com . ???? Compartilhar este post Link para o post Compartilhar em outros sites
Yoshi 1 Denunciar post Postado Janeiro 22, 2008 Tpw coloquei na tabela como 6,20 ai tava dando erro ai eu tentei colocar 620 e queria q o edit colocasse a virgula ou ate mesmo se der pra colocar valor na tabela Compartilhar este post Link para o post Compartilhar em outros sites
Hugo Slepicka 0 Denunciar post Postado Janeiro 22, 2008 Qual o tipo do Campo??? Você ta inserindo no BD como?? Ja tentou inserir 6.20? Compartilhar este post Link para o post Compartilhar em outros sites
Yoshi 1 Denunciar post Postado Janeiro 22, 2008 è base de dados em access, tpw tentei mais na hora da consulta ta dando erro queria colocar "," nas casas decimais do edit no delphi tem como fazer? Compartilhar este post Link para o post Compartilhar em outros sites
Leonardo_Iron 0 Denunciar post Postado Janeiro 22, 2008 Yoshi isso não tem mistério. Responda a pergunta do Hugo vai ajudar a gente a te ajudar, qual o tipo do campo? Compartilhar este post Link para o post Compartilhar em outros sites
Yoshi 1 Denunciar post Postado Janeiro 22, 2008 Usei a seguinte codigo: begin Begin DMFisio.QCadExames.Active:= False; DMFisio.QCadExames.SQL.Clear; DMFisio.QCadExames.SQL.Add('SELECT codigo, cbo, descricao, valor FROM tabelaexames'); DMFisio.QCadExames.SQL.Add('WHERE codigo = ' + QuotedStr(txtcodigo.Text)); DMFisio.QCadExames.Active:= True; end; if (DMFisio.QCadExames.RecordCount > 0) Then begin FrmCadExames.txtcbo.Text := DMFisio.QCadExames.Fields[1].AsString; FrmCadExames.txtdescricao.Text := DMFisio.QCadExames.Fields[2].AsString; FrmCadExames.mtxtvalor.Text := DMFisio.QCadExames.Fields[3].CurValue; end else begin txtdescricao.Clear; txtcbo.Clear; txtvalor.Clear; end end; Compartilhar este post Link para o post Compartilhar em outros sites
Yoshi 1 Denunciar post Postado Janeiro 23, 2008 Vlw Broder concegui era uma coisa simples mesmo um erro no codigo mais vlw mesmo flw Compartilhar este post Link para o post Compartilhar em outros sites