Discussion :

[walid kh]

Salut à tous
J'ai un probléme concernant l'ajout des champs dans une base de donnée MySql via vb 2008.
Voilà le 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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Then
            MessageBox.Show("Il faut remplir tout les champs")
        Else
            state = StateEnum.StateNew
            Select state
                Case Is = StateEnum.StateNew 'Ajouter un record
                    Dim MyNewRow As DataRow = dst.Tables("caract").NewRow
                    Try
                        MyNewRow("id_p") = TextBox1.Text
                        MyNewRow("nom") = TextBox2.Text
                        MyNewRow("prenom") = TextBox2.Text
                        MyNewRow("Nom utilisateur") = TextBox3.Text
                        MyNewRow("Mot de passe") = TextBox2.Text
                        dst.Tables("cract").Rows.Add(MyNewRow)

                        Dim MyCommBuild As New MySqlCommandBuilder(da)
                        da.Update(dst, "cract")
                    Catch err As Exception
                        MsgBox(err.Message, MsgBoxStyle.Exclamation, "error")
                        Exit Sub
                    End Try
            End Select
        End If

    End Sub

Le problème est dans la ligne en rouge. Cela indique erreur :

La référence d'objet n'est pas définie à une instance d'un objet

Merci de m'aider s'il vous plait.

[mactwist69]

Code :

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

Dim MyNewRow As New DataRow = dst.Tables("caract").NewRow

[walid kh]

Malheureusement ca n'a pas résolu le probléme la même chose

[spamitovic]

Essai avec cette méthode :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
try
            Dim k As String = "SELECT id_p, nom, prenom, nom_utilisateur, motdepasse, cract from `caract`;"
            Dim comm As New MySqlCommand(k, myConnection)
            Dim myready As MySqlDataReader
            myready = Nothing
            myready = myCommand.ExecuteReader()
            myready.Close()
            myConnection.Close()
Catch ex As Exception
            MsgBox(err.Message, MsgBoxStyle.Exclamation, "error")
            Exit Sub
End Try

Si tu veux utiliser ta méthode, l'erreur provient du fait que tu n'as pas ajouté l'opérateur unaire (New). Pour cela tu dois remplacer ta ligne (contenant l'erreur) par la ligne de mactwist69.
Vu que l'erreur est toujours là, peux-tu nous faire un copier coller de ton code depuis la connexion à ta BDD ?

NB : Essai d'éviter les espaces dans les noms des champs.

[mactwist69]

Sinon c'est que ton dataset est vide ou ne trouve pas ta table (erreur de nom?")

Mets un espion sur ton dataset et tu verras...

[walid kh]

Salut les amis merci à tous pour vos réponse j'ai trouvé la solution est ca marche et c'est suuuuuuuuuupeeeeeeeeeeer
voilà la solution :

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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim host = New MySqlConnection("server=localhost; user id=root; password=; database=personne")
        Dim ajout = New MySqlCommand("insert into cract values (Null,'" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')")
        ajout.Connection = host
        If TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Then
            MessageBox.Show("Il faut remplir tout les champs")
        Else
            Try
                host.Open()
                ajout.ExecuteNonQuery()
            Catch err As MySqlException
                MessageBox.Show("Erreur lors de mise à jour", vbCrLf, MessageBoxButtons.OK)
            End Try
        End If
 
    End Sub