Convertir Tipos de datos

[Luzda]

Buenas tardes.

Tengo el siguiente inconveniente y agradezco enormemente si alguien me puede colaborar.

Estoy realizando un trabajo de clase donde tengo un webforms que esta enazado a una base de datos creada en ORACLE 9i, en la base de datos tengo unos campos que son tipo number y manejan decimales (ya le he ingresado datos directamente desde oracle y me funciona perfecto) yo necesito guardar en esos campos el contenido de unas cajas de texto que el usuario llena, pero me sale error cuando le doy guardar y es cuando escribo en esas cajas de texto valores decimales como por ejemplo 0.15.

tengo una caja de texto que se llama txtvalor, lo que hago es lo siguiente

Dim valor As Decimal

valor= txtvalor.text

'Creo la conexión a la base de datos
conexion = New OracleConnection("Data Source=bdmat;User ID=system;password=bdmat;Unicode=True")

'Abro la conexión
conexion.Open()

'Armo el Insert para guardar en la tabla de la base de datos.
comando.CommandText = "INSERT into SUCKER_ROD values('" & id & "' , '" & valor & "', '" & tipo & "')"
comando.CommandType = CommandType.Text
comando.Connection = conexion

'Ejecuto el insert
rta = comando.ExecuteOracleNonQuery(i)

Repito, en el momento en que le doy guardar es que me sale el error y es por los puntos decimales.

Agradezo si me pueden decir como arreglar esto pues estoy en la cuerda floja con ese trabajito de semestre.

Que DIos los bendiga

LuzDa

[mdavila]

tu comando no deberia ser algo asi!!!

comando.CommandText = "INSERT into SUCKER_ROD (id, valor, tipo) values('" & id & "' , '" & valor & "', '" & tipo & "')"

[mdavila]

Otra cosa es que en el valor tenes '' y si en la BD esta como decimal tenes que sacarlo, tene cuidado con los tipos, tambien el id te debe pasar lo mismo

values(" & id & " , " & valor & ", '" & tipo & "')"

[Luzda]

Buenas tardes mdavila.

gracias por tus respuestas. con respecto a al primera si tengo la instruccion select como me respondiste, solo que no lo copie.
comando.CommandText = "INSERT into SUCKER_ROD (id, valor, tipo) values('" & id & "' , '" & valor & "', '" & tipo & "')"


En cuanto a lo de las comillas ya probe de todas las formas y no me funciona, y el caso del id, que tambien es numerico, pero entero(sin decimales) ese me funciona perfecto, ese no lo tomo de una caja de texto sino que genero un consecutivo. No entiendo porque ese si y el valor que tambien es numerico no me lo toma. Por favor si sabes otra forma de hacerlo o si tengo que aplicar alguna función de conversión de datos te agradezco.

Mil gracias

Luz Da

[mdavila]

pero si es consecutivo y lo tenes autonumerico en la BD, no lo tenes que agregar a tu insert.

comando.CommandText = "INSERT into SUCKER_ROD (valor, tipo) values(" & valor & ", " & tipo & ")"

[Luzda]

Hola mdavila

Gracias por tu respuesta. El problema que tengo es con el campo valor que es de tipo numerico, hablaba del consecutivo que es el campo id que tambien es de tipo numerico porque ORACLE no tiene tipos consecutivos, para aclarar que con ese dato no tengo problema,pero con el contenido de valor si.

Mil gracias
Luz Da

[mdavila]

Intenta castear el decimal de una forma mas correcta a ver que pasa.....

valor= CType(Txtvalor.Text.Trim, Decimal)

[Luzda]

Iniciado por Luzda

Buenas tardes.

Tengo el siguiente inconveniente y agradezco enormemente si alguien me puede colaborar.

Estoy realizando un trabajo de clase donde tengo un webforms que esta enazado a una base de datos creada en ORACLE 9i, en la base de datos tengo unos campos que son tipo number y manejan decimales (ya le he ingresado datos directamente desde oracle y me funciona perfecto) yo necesito guardar en esos campos el contenido de unas cajas de texto que el usuario llena, pero me sale error cuando le doy guardar y es cuando escribo en esas cajas de texto valores decimales como por ejemplo 0.15.

tengo una caja de texto que se llama txtvalor, lo que hago es lo siguiente

Dim valor As Decimal

valor= txtvalor.text

'Creo la conexión a la base de datos
conexion = New OracleConnection("Data Source=bdmat;User ID=system;password=bdmat;Unicode=True")

'Abro la conexión
conexion.Open()

'Armo el Insert para guardar en la tabla de la base de datos.
comando.CommandText = "INSERT into SUCKER_ROD values('" & id & "' , '" & valor & "', '" & tipo & "')"
comando.CommandType = CommandType.Text
comando.Connection = conexion

'Ejecuto el insert
rta = comando.ExecuteOracleNonQuery(i)

Repito, en el momento en que le doy guardar es que me sale el error y es por los puntos decimales.

Agradezo si me pueden decir como arreglar esto pues estoy en la cuerda floja con ese trabajito de semestre.

Que DIos los bendiga

LuzDa

Hola a todos, les informo que ya soluciones mi problema. Esta es la forma correcta de hacerlo:

Dim valor As Decimal

valor = CType(txtvalor.Text.Trim, OracleNumber)

'Creo la conexión a la base de datos
conexion = New OracleConnection("Data Source=bdmat;User ID=system;password=bdmat;Unicode=True")

'Abro la conexión
conexion.Open()

'Armo el Insert para guardar en la tabla de la base de datos.
comando.CommandText = "INSERT into SUCKER_ROD values('" & id & "' , '" & valor & "', '" & tipo & "')"
comando.CommandType = CommandType.Text
comando.Connection = conexion

'Ejecuto el insert
rta = comando.ExecuteOracleNonQuery(i)

Aparte de lo anterior es importante hacer lo siguiente en el load de la pagina principal, ya que el separador de decimales depende de la configuración regional de cada máquina.

Imports System.Threading

Protected Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load
Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("es-MX")
End Sub

En este caso el separador de decimales sera el ( . )

Chao y espero que le pueda servir a alguien mas.

LuzDa