bonjour,
je trouve une difficulté a insérer des prix sur sqlserver voici mon code:
cn.ConnectionString = "server=192.168.1.12\SQLEXPRESS;database=eco;user id='user';password='user'"
Try
cn.Open()
Dim a, b As Integer
a = Val(TextBox1.Text)
Dim inf, sup, mont, av As Double
av = Val(TextBox2.Text)
If a <= 16 Then
inf = a * 6.5
sup = 0
mont = Double.Parse(sup + inf - av)
cmd = New SqlCommand("insert into PAIE(NOM_AG,JOURNEE,NBR_CPT,MONT_INF_16,MONT_SUP_16,Avance,MONTANT_JOURNEE) values('" & ComboBox1.SelectedItem & "','" & DateTimePicker1.Value.Date & "','" & Val(TextBox1.Text) & "','" & inf & "','" & sup & "','" & TextBox2.Text & "','" & mont & "');", cn)
cmd.ExecuteNonQuery()
MsgBox("Pointage Réussi", MsgBoxStyle.OkOnly)
TextBox1.Text = ""
ElseIf a > 16 Then
b = a - 16
inf = 16 * 6.5
sup = b * 7.5
mont = Double.Parse(sup + inf - av)
cmd = New SqlCommand("insert into PAIE(NOM_AG,JOURNEE,NBR_CPT,MONT_INF_16,MONT_SUP_16,Avance,MONTANT_JOURNEE) values('" & ComboBox1.SelectedItem & "','" & DateTimePicker1.Value.Date & "','" & Val(TextBox1.Text) & "','" & inf & "','" & sup & "','" & TextBox2.Text & "','" & mont & "');", cn)
cmd.ExecuteNonQuery()
MsgBox("Pointage Réussi", MsgBoxStyle.OkOnly)
TextBox1.Text = ""
End If
Catch ex As Exception
MsgBox("Erreur:" & ex.ToString)
End Try
cn.Close()
End Sub
quand je donne des valeurs telles que:
nombre de compteurs:31
avance: 12,50
au niveau de la base de données j'ai des résultats comme suit:
1125,0000 alors qu'elle doit être 112.50
le type de champas et smallmoney.
que dois je faire.