salut tout le monde.
en exécutant mon programme, le message d'erreur suivant s'affiche:
La référence d'objet n'est pas définie à une instance d'un objet
j'ai trouvé ma faute SVP aidez moi.voila le code que j'utilise:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
Private Sub Button2_Click(ByVal sender AS System.Object, ByVal e AS System.EventArgs) Handles Button2.Click
        IF NOT (TextBox1.Text = "") AND NOT (TextBox2.Text = "") AND NOT (TextBox4.Text = "") Then
 
 
            Dim strsql AS String = "Select * from responsable"
            Dim strConnexion AS String = "Persist Security Info=true;Integrated Security=SSPI;database=parc municipal;server=USER-PC\AHMED"
            Dim x AS Exception
 
                Dim oConnection AS New SqlConnection(strConnexion)
                oConnection.Open()
                Dim ObjetDA AS New SqlDataAdapter(strsql, oConnection)
                ObjetDA.Fill(Parc_municipalDataSet1, "responsable")
                ObjetDA.InsertCommand = New SqlCommand("INSERT INTO responsable(num_matricule,nom_prenom, titre) Values(@num_matricule,@nom_prenom,@titre)", oConnection)
                ObjetDA.InsertCommand.Parameters.ADD("@num_matricule", SqlDbType.Int, 15, "num_matricule")
                ObjetDA.InsertCommand.Parameters.ADD("@nom_prenom", SqlDbType.NVarChar, 15, "nom_prenom")
                ObjetDA.InsertCommand.Parameters.ADD("@titre", SqlDbType.NVarChar, 15, "titre")
 
 
 
                Dim DR AS DataRow
                DR = Parc_municipalDataSet1.TABLES("responsable").NewRow
                DR("num_matricule") = TextBox1.Text
                DR("titre") = TextBox4.Text
                DR("nom_prenom") = TextBox2.Text
                Parc_municipalDataSet1.TABLES("responsable").Rows.ADD(DR)
                ObjetDA.UPDATE(Parc_municipalDataSet1, "responsable")
                Parc_municipalDataSet1.Clear()
                ObjetDA.Fill(Parc_municipalDataSet1, "responsable")
 
                Parc_municipalDataSet1.concerner_r.Constraints.ADD("FK_concerner_r_responsable", Parc_municipalDataSet1.responsable.COLUMNS("num_matricule"), Parc_municipalDataSet1.concerner_r.COLUMNS("num_matricule"))
                Parc_municipalDataSet1.concerner_r.Constraints.ADD("FK_concerner_r_categorie", Parc_municipalDataSet1.categorie.COLUMNS("nom_cat"), Parc_municipalDataSet1.concerner_r.COLUMNS("nom_cat"))
 
 
 
                Dim DR1 AS DataRow
                DR1 = Parc_municipalDataSet1.TABLES("concerner_r").NewRow
                DR1("num_matricule") = TextBox1.Text
                DR1("nom_cat") = ComboBox1.SelectedItem.ToString
                Parc_municipalDataSet1.TABLES("concerner_r").Rows.ADD(DR1)
                ObjetDA.UPDATE(Parc_municipalDataSet1, "concerner_r")
                Parc_municipalDataSet1.Clear()
                ObjetDA.Fill(Parc_municipalDataSet1, "concerner_r")
merciiii bein