Visual Basic.NET - Guardar numeros con decimales

Hola, tengo números con decimales en un textbox de visual basic . net y tengo que guardarlos en SQL SERVER 2000. ¿Sabe alguien como hay que declarar la variable de Visual Basic.NET si esta recibe su valor de un textbox, y como hay que declarar el campo de la base de datos?
MUCHAS GRACIAS

Hola

El campo de la base de datos lo puedes declarar como float, real o decimal... En cualquiera de los casos puedes declarar tu variable de VB de tipo Double.

Luego obtienes el valor del textbox usando la clase Convert, algo asi como:

Dim dbl as Double
dbl = Convert.ToDouble(textbox1.Text)

Saludos

Muchas gracias edgar, pero lo he probado y no funciona. ¿Con esto que me has dicho, seria pasar "dbl" en el insert de la base de datos sobre un campo que sea decimal o float y ya esta, o habria que hacer algo más? MUCHAS GRACIAS

Hola

Bueno.. en el otro mensaje te explico que puedes hacer, pero te recomiendo que uses la clase DataSet si te es posible, con esto no tienes que preocuparte de hacer la conversión porque esto lo hace el internamente

Saludos

Hola bueno quisiera que me ayuden en esto
Asi esta mi dataset
Dim ds = new dsgeneral()
Dim dt = new dsgeneraltableadapters.taproducto
Dim idp = txtidp.text.trim
Dim cat = cbxcat.selecteditem.tostring
Dim nom = txtnom.text.trim
Dim precio = txtpre.text.trim
Dim resultado = dt.agregar(idp , cat , nom , precio)
El hecho es q no me reconoce precio sale error en mi base de datos declare a precio como decimal q hago como es el codigo

Hola.

En primer lugar decirte que leas todo respecto a los tipos de datos en SQL Server. Pero para tu caso debes tener declarado el tipo de dato Decimal en tu tabla, teniendo en cuenta la precisión y la escala.

Ahora si tu campo es decimal, y como trabajas con los datasets, que particularmente nunca los usos por motivos de rendimiento, entonces el campo precio debe ser decimal y tu código deberia quedar así:

Dim ds = new dsgeneral()
Dim dt = new dsgeneraltableadapters.taproducto
Dim idp = txtidp.text.trim
Dim cat = cbxcat.selecteditem.tostring
Dim nom = txtnom.text.trim
Dim precio =Convert.ToDecimal( txtpre.text)
Dim resultado = dt.agregar(idp , cat , nom , precio)