problème avec les form visual studio
bonjour, je suis vraiment coincé , j'ai 2 form , la 1ere pour ajouter une entreprise,et la 2 eme pour ajouter un consortium.
pour ajouter une entreprise suivant la form1 , je fais :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
| Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
remplirConsortium()
If (Me.TextBox1.Text = "") Or (Me.TextBox2.Text = "") Or (Me.TextBox3.Text = "") Or (Me.TextBox4.Text = "") Or (Me.TextBox5.Text = "") Or (Me.TextBox6.Text = "") Or (Me.TextBox7.Text = "") Or (Me.TextBox8.Text = "") Or (Me.TextBox9.Text = "") Or (Me.TextBox10.Text = "") Then
Label17.Visible = True
Else
Try
DataRow = DataSet.Tables("dbo.consortium").NewRow()
DataRow("nomConsortium") = Me.TextBox1.Text
DataRow("logo") = Form5.PictureBoxImageToBytes(PictureBox1)
DataRow("anneeConstitution") = Me.TextBox3.Text
DataRow("capital") = Me.TextBox4.Text
DataRow("numRC") = Me.TextBox5.Text
DataRow("typologieConsortium") = Me.TextBox6.Text
DataRow("typolopgieEntreprise") = Me.TextBox7.Text
DataRow("adresse") = Me.TextBox8.Text
DataRow("email") = Me.TextBox9.Text
DataRow("siteWeb") = Me.TextBox10.Text
DataRow("nomSA") = Me.ComboBox1.Text
DataRow("nomFJ") = Me.ComboBox2.Text
DataRow("nomPresident") = Me.ComboBox3.Text
DataRow("dateCreation") = Me.DateTimePicker1.Text
DataRow("remarque") = Me.TextBox11.Text
DataSet.Tables("dbo.consortium").Rows.Add(DataRow)
cmd = New SqlCommand(strSql, connexion)
cmdBuilder = New SqlCommandBuilder(adapter)
adapter.Update(DataSet, "dbo.consortium")
MsgBox("Le consortium a été bien ajouté")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
Catch ex As Exception
MsgBox("consortium existe déja")
TextBox1.Text = ""
End Try
End If
End Sub
Private Sub remplirConsortium()
DataSet.Clear()
DataTable2.Clear()
adapter.Fill(DataSet, "dbo.consortium")
DataTable2 = DataSet.Tables("dbo.consortium")
End Sub |
et c'est de la meme chose pour inserer un consortium suivant la form2.
le problème si je rentre sur la form 1, après je sors, et je rentre sur la form2 , en revenant sur la form 1 pour ajouter une nouvelle entreprise voila l 'erreur que j’obtiens :
Citation:
Impossible d’insérer la valeur null dans la colonne "nomconsortium" table"consortiumDatabaseSQL.dbo.consortium' cette colonne n’accepte pas les valeurs null echec de INSERT. l 'instruction a été arrêtée .
je comprends pas moi je suis sur la form1 ,qui fait l insertion dans la table entreprise, l'insertion dans la table consortium se fait dans la form2.