1 2 3 4 5 6 7 8 9 10 11 12 13
| Dim ReqEnregistrer As String = "IF EXISTS ( SELECT * FROM moy_c where id_agr = " & cb_agrume.SelectedValue & " and province_mc = '" & cb_province.SelectedValue & "' and campagne_mc='" & txt_campagne.Text & "' and mois_mc=" & cb_mois.SelectedValue & ") update moy_c set moyenne= " & a & " where (id_agr = " & cb_agrume.SelectedValue & " and province_mc = '" & cb_province.SelectedValue & "' and campagne_mc='" & txt_campagne.Text & "' and mois_mc=" & cb_mois.SelectedValue & " ) ; ELSE insert into moy_c values (" & cb_agrume.SelectedValue & ",'" & txt_campagne.Text & "'," & cb_mois.SelectedValue & ",'" & cb_province.SelectedValue & "'," & a & " ); "
Dim objcmd As New SqlCommand(ReqEnregistrer, Cn)
Dim paramNom As SqlParameter = objcmd.CreateParameter()
paramNom.ParameterName = "a"
paramNom.DbType = DbType.Decimal
paramNom.Direction = ParameterDirection.Input
'paramNom.Valuee= "O'Hara"
objcmd.Parameters.Add(paramNom)
objcmd.ExecuteNonQuery() |
Partager