message d'erreur de référence d'objet

Version imprimable

salut tout le monde.
en exécutant mon programme, le message d'erreur suivant s'affiche:

Citation:

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:

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

19/04/2012, 01h57
meziantou

L'erreur se produit sur quelle ligne ?

voila le code avec l'exception:

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
 
 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
            MsgBox(ComboBox1.SelectedValue.ToString)
 
            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
            Try
                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")
 
                Dim DR1 As DataRow
                DR1 = Parc_municipalDataSet1.Tables("concerner_r").NewRow
                DR1("num_matricule") = TextBox1.Text
 
                DR1("nom_cat") = ComboBox1.SelectedValue.ToString
 
 
 
                Parc_municipalDataSet1.Tables("concerner_r").Rows.Add(DR1)
                ObjetDA.Update(Parc_municipalDataSet1, "concerner_r")
                Parc_municipalDataSet1.Clear()
                ObjetDA.Fill(Parc_municipalDataSet1, "concerner_r")
 
 
 
                oConnection.Close()
                MsgBox("succés d'ajout ", MsgBoxStyle.OkOnly, "ajout responsable")
                Me.Hide()
            Catch x
                MsgBox("L'erreur suivante a été rencontrée :" & x.Message)
            End Try

en fait l'erreur ne se produit qu'à la ligne

Citation:

Catch x

19/04/2012, 08h10
Invité

Retire ta ligne

Code:

Dim x As Exception

Et remplace ton

Code:

Catch x

Par

Code:

Catch x As Exception
19/04/2012, 11h32
mactwist69

Bonjour,

Une des méthodes de débogage est le "pas-a-pas".

Tu clique-gauche sur la partie la plus à gauche de la première ligne de ton code, ça fait apparaître un point rouge: un point d’arrêt.

Lorsque ton code arrive sur ce point d'arrêt, il s’arrête et ta ligne devient jaune.
A ce moment tu appuis sur F10 pour qu'il passe à la ligne suivante. Tu presses F10 jusqu’à ce qu'a un moment, le code ne va pas à la ligne suivante mais se rends directement dans le Catch.

Tu auras trouvé la ligne qui bug.