decimal values with no separators...

Question

User-81382370 posted

Hi

 

I try to add decimal values to a access db, but it is inserted without any separator. Here's how I do it...

Private Sub add()

Dim TimeItTook As Double = (Convert.ToDouble(DirectCast(RadComboBox1.SelectedItem, BL.TimeHandler).TimeName, New Globalization.CultureInfo("sv-SE", False)))

AddNewWork(TimeItTook)

End Sub

Private Sub AddJob(ByVal t As Double)

        Dim MySQL As String = "INSERT INTO tbl_Work (TimeItTook) " & _
        "Values (@WorkTime)"
        Dim MyConn As New OleDbConnection(MyProviderString)
        Dim Cmd As New OleDbCommand(MySQL, MyConn)

        Dim DeciamlParameter As New OleDbParameter("WorkTime", OleDbType.Decimal)
        DeciamlParameter.Value = t
        DeciamlParameter.Precision = 9
        DeciamlParameter.Scale = 2


        With Cmd.Parameters
            .Add(DeciamlParameter)
        End With

End Sub

Why is this not working?