Discussion :

[superthx]

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]

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]

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]

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]

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]

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.