Fórum Insert into com Valores alguem sabe... 12,51 não consigo.. #213035
10/02/2004
0
Usando a virgula.....
como faço para gravar um valor por exemplo
1,25
quando tento gravar ele me da um erro.. uso o seguinte codigo
Q.Sql.Add(´Insert into CliCredito(Codigo,Nome,ValorCredito´);
Q.Sql.Add(´Values (+ QuotStr(editCodigo.text) + ´,+
QuotStr(editNome.text) + ´,+
QuotStr(editValorCredito.text) ´);
Q.Execsql;
se eu gravo um valor tipo assim.: 1,00 ele grava normal... mas se coloco assim 1,11 ele ja da um erro..
o Campo no Banco de Dados é Numeric 12,2
Como faço para resolver este poblema....obrigado..
como faço para gravar um valor por exemplo
1,25
quando tento gravar ele me da um erro.. uso o seguinte codigo
Q.Sql.Add(´Insert into CliCredito(Codigo,Nome,ValorCredito´);
Q.Sql.Add(´Values (+ QuotStr(editCodigo.text) + ´,+
QuotStr(editNome.text) + ´,+
QuotStr(editValorCredito.text) ´);
Q.Execsql;
se eu gravo um valor tipo assim.: 1,00 ele grava normal... mas se coloco assim 1,11 ele ja da um erro..
o Campo no Banco de Dados é Numeric 12,2
Como faço para resolver este poblema....obrigado..
Babu
Curtir tópico
+ 0
Responder
Posts
10/02/2004
Adilsond
Voce deverá converter a virgula por ponto
Ex: em vez de 1,25 voce deverá informar 1.25
Existe duas maneiras de fazer isto:
1 - crie uma função passando o valor do edit e lhe retornando uma string com o valor com a virgula trocada por ponto.
2 - passar os valores por parametros. Ex:
´Values (´ + editCodigo.text + ´,´ + QuotStr(editNome.text) +
´, :ValorCredito)
Ex: em vez de 1,25 voce deverá informar 1.25
Existe duas maneiras de fazer isto:
1 - crie uma função passando o valor do edit e lhe retornando uma string com o valor com a virgula trocada por ponto.
2 - passar os valores por parametros. Ex:
´Values (´ + editCodigo.text + ´,´ + QuotStr(editNome.text) +
´, :ValorCredito)
Responder
Gostei + 0
10/02/2004
Fabio.hc
Por parâmetros:
Ex:
Ex:
Q.Sql.Add(´Insert into CliCredito(Codigo,Nome,ValorCredito) values Values (:cod, :nom, :valor)´); Q.Sql.Params[0].Value:=strtoint(editCodigo.text); Q.Sql.Params[1].Value:=editNome.text; Q.Sql.Params[2].Value:=strtofloat(editValorCredito.text); Q.Execsql;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)