Insertar double

[Skakeo]

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