[vb.net] "La référence d'objet n'est pas définie à une instance d'un objet"

Version imprimable

Bonjour !

J'ai crée un formulaire qui lit les résultats d'un tableau access, ligne par ligne et n'affichant que ce qui est utile.... Mais inconvénient il y a un message et je n'arrive pas à le résoudre....

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

J'ai déja recherché et j'ai trouvé des cas similaires, disons avec la même phrase erreur, mais bon ça ne m'a pas beaucoup aidé...

Je vais vous donner le code afin de mieux visualiser... (c'est le code qui s'affiche lors du chargement de la page)

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim TableInci As New DataTable
        Dim LeDataSet As New DataSet
        Dim i As Integer
        'Gestion des erreurs
        Try
            'Ouverture de la connexion créee
            OleDbConnection2.Open()
            Try
                OleDbDataAdapter1.Fill(LeDataSet, "Table des incidents")
                TableInci = LeDataSet.Tables(0)
                'Table récupérée
                Try
 
                    Call AfficheIncident()
                    Call majPosition()
 
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        OleDbConnection2.Close()
 
    End Sub
 
 
 
 
 Private Sub AfficheIncident()
 
        Dim ResReq As DataTable
        Dim UnEnreg As DataRow
        Dim LeDataSet As New DataSet
        ResReq = LeDataSet.Tables("Liste des incidents")
 
        UnEnreg = ResReq.Rows(0)
        'Affecter les champs de la base à l’interface
        txt_date.Text = UnEnreg(1)
        txt_num_incident.Text = UnEnreg(0)
        txt_desc_courte.Text = UnEnreg("Description courte")
        txt_desc_longue.Text = UnEnreg("Description (Dernière mise à jour)" & "Description (Historique)")
 
    End Sub
 
 
 
Private Sub majPosition()
 
        Dim LeDataSet As New DataSet
        Dim imax, icur As Integer
        imax = Me.BindingContext(LeDataSet, "Query4").Count
        If imax = 0 Then
            affPos.Text = "(0)"
        Else
            icur = Me.BindingContext(LeDataSet, "Query4").Position + 1
            affPos.Text = icur.ToString & " / " & imax.ToString
        End If
 
    End Sub

Merci d'avance pour votre aide. ;)

08/03/2007, 15h57
LaChips

Bonjour,
Ou est ce qu'elle apparait ton erreur?
08/03/2007, 15h58
pcdj

tu peux nous dire à quel se passe l'erreur ?
à quelle ligne?

ce sera plus simple
08/03/2007, 15h59
pcdj

oups, même question laChips...
08/03/2007, 16h03
SLE

Bon je suis pas un VBiste, mais je dirais que tu essaie de remplir une table d'un dataset qui n'a pas été défini.

Tu fais un

Dim LeDataSet

puis plus bas tu fais un

...Fill(LeDataSet,"Table des incidents")

Mais cette table n'existe pas dans ton dataset...
08/03/2007, 16h07
pcdj

je pense que le message d'erreur serait si c'était le nom de la table qui n'est pas correct.

Il y a, à mon avis, quelque part un objet qui n'est pas instancié

L'erreur se fait lorsque ma page se charge et il n'y a pas de débugage donc je ne peux pas vous indiquer quel ligne cause problème...

Mais bon en faisant "joujou", il se passe que le message s'affiche entre les lignes orange :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub AfficheIncident()
 
        Dim ResReq As DataTable
        Dim UnEnreg As DataRow
        Dim LeDataSet As New DataSet
        ResReq = LeDataSet.Tables("Liste des incidents")
 
        UnEnreg = ResReq.Rows(0)
        'Affecter les champs de la base à l’interface
        txt_date.Text = UnEnreg(1)        
        txt_num_incident.Text = UnEnreg(0)
        txt_desc_courte.Text = UnEnreg("Description courte")
        txt_desc_longue.Text = UnEnreg("Description (Dernière mise à jour)" & "Description (Historique)")
 
    End Sub

:salut:

voici un code qui remplit un dataset :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
       Try
            OleDbConnection.Open()
            OleDbCommand.Connection = con
            OleDbCommand.CommandText = "select champ from table"
            OleDbDataAdapter.SelectCommand = OleDbCommand
            OleDbDataAdapter.Fill(DataSet, "liste")
            OleDbConnection.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            OleDbConnection.Close()
        Finally
            OleDbConnection.Close()
        End Try

bonne Chance ;)

08/03/2007, 16h34
pcdj

2 choses à dire :

d'abord

dans le page_load, je pense , comme l'indique More , que ton code qui remplit ton dataset n'est pas correct, tu ne lui précises pas de commande select donc il ne sait pas trop avec quoi remplir la table.

et ensuite,

tu re déclares un nouveau dataset dans ta procédure : "AfficheIncident()"

donc, ce n'est pas bon non plus.

tu dois utiliser le même que celui tu veux remplir dans le page load.
08/03/2007, 16h38
pcdj

et aussi un petit conseil:

Il vaut mieux éviter les blancs et les accents dans les noms de table et de champs .
08/03/2007, 16h42
More

ouiii pcdj

il faut bien utiliser le meme dataset rempli et non pas un nouveau. c'est logique
08/03/2007, 16h44
pcdj

je trouve aussi

Citation:

Envoyé par lou87

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub AfficheIncident()
 
        Dim ResReq As DataTable
        Dim UnEnreg As DataRow
        Dim LeDataSet As New DataSet
        ResReq = LeDataSet.Tables("Liste des incidents")
 
        UnEnreg = ResReq.Rows(0)
        'Affecter les champs de la base à l’interface
        txt_date.Text = UnEnreg(1)        
        txt_num_incident.Text = UnEnreg(0)
        txt_desc_courte.Text = UnEnreg("Description courte")
        txt_desc_longue.Text = UnEnreg("Description (Dernière mise à jour)" & "Description (Historique)")
 
    End Sub

1)verifier si ta table "Liste des incidents" est bien celle qui existe dans ta base de donneés(verifier son nom lettre par lettre)

ou bien
2) ta datatable Nécessite un NEW.

09/03/2007, 08h07
pcdj

Citation:

2) ta datatable Nécessite un NEW.

il n'y a pas besoin de new pour la datatable puisqu'elle est instanciée au moment où on lui affecte la datatable du dataset :

Code:

ResReq = LeDataSet.Tables("Liste des incidents")

Je persiste à dire que :

premièrement , le dataset n'est pas correctement rempli dans le page_load.

deuxièmement , il faut utiliser ce même dataset dans la procédure "AfficheIncident()" .

Il est néanmoins possible qu'il y ait aussi une erreur au niveau du nom de la table mais alors le message d'erreur serait différent, je pense qu'on aurait quelque chose du genre :

Citation:

the table does not belong to dataset ...
09/03/2007, 10h34
More

je crois que le probleme est les espaces qui se trouvent dans les noms de la table, c'est pour cela qu'il ne rempli pas le dataset

Coucou ^^

J'ai suivit vos conseils et donc voici les modifications......

Ma page s'affiche sans message d'erreur mais il n'y a que m'a date qui s'affiche dans le formulaire.....

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim TableInci As New DataTable
        Dim LeDataSet As New DataSet
        Dim i As Integer
 
        Dim Mycommand As OleDbCommand = OleDbConnection2.CreateCommand()
 
        Try
            OleDbConnection2.Open()
            Mycommand.CommandText = "SELECT [No d'incident], [Date de modification], [Description courte], [Description (Dernière mise à jour)], [Description (Historique)] FROM ResultatBO"
            OleDbDataAdapter1.SelectCommand = Mycommand
            OleDbDataAdapter1.Fill(LeDataSet, "ResultatBO")
            OleDbConnection2.Close()
 
            Call AfficheIncident(LeDataSet)
            Call majPosition(LeDataSet)
 
        Catch ex As Exception
            MsgBox(ex.Message)
            OleDbConnection2.Close()
        Finally
            OleDbConnection2.Close()
        End Try
 
    End Sub
 
 
 
    'Private Sub btn_precedent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs, ByVal LeDataSet As DataSet) Handles btn_precedent.Click
 
    'Me.BindingContext(LeDataSet, "ResultatBO").Position -= 1
    'majPosition(LeDataSet)
 
    'End Sub
 
    'Private Sub btn_suivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs, ByVal LeDataSet As DataSet) Handles btn_suivant.Click
 
    'Me.BindingContext(LeDataSet, "ResultatBO").Position += 1
    'majPosition(LeDataSet)
 
    'End Sub
 
 
 
 
    Private Sub majPosition(ByVal LeDataSet)
 
        Dim imax, icur As Integer
        imax = Me.BindingContext(LeDataSet, "ResultatBO").Count
        If imax = 0 Then
            affPos.Text = "(0)"
        Else
            icur = Me.BindingContext(LeDataSet, "ResultatBO").Position + 1
            affPos.Text = icur.ToString & " / " & imax.ToString
        End If
 
    End Sub
 
 
 
 
    Private Sub AfficheIncident(ByVal LeDataSet)
 
        Dim ResReq As DataTable
        Dim UnEnreg As DataRow
        Dim IndiceIncident As Integer
 
        ResReq = LeDataSet.Tables("ResultatBO")
        UnEnreg = ResReq.Rows(IndiceIncident)
        'Affecter les champs de la base à l’interface
        txt_date.Text = UnEnreg(1)
        txt_num_incident.Text = UnEnreg(0)
        txt_desc_courte.Text = UnEnreg(2)
        txt_desc_longue.Text = UnEnreg(3)
        txt_desc_longue.Text = UnEnreg(4)
 
    End Sub

Voili ^^

Et merci pour votre aide ! :)

P.S : Je n'ai aucun contrôle sur l'intitulé des colonnes, se sont des colonnes qui existent déja donc je ne peux pas les modifier, sinon je l'aurais déjà fait volontier. ;)

15/03/2007, 09h35
lou87

Personne n'a une idée ? :oops:
16/03/2007, 15h25
lou87

AAAAAAAAaaaaaaahhhhhh !!!!!!

A force de chercher, j'ai réussi à trouver ce qui clochait, c'est bête et ça m'ennuis, ça ménerve......

Il ne m'affiche pas les autres résultats car se sont des listbox et non des TextBox...... :cry:

Que faire ?

Quelqu'un à une idée s'il vous plait !

P.S : En plus je ne peux pas remplacer mes listbox par des textbox car ce que je veux mettre dedans est trop long.... sinon s'aurait été trop simple....

:cry:
21/03/2007, 19h42
DonF

faudrait peut-être mettre à jour les sources de tes listbox :D!
21/03/2007, 22h23
Kelpan

L'objet LeDataSet est défini en local dans les 2 procédures, donc les 2 objets sont différents !!
LeDataSet qui est rempli dans le Load n'est pas le meme dans ta procédure "AfficheIncident"

Declare ton objet LeDataSet au niveau de ta classe ou passe le DataSet en paramètre dans ta procédure...

Edit : Oups, j'avais pas vu la 2eme page...
22/03/2007, 08h48
lou87

Citation:

Envoyé par DonF

faudrait peut-être mettre à jour les sources de tes listbox :D!

Bonjour !

Merci pour vos réponses ! :)

Mais j'ai pas très bien compris ce que DonF voulait dire.... :oops:

Parce que quand je remplace mes listbox par des Textbox ça marche....

Bonjour,
tu peux faire un truc de type:
Code:

1 2 3 4 5 For i = 0 To countDF - 1 Application.DoEvents() myListeBox.Items.Add(myDataTable.Rows(i).Item("monChampDeLaRequeteSQL")) Next
sinon un truc de type:
Code:

1 2 ListDF.DataSource=myDataTable
Bon courage :D

Merci !

J'ai bidouillé avec ce que tu m'a donné et ça fonctione !!!!!

Merci ! :king:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub AfficheIncident(ByVal LeDataSet)
 
        Dim ResReq As DataTable
        Dim UnEnreg As DataRow
        Dim IndiceIncident As Integer
 
        ResReq = LeDataSet.Tables("ResultatBO")
        UnEnreg = ResReq.Rows(IndiceIncident)
        'Affecter les champs de la base à l’interface
 
        txt_date.Text = UnEnreg(1)
        Application.DoEvents()
        txt_num_incident.Items.Add(UnEnreg(0))
        txt_desc_courte.Items.Add(UnEnreg(2))
        txt_desc_longue.Items.Add(UnEnreg(3) & UnEnreg(4))

23/03/2007, 11h27
JauB

Bonne continuation 8-)

Bonjour !

J'ai réouvert le sujet car je ne pensais pas que l'on puisse en créer un autre avec le même problème.

Donc voilà, ce que j'essaye de faire est de récupérer les critères sélectionnés pour ensuite les envoyer dans un fichier texte à des endroits précis.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Function Rafraichissement ()

        Dim fileR As StreamReader
        Dim fileW As StreamWriter
        Dim ts As FileStream
        Dim i, j As Integer
        Dim tbl_string() As String
        Dim cellule As String = listder_cellule.Text
        Dim Date_debut As String = Date_deb.Text
        Dim Date_final As String = Date_fin.Text
        Dim logiciel As String = listder_lib_logi.Text
        Dim type As String = listder_type.Text
        Dim domaine As String = listder_domaine.Text

        MsgBox(Date_debut)
        MsgBox(Date_final)
        MsgBox(cellule)
        MsgBox(logiciel)
        MsgBox(type)
        MsgBox(domaine)

        'modification de la date de traitement dans le fichier de paramètres Parambo.txt pour le prochain rafraichissement des requetes LSI
        Dim file As New System.IO.StreamReader("\\beaqae\Suivi_TR_NIV2\Parambo.txt")


        i = 1

        Do
            ReDim Preserve tbl_string(i)
            tbl_string(i) = fileR.ReadToEnd
            If tbl_string(i) = "END" Then
                Exit Do
            End If
            If tbl_string(i) Like "N,Cell = %" = True Then
                tbl_string(i) = "N,Cell = " & cellule
            End If
            If tbl_string(i) Like "D,Date_deb = %" = True Then
                tbl_string(i) = "D,Date_deb = " & Date_debut
            End If
            If tbl_string(i) Like "D,Date_fin = %" = True Then
                tbl_string(i) = "D,Date_fin = " & Date_final
            End If
            If tbl_string(i) Like "N,Logiciel = %" = True Then
                tbl_string(i) = "N,Logiciel = " & logiciel
            End If
            If tbl_string(i) Like "N,Type = %" = True Then
                tbl_string(i) = "N,Type = " & type
            End If
            If tbl_string(i) Like "N,Domaine = %" = True Then
                tbl_string(i) = "N,Domaine = " & domaine
            End If
            i = i + 1
        Loop
        fileR.Close()

        Dim file1 As New System.IO.StreamWriter("\\beaqae\Suivi_TR_NIV2\Parambo.txt")
        For j = 1 To i
            file1.WriteLine(tbl_string(j))
        Next
        file1.Close()
        fileR = Nothing
        file1 = Nothing

    End Function

Mon problème concerne le code en violet, il marque le même genre d'erreur comme quoi "le référence d'objet n'est pas définie à une instance d'objet".

Je pense qu'il dit que mon tbl_string n'est pas définie, initialisé ou encore qu'il y a aucune valeur dedans, mais le problème c'est que je ne sais pas comment faire pour l'initialiser ou lui attribuer une valeur, car quelque chose lui est déjà affecté.

Une idée ?

Merci d'avance. ;)