05-04-16, 01:52 PM
السلام عليكم ورحمة الله تعالى وبركاته
رجاءا في جملة الإنسرت واجهتني هذه الرسالة رجاءا ما معناها ؟
ألف شكر لكم
[attachment=10054]
رجاءا في جملة الإنسرت واجهتني هذه الرسالة رجاءا ما معناها ؟
ألف شكر لكم
[attachment=10054]
Try
Dim sql_prod As String = "INSERT INTO Prod (ID_Prod, Design, ID_Mrq, Code_Barre, Fam, Prix_V, Peremp, Unit_M )" & _
"values(@ID_Prod, @Design, @ID_Mrq, @Code_Barre, @Fam, @Prix_V, @Peremp, @Unit_M )"
Dim saveProd As New SqlClient.SqlCommand(sql_prod, cnn)
saveProd.Parameters.AddWithValue("@ID_Prod", Me.txtRef.Text)
saveProd.Parameters.AddWithValue("@Design", Me.txtDesgn.Text)
saveProd.Parameters.AddWithValue("@ID_Mrq", Me.CboMarques.SelectedValue)
saveProd.Parameters.AddWithValue("@Code_Barre", Me.txtCBR.Text)
saveProd.Parameters.AddWithValue("@Fam", Me.cbofam.SelectedValue)
saveProd.Parameters.AddWithValue("@Prix_V", Me.txtPrix_V.Text)
saveProd.Parameters.AddWithValue("@Peremp", Me.DTP.Value)
saveProd.Parameters.AddWithValue("@Unit_M", Me.CboUnit_Mesur.Text)
cnn.Open()
saveProd.ExecuteNonQuery()
MsgBox("Enregistrement fait avec Succée", vbMsgBoxRight, "Confirmation")
cnn.Close()
Clear_Objets()
txtRef.Focus()
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try