¿como insertar un campo decimal en access?
Hola a todos-as,
quisiera que alguien me dijese como insertar un campo con dos decimales, en una tabla usando la instruccion
insert into nombre_tabla
values(valor1,valor2,valor3)
siendo valor2 = 5,01
el problema es que lo toma como dos campos
muchas gracias por su atencion
saludos
quisiera que alguien me dijese como insertar un campo con dos decimales, en una tabla usando la instruccion
insert into nombre_tabla
values(valor1,valor2,valor3)
siendo valor2 = 5,01
el problema es que lo toma como dos campos
muchas gracias por su atencion
saludos
Pues tal y como ya lo has intentado en otro mensaje, la manera que yo conozco es haciendo una funcion que cambie comas por puntos (y elimine los puntos de los miles).
hola baltasar muchas gracias por tu respuesta ,
el problema que me encuantro al hacer el translate de comas por puntos es que pierdo los decimales que quiero insertar ,esto es:
si quiero insertar 5,01 le hago el translate y me queda
5.01 con lo cual al final en base de datos me queda 501
y una vez aqui no se como resolver este problema ,agradeceria cualquier sugerencia
saludos
el problema que me encuantro al hacer el translate de comas por puntos es que pierdo los decimales que quiero insertar ,esto es:
si quiero insertar 5,01 le hago el translate y me queda
5.01 con lo cual al final en base de datos me queda 501
y una vez aqui no se como resolver este problema ,agradeceria cualquier sugerencia
saludos
Lo estás haciendo bien, sólo que creo que el resultado del translate lo estás pasando mal. Si puedes copia aquí la funcion translate y te la compruebo.
mnres = Abrir_rs(rs_update, " insert into tb_modificaciones " _
& " values(" & vproy & ",'" & vproy1 & "'," & fondo & "," & proy & ",'" & proy1 & "'," & translate(cantidad,",",".") & "," & Mid(cmbmctipmod.Text, 1, 1) & ",'" & txtmcfsoli.Text & "','" & txtmcfaprob.Text & "','" & ejmed & "')", adUseServer, 35)
& " values(" & vproy & ",'" & vproy1 & "'," & fondo & "," & proy & ",'" & proy1 & "'," & translate(cantidad,",",".") & "," & Mid(cmbmctipmod.Text, 1, 1) & ",'" & txtmcfsoli.Text & "','" & txtmcfaprob.Text & "','" & ejmed & "')", adUseServer, 35)
