Insertar decimales en Access desde una caja de tex
Publicado por Luis Olias (5 intervenciones) el 23/11/2004 13:34:30
Hola buenos dias, enhorabuena por la pagina.
Estoy desarrollando ua aplicacion en Visual Basic contra Access 2000, el caso es que hago un insert como sigue:
dim am as ADODB.Connection
Set am = New ADODB.Command
am.ActiveConnection = CNN
am.CommandType = adCmdText
j = "update Clientes set pagado=pagado + " & Total_venta.Text & " where id_cliente= " & aux2
am.CommandText = j
am.Execute
Lo curioso del caso es que esa actualización funciona siempre y cuando la caja de texto text1 no tenga decimales, y entonces da error.
He probado a poner: CDbl(Text1.text)
porque si pongo: val(text1.text) solo coge la parte entera del numero
Decir que el campo "pagado" de la tabla es de tipo moneda, pero tambien he probado a cambiarlo a tipo numerico y nada, sigue igual, esa inserción falla solo como digo si meto en la caja numeros decimales.
Muchas gracias , un abrazo
Estoy desarrollando ua aplicacion en Visual Basic contra Access 2000, el caso es que hago un insert como sigue:
dim am as ADODB.Connection
Set am = New ADODB.Command
am.ActiveConnection = CNN
am.CommandType = adCmdText
j = "update Clientes set pagado=pagado + " & Total_venta.Text & " where id_cliente= " & aux2
am.CommandText = j
am.Execute
Lo curioso del caso es que esa actualización funciona siempre y cuando la caja de texto text1 no tenga decimales, y entonces da error.
He probado a poner: CDbl(Text1.text)
porque si pongo: val(text1.text) solo coge la parte entera del numero
Decir que el campo "pagado" de la tabla es de tipo moneda, pero tambien he probado a cambiarlo a tipo numerico y nada, sigue igual, esa inserción falla solo como digo si meto en la caja numeros decimales.
Muchas gracias , un abrazo
Valora esta pregunta


0