Discussion :

[Namson]

bOnjour à tous !

Je voudrais bien ajouter un enregistrement dans ma base de données Mysql en utlisan VB.net (2005)! J'ai tapé ce 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
 
Dim MyNewRow As DataRow = dst.Tables("person").NewRow
        Try
            MyNewRow("First_Name") = Me.txtfirstname.Text
            MyNewRow("Last_Name") = Me.txtlastname.Text
            MyNewRow("Fone_Num") = Me.txtfonenum.Text
            MyNewRow("Country") = Me.txtcountry.Text
            dst.Tables("person").Rows.Add(MyNewRow)
 
            Dim MyCommBuild As New MySqlCommandBuilder(da1)
            da1.Update(dst, "person")
            MsgBox("Nouvel enregistrement ajouté avec succé", MsgBoxStyle.Information)
 
        Catch err As Exception
            MsgBox(err.Message, MsgBoxStyle.Exclamation, "person")
            dst = New DataSet
            da1 = New MySqlDataAdapter("SELECT * FROM person", Host)
            da1.Fill(dst, "person")
            ' ' DataGrid1.DataSource = dst.Tables("contact")
            '  'MsgBox("OK")
            Exit Sub
        End Try

Mais je trouve une erreur au niveau de la 1ere ligne me disant que " Object reference not set to an instance of an object"!
Je ne comprend pas vraiment ce que cela veut dire!
Merci pour votre aide

[tomlev]

Ca veut dire que tu cherches à manipuler une variable qui vaut Nothing. Dans cette instruction, soit c'est dst qui n'est pas initialisé, soit c'est la table "person" qui n'existe pas dans le dataset (et donc dst.Tables("person") renvoie Nothing)

[Namson]

Je reviens encore sur mon problème car vraisemblablement je n'ai pas encore réussi à le trouver!
Au fait j'ai dejà initialisé la "dst" ! et aussi je ne comprends pas très bien que la table "person" n'existe pas dans le dataset! Aussi, j'ai essayé de mettre l'instruction qui me donnait l'erreur dans le Try ...Catch et là quand je click une 1ere fois sur mon bouton add, j'ai le même mot d'erreur et quand je click une seconde fois mes données sont enregistrées! Je ne comprends vraiment pas d'où peut provenir l'erreur!

Je remets encore 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
 
 
Public Class add_contatct
    Dim Host As New MySqlConnection 'pour la connexion a la base de donnée
    Dim req As MySqlDataAdapter 'objet MySqlDataAdapter qui par sa propriété Fill charge le DataSet
    Public da1 As MySqlDataAdapter 'pour mettre a jour la BASE et DATASOURCE
    Dim dst1, dst As New DataSet
    '    Dim MyNewRow As New DataRow
 
 
----------------------------------------------------------------------
Private Sub Butadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butadd.Click
        Try
            Dim MyNewRow As DataRow = dst.Tables("person").NewRow
            MyNewRow("First_Name") = Me.txtfirstname.Text
            MyNewRow("Last_Name") = Me.txtlastname.Text
            MyNewRow("Fone_Num") = Me.txtfonenum.Text
            MyNewRow("Country") = Me.txtcountry.Text
            dst.Tables("person").Rows.Add(MyNewRow)
 
            Dim MyCommBuild As New MySqlCommandBuilder(da1)
            da1.Update(dst, "person")
            MsgBox("Nouvel enregistrement ajouté avec succés", MsgBoxStyle.Information)
            clean()
        Catch err As Exception
            MsgBox(err.Message, MsgBoxStyle.Exclamation, "person")
            dst = New DataSet
            da1 = New MySqlDataAdapter("SELECT * FROM person", Host)
            da1.Fill(dst, "person")
            ' ' DataGrid1.DataSource = dst.Tables("contact")
            '  'MsgBox("OK")
            Exit Sub
        End Try

Merci pour votre soutien

[tomlev]

Quand tu crées un DataSet avec new DataSet, le DataSet ne contient encore aucune table...
La première fois que tu fais da1.Fill(dst, "person"), ça crée la table "person" si elle n'existe pas. Sinon tu peux aussi créer la table manuellement...