Insertar double
 

Buenas,

Tengo un problema para insertar un double con sql, yo tengo la sentencia:

sqlcmd.CommandText = "INSERT INTO Prueba (Num) VALUES ("+precision+")";

dond precesion tiene el valor 19.2, pero cuando me hace el insert me lo convierte a 19,2

Alguien sabe como se soluciona?¿

Copia esta funcion y usala como el ejemplo:

Public Function CambiarComa(ByVal dblvalor As Double)
'************************************************* ***
'Usala asi:
'sqlcmd.CommandText = "INSERT INTO Prueba (Num) " _
' & "VALUES (" + CambiarComa(precision) + ")";
'
'************************************************* ***
Dim I As Long
dblvalor = CStr(dblvalor)
For I = 1 To Len(dblvalor)
If Mid(dblvalor, I, 1) = "," Then
CambiarComa = CambiarComa & "."
Else
CambiarComa = CambiarComa & Mid(dblvalor, I, 1)
End If
Next I
End Function

Un saludo desde Barna
Sk@keo

Gracias por la funcion, la tengo guardad en buen recaudo