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

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

J'ai un petit problème sur la réalisation d'une commande d'enregistrement.
Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub XMLToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles EnregistrerToolStripMenuItem.Click
        Dim ds As DataSet = dgvMainHiver.DataSource
        Try
            With SaveTab2()
                .Title = "Enregistrer"
                .InitialDirectory = "\\"
                .Filter = "Fichier XML (.xml)|*.xml|Tous les fichiers|*.*"
                .DefaultExt = "xml"
                .AddExtension = True
            End With
 
            If SaveTab2.ShowDialog = Windows.Forms.DialogResult.OK Then
                If SaveTab2.FileName.ToString <> "" Then
                    ds.WriteXml(SaveTab2.FileName, XmlWriteMode.IgnoreSchema)
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Le problème vient lorsque j'ai choisit l'emplacement de mon fichier ainsi que son nom. Lorsque je vais cliquer sur enregistrer une MessageBox me dit :

Code:

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

Je pense que l'erreur doit se situer dans cette zone là mais je n'arrive pas à l'identifier :

Code:

1
2
3
4
 
If SaveTab2.FileName.ToString <> "" Then
               ds.WriteXml(SaveTab2.FileName, XmlWriteMode.IgnoreSchema)
End If

28/05/2013, 14h20
_Ez3kiel
Un objet naît, vit et meurt.

Tu déclares un objet de type DataSet, mais tu ne le construis pas.

Code:

Dim ds As DataSet = dgvMainHiver.DataSource

Ainsi cela devient
Code:

1 2 Dim ds As DataSet = New DataSet() ds = dgvMainHiver.DataSource
28/05/2013, 14h24
Crowww

Hélas, il doit y avoir une autre erreur car j'ai toujours le même problème:oops:
28/05/2013, 14h27
_Ez3kiel

Tu as utilisé un constructeur pour SaveTab2 ?

Si c'est toujours un souci de référence d'objet non définie à une instance d'objet, à toi de voir toutes tes déclarations d'objet, si tu as bien le New correspondant.

Code:

1 2 3 4 Catch ex As Exception MessageBox.Show(ex.Message) End Try
Personnellement je prefere
Code:

1 2 3 4 Catch ex As Exception MessageBox.Show(ex.toString) End Try
Car il y a la ligne ou ça a planté

28/05/2013, 14h31
Crowww

Pour le saveTab2 j'ai simplement créé en Winform un SaveFileDialog. Mais peut etre (même surement) me suis-je trompé dans son utilisation?
28/05/2013, 14h33
_Ez3kiel
Citation:
Envoyé par chaparo

Code:

1 2 3 4 Catch ex As Exception MessageBox.Show(ex.Message) End Try

Personnellement je prefere

Code:

1 2 3 4 Catch ex As Exception MessageBox.Show(ex.toString) End Try

Car il y a la ligne ou ça a planté
Oui aussi ... :boulet:

@Crowww: Suis la méthode de chaparo pour voir dans la StackTrace de l'exception la ligne où l'objet n'a pas été construit. :oops:

Alors après avoir modifié le catch voilà le message d'erreur :

Code:

1
2
3
4
5
 
System.NullRefenceException : La référence d'objet n'est pas définie à une instance d'un objet.
à WindowsApplication2.VisualiserHiver.XMLToolStripMenuItem_Clik(Object
sender, EventArgs e) dans D:\Visual Studio 2010\Projects\Main
Courante\WindowsApplication2\VisualiserHiver.vb:ligne 60

Citation:
Envoyé par Crowww
Alors après avoir modifié le catch voilà le message d'erreur :
Code:

1 2 3 4 5 System.NullRefenceException : La référence d'objet n'est pas définie à une instance d'un objet. à WindowsApplication2.VisualiserHiver.XMLToolStripMenuItem_Clik(Object sender, EventArgs e) dans D:\Visual Studio 2010\Projects\Main Courante\WindowsApplication2\VisualiserHiver.vb:ligne 60
... Et qu'as-tu à la ligne 60 de VisualiserHiver ... ? :aie:

28/05/2013, 14h40
Crowww

Code:

ds.WriteXml(SaveTab2.FileName, XmlWriteMode.IgnoreSchema)

Du coup si tu passe en pas a pas tu verras surement voir nothing sur ton SaveTab2()

du coup il faut que tu fasse un

Code:

1
2
3
4
5
6
7
8
 
 SaveTab2 = New ... With {
                Title = "Enregistrer",
                InitialDirectory = "\\",
                Filter = "Fichier XML (.xml)|*.xml|Tous les fichiers|*.*",
                DefaultExt = "xml",
                AddExtension = True,
            }

Un truc du style

28/05/2013, 14h50
_Ez3kiel

Bien, donc tu as une exception qui te dit qu'un objet n'est pas instancié, qui te donne la ligne où il est, à cette ligne il y a 3 objets, donc 1 chance sur 3, sachant que quelques posts plus haut on a instancié ds, 1 chance sur 2, sachant que ton SaveTab( de type SaveFileDialog) est -en théorie- instancié par ton designer (si j'ai bien tout suivi), il ne nous reste qu'une possibilité ... OuiOuiOui tout à fait le XmlWriteMode !

A toi de rajouter un

Code:

Dim mode as XmlWriteMode = New XmlWriteMode()

Afin de pouvoir faire

Code:

ds.WriteXml(SaveTab2.FileName, mode.IgnoreSchema)

Car non, tu ne peux pas utiliser directement XmlWriteMode dans ta méthode WriteXML, l'objet c'est rigoureux, et ça suit un cycle, on instancie l'objet, on s'en sert, on le dispose. (Naissance/Vie/Mort) :ccool:
28/05/2013, 14h52
Crowww

Euh, je vais surement paraître con mais j'ai pas compris ce que je dois mettre entre le New et With :?
28/05/2013, 14h56
Crowww

Lorsque je tente de faire comme tu dit Ez3Kiel, il ne veut pas du Mode et veut le remplacer par XmlWriteMode, même instancier :x
28/05/2013, 14h58
chaparo

Chez moi XmlWriteMode est un Enum.
On est pas obliger d'instancier un enum normalement.

Citation:

Euh, je vais surement paraître con mais j'ai pas compris ce que je dois mettre entre le New et With

Qu'elle est ton type pour SaveTab2 ?
28/05/2013, 15h02
Crowww

Et bien je ne sais pas vu que je l'ai créer via le WinForm. Je ne l'ai pas créer par code. :s Je suis vraiment désolé de compliquer je suis un petit débutant en programmation
28/05/2013, 15h06
_Ez3kiel

Au temps pour moi et merci de la précision Chaparo ... Je ne fais pas d'XML, maintenant je saurais. :oops:

Si j'ai bien compris SaveTab2 est un control SaveFileDialog, mais s'il est créé par le Designer, alors le Designer l'a instancié en théorie ...

Oui c'est cela Ez3Kiel, mais il est vide :

Code:

1
2
3
4
 
Private Sub SaveTab2_FileOk(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles SaveTab2.FileOk
 
    End Sub

28/05/2013, 15h10
chaparo

Arrete toi en pas à pas sur la ligne 60 et sort les espion pour voir quel variable est à nothing.
28/05/2013, 15h13
Crowww

Je n'avais jamais utilisé l'espion jusqu’à maintenant mais si j'ai bien vu le ds est a nothing.

Voir 40 message(s) de cette discussion en une page