INSERIR VALOR EM REAIS

USUARIO.EXCLUIDOS 23/08/2007 08:56:20
#232177
Pessoal, gostaria que alguem me tirasse uma duvida!!!
uso um banco de dados FIREBIRD V2.0 e utilizo o seguinte codigo para inserir registro no banco:

cnn.Execute "insert into clientes(cod,nom,limite)values('" + TxtCod + "','" + TxtNom + "','" + TxtLimite.text + "')"

sendo q quando grava no banco em vez de gravar o correto 12,5 ele grava 125 ou seja ele come a virgula lembrando que o tipo do campo é numeric 9,2

alguem pode me ajudar ???

Grande abraço a todos..

Antonio
USUARIO.EXCLUIDOS 23/08/2007 09:20:07
#232180
amigo, não tenho certeza que vai funcionar, mais tente trocar a vírgula por ponto nos valores... tipo...


cnn.Execute "insert into clientes(cod,nom,limite)values('" + replace(TxtCod,",",".") + "','" + Replace(TxtNom,",",".") + "','" + Replace(TxtLimite.text,",",".") + "')"

USUARIO.EXCLUIDOS 23/08/2007 09:50:31
#232190
Amigão ele dá o seguinte erro "OBJECT REQUIRED"
USUARIO.EXCLUIDOS 23/08/2007 13:00:01
#232242
Resposta escolhida


Meu aconselho sei lá..tenta assim


txtcod = replace(TxtCod,",",".")
txtNom = Replace(TxtNom,",",".")
txtLimite = Replace(TxtLimite.text,",",".")

cnn.Execute "insert into clientes(cod,nom,limite)values('" + TxtCod + "','" + TxtNom + "','" + TxtLimite.text + "')"


Tópico encerrado , respostas não são mais permitidas