ajout dans BD MySql avec VB 2008

Version imprimable

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:

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 :

Citation:

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

Merci de m'aider s'il vous plait.

24/02/2010, 14h13
mactwist69

Code:

Dim MyNewRow As New DataRow = dst.Tables("caract").NewRow
24/02/2010, 15h24
walid kh

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

Essai avec cette méthode :
Code:

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.:mouarf:

25/02/2010, 12h46
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...

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

Code:

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