Mysql + Insert + 'System.NullReferenceException'

**superthx** · 03/04/2017, 15h59

Bonjour,

Je suis sous mysql avec vb net.
J'ai un simple form pour inserer 2 données

mais j'ai cette erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Une exception non gérée du type 'System.NullReferenceException' s'est produite dans xCollectibles.exe

Voici mon code

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
44
45
 
Imports MySql.Data.MySqlClient
Imports System
Imports System.Globalization
Imports System.Threading
Imports System.Configuration
Public Class Form1
    Dim MysqlConn As MySqlConnection
    Dim COMMAND As MySqlCommand
    Dim READER As MySqlDataReader
    Dim dr As MySqlDataReader
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MysqlConn = New MySqlConnection(ConfigurationManager.ConnectionStrings("xCollectibles.My.MySettings.xcollectiblesConnectionString").ToString)
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Me.Cursor = Cursors.WaitCursor
        Try
            MysqlConn.Close()
            MysqlConn.Open()
            MysqlConn = New MySqlConnection(ConfigurationManager.ConnectionStrings("xCollectibles.My.MySettings.xcollectiblesConnectionString").ToString)
 
            COMMAND.CommandText = "INSERT INTO  xcollectibles.maker (name, info) Values (@Value1, @Value2)"
            COMMAND.Parameters.AddWithValue("@Value1", If(String.IsNullOrEmpty(TextBox2.Text), DBNull.Value, TextBox2.Text))
            COMMAND.Parameters.AddWithValue("@Value2", If(String.IsNullOrEmpty(TextBox3.Text), DBNull.Value, TextBox3.Text))
            READER = COMMAND.ExecuteReader
            MessageBox.Show("Datos Guardados")
            'Reinicio Plantilla
            Controls.Clear()
            InitializeComponent()
            Form1_Load(Me, Nothing)
            'Reinicio Plantilla
            MysqlConn.Close()
            'Catch ex As Exception
            '  MessageBox.Show(ex.Message)
        Finally
            MysqlConn.Dispose()
            End Try
        Me.Cursor = Cursors.Default
 
    End Sub
End Class

Je sais pas pourquoi il me bloque. Il manque quoi ?

_MErci de l'aide.

**ebastien** · 03/04/2017, 16h04

Bonjour,

Il faut peut-être instancier COMMAND :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

COMMAND = new MySqlCommand();

ps : Les noms de variable en majuscule, c'est pas très beau...

**superthx** · 03/04/2017, 16h17

Envoyé par ebastien

Bonjour,

Il faut peut-être instancier COMMAND :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

COMMAND = new MySqlCommand();

ps : Les noms de variable en majuscule, c'est pas très beau...

Merci, mais je ne vois toujours pas ce que je loupe.
J'ai placer comme ceci

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
44
45
Imports MySql.Data.MySqlClient
Imports System
Imports System.Globalization
Imports System.Threading
Imports System.Configuration
Public Class Form1
    Dim MysqlConn As MySqlConnection
    Dim COMMAND As MySqlCommand
    Dim READER As MySqlDataReader
    Dim dr As MySqlDataReader
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MysqlConn = New MySqlConnection(ConfigurationManager.ConnectionStrings("xCollectibles.My.MySettings.xcollectiblesConnectionString").ToString)
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Me.Cursor = Cursors.WaitCursor
        Try
            MysqlConn.Close()
            MysqlConn.Open()
            MysqlConn = New MySqlConnection(ConfigurationManager.ConnectionStrings("xCollectibles.My.MySettings.xcollectiblesConnectionString").ToString)
 
COMMAND = new MySqlCommand()            
COMMAND.CommandText = "INSERT INTO  xcollectibles.maker (name, info) Values (@Value1, @Value2)"
            COMMAND.Parameters.AddWithValue("@Value1", If(String.IsNullOrEmpty(TextBox2.Text), DBNull.Value, TextBox2.Text))
            COMMAND.Parameters.AddWithValue("@Value2", If(String.IsNullOrEmpty(TextBox3.Text), DBNull.Value, TextBox3.Text))
            READER = COMMAND.ExecuteReader
            MessageBox.Show("Datos Guardados")
            'Reinicio Plantilla
            Controls.Clear()
            InitializeComponent()
            Form1_Load(Me, Nothing)
            'Reinicio Plantilla
            MysqlConn.Close()
            'Catch ex As Exception
            '  MessageBox.Show(ex.Message)
        Finally
            MysqlConn.Dispose()
            End Try
        Me.Cursor = Cursors.Default
 
    End Sub
End Class

Il me dit que c'est bien enregistrer mais dans la db j'ai rien ..............
Est ce qu'ol faut mettre quelque chose entre les parentheses.

**jopopmk** · 03/04/2017, 16h38

Salut,

ben déjà tu n'as plus l'exception, donc ça avance

Sinon, ton pb vient certainement du ExecuteReader, tu devrais plutôt utiliser un ExecuteNonQuery.

**superthx** · 03/04/2017, 16h56

Envoyé par jopopmk

Salut,

ben déjà tu n'as plus l'exception, donc ça avance

Sinon, ton pb vient certainement du ExecuteReader, tu devrais plutôt utiliser un ExecuteNonQuery.

J'ai changer
COMMAND = ExecuteReader
par
COMMAND = ExecuteNonQuery

Mais sa ne passe pas.

**jopopmk** · 03/04/2017, 17h25

Non, il faut remplacer (en C#) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MySqlDataReader READER = COMMAND.ExecuteReader();

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

int res = COMMAND.ExecuteNonQuery();

ExecuteNonQuery ne te renvoie pas un DataReader, mais un entier qui correspond au nombre de ligne(s) affectée(s) par ta requête.

**superthx** · 03/04/2017, 17h30

Ok... je test demain ou ce soir et je reviens avec le resultat.
Merci 👍

**superthx** · 03/04/2017, 20h40

Bon ben j'y arrive pas.

Pendant ce temps je vais utiliser ceci en attendant de voir si quelqu'un puisse me proposer un code.
Merci.

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
        Me.Cursor = Cursors.WaitCursor
        Try
            MysqlConn.Open()
            Dim Query As String
            Query = "insert into xcollectibles.maker (name, info) values ('" & TextBox2.Text & "','" & TextBox3.Text & "')"
            COMMAND = New MySqlCommand(Query, MysqlConn)
            READER = COMMAND.ExecuteReader
            MessageBox.Show("Datos Guardados")
            MysqlConn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            MysqlConn.Dispose()
        End Try
        Me.Cursor = Cursors.Default

**jopopmk** · 04/04/2017, 07h34

Comme fais-tu pour ne pas arriver à remplacer une ligne de code ?

Et du coup tu conserves du code non fonctionnel ?

**superthx** · 04/04/2017, 07h50

Envoyé par jopopmk

Comme fais-tu pour ne pas arriver à remplacer une ligne de code ?

Et du coup tu conserves du code non fonctionnel ?

Non. J'ai juste changer entre Me.Cursor. Le reste est inchangé.

**jopopmk** · 04/04/2017, 08h06

Inchangé donc non fonctionnel ...
Et du coup c'est quoi ton vrai souci pour remplacer la ligne avec le ExecuteReader par un ExecuteNonQuery ?

**superthx** · 04/04/2017, 08h23

Envoyé par jopopmk

Inchangé donc non fonctionnel ...
Et du coup c'est quoi ton vrai souci pour remplacer la ligne avec le ExecuteReader par un ExecuteNonQuery ?

Ben en fait c'etait changer ceci :

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
Me.Cursor = Cursors.WaitCursor
        Try
            MysqlConn.Open()
            Dim Query As String
            Query = "insert into xcollectibles.maker (name, info) values ('" & TextBox2.Text & "','" & TextBox3.Text & "')"
            COMMAND = New MySqlCommand(Query, MysqlConn)
            READER = COMMAND.ExecuteReader
            MessageBox.Show("Datos Guardados")
            MysqlConn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            MysqlConn.Dispose()
        End Try
        Me.Cursor = Cursors.Default

Par :

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
Me.Cursor = Cursors.WaitCursor
        Try
            MysqlConn.Close()
            MysqlConn.Open()
            MysqlConn = New MySqlConnection(ConfigurationManager.ConnectionStrings("xCollectibles.My.MySettings.xcollectiblesConnectionString").ToString)
 
            COMMAND.CommandText = "INSERT INTO  xcollectibles.maker (name, info) Values (@Value1, @Value2)"
            COMMAND.Parameters.AddWithValue("@Value1", If(String.IsNullOrEmpty(TextBox2.Text), DBNull.Value, TextBox2.Text))
            COMMAND.Parameters.AddWithValue("@Value2", If(String.IsNullOrEmpty(TextBox3.Text), DBNull.Value, TextBox3.Text))
            READER = COMMAND.ExecuteReader
            MessageBox.Show("Datos Guardados")
            'Reinicio Plantilla
            Controls.Clear()
            InitializeComponent()
            Form1_Load(Me, Nothing)
            'Reinicio Plantilla
            MysqlConn.Close()
            'Catch ex As Exception
            '  MessageBox.Show(ex.Message)
        Finally
            MysqlConn.Dispose()
            End Try
        Me.Cursor = Cursors.Default

Surtout eviter dans le premier code de mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Query = "insert into xcollectibles.maker (name, info) values ('" & TextBox2.Text & "','" & TextBox3.Text & "')"

et plutot avoir ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
COMMAND.CommandText = "INSERT INTO  xcollectibles.maker (name, info) Values (@Value1, @Value2)"
            COMMAND.Parameters.AddWithValue("@Value1", If(String.IsNullOrEmpty(TextBox2.Text), DBNull.Value, TextBox2.Text))

Plus rapide a mettre en place pour moi et plus lissible.
Et pouvoir inserer des valeurs Null au passage.

Mais je bloque vraiment........

**jopopmk** · 04/04/2017, 10h06

Je te parle de méthode d'exécution et tu me parles paramétrage de requête ... on va pas avancer.
On va faire dans le simple du simple (je vais me répéter, en VB.NET cette fois parce que j'ai peur que le C# t'ait perdu), remplace la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

READER = COMMAND.ExecuteReader

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

COMMAND.ExecuteNonQuery

Des explications pour le fun (oui, je les ai déjà mises mais je suis pas sûr que tu les aies lues) :
La première méthode permet de récupérer plusieurs tuples avec un accesseur séquentiel. C'est mieux que remplir un DataSet complet, mais ça colle pas du tout à l'insertion d'un tuple (a priori ça pourrait fonctionner si tu faisais un premier Read après l'ExecuteReader, mais voilà l'astuce qui sert à rien).

La deuxième méthode (ExecuteNonQuery) exécute la requête et te renvoie le nombre de ligne(s) affectée(s), très pratique pour les insert (simples ou multiples), les update et les delete, qui ne renvoient pas de tuple à proprement parlé mais une et une seule valeur (ledit nombre de lignes affectées).

Tu pourrais également utiliser la ExecuteScalar, mais on va éviter le sujet pour l'instant.

Mysql + Insert + 'System.NullReferenceException'

Windows Forms

Discussions similaires

Partager

Partager