Duplication d'éléments récupérés depuis la base

Version imprimable

Bonjour,
Je fais présentement un site en ASP.net VB.NET. Je vais vous montrer le code que j'utilise et après vous dire qu'est-ce qui ne fonctionne pas.

Code de la classe LangueProvider.vb :

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
Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Imports langue
Imports GlobalFunction
 
Public Class langueProvider
    Public Shared Sub LoadLangue(ByRef langues As ArrayList, ByVal strLangue As String)
        Dim strSQL As String
        Dim mySQL As SqlCommand
        Dim mdt As SqlDataReader
        Dim langue As New langue
 
        strSQL = "SELECT * FROM [LANGUE] WHERE ([LANGUE] = '" & strLangue & "') ORDER BY [ID]"
 
        mySQL = New SqlCommand(strSQL, GlobalFunction.ConnectionOpen)
 
        mdt = mySQL.ExecuteReader()
 
        While mdt.Read()
            langue = New langue
            langue.id = mdt("ID")
            langue.langue = mdt("LANGUE")
            langue.text = mdt("TEXT")
 
            langues.Add(langue)
        End While
 
        GlobalFunction.ConnectionClose()
    End Sub
End Class

Code de la classe LangueBusiness :

Code:

1
2
3
4
5
6
7
8
9
Imports Microsoft.VisualBasic
Imports langue
Imports langueProvider
 
Public Class LangueBusiness
    Public Sub getLangue(ByRef langues As ArrayList, ByVal strLangue As String)
        LoadLangue(langues, strLangue)
    End Sub
End Class

Code de la page aspx.vb :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Partial Class _Default
    Inherits System.Web.UI.Page
 
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim langues As New ArrayList
        Dim langueBusiness As New LangueBusiness
 
        langueBusiness.getLangue(langues, "FR")
 
        If langues.Count = 0 Then
            Me.TextBox1.Text = "Aucune langue"
        Else
            Me.TextBox1.Text = langues(0).text & langues(1).text
        End If
 
    End Sub
End Class

Le résultat de la requête SQL est :

Code:

1
2
3
 
1  FR  Bienvenue
2  FR  Au REVOIR

Mais quand j'ouvre la page aspx, il m'affiche dans mon textbox AU REVOIRAU REVOIR. Au lieu d'avoir 2 objets différents dans ma arraylist, j'ai 2 objets pareil... Je pense que ca doit être la classe LangueProvider le problème mais je ne vois tout simplement pas l'erreur.

Merci

P.S. Oui je le fais en architecture 3-tier

Oui, le problème se situe dans langueProvider.

C'est une erreur assez fréquente quand on débute en langage objet.
Il te faut déclarer ta variable langue DANS la boucle, comme indiqué ci-dessous en gras, sinon toutes les langues de ton tableau auront la même valeur, c'est-à-dire la dernière récupérée (ici : AU REVOIR) :
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 Public Class langueProvider Public Shared Sub LoadLangue(ByRef langues As ArrayList, ByVal strLangue As String) Dim strSQL As String Dim mySQL As SqlCommand Dim mdt As SqlDataReader strSQL = "SELECT * FROM [LANGUE] WHERE ([LANGUE] = '" & strLangue & "') ORDER BY [ID]" mySQL = New SqlCommand(strSQL, GlobalFunction.ConnectionOpen) mdt = mySQL.ExecuteReader() While mdt.Read() Dim langue As New langue langue.id = mdt("ID") langue.langue = mdt("LANGUE") langue.text = mdt("TEXT") langues.Add(langue) End While GlobalFunction.ConnectionClose() End Sub End Class
PS : d'autre part, d'une manière générale, évite de nommer tes variables de la même façon que la classe, ça peut vite t'embrouiller.

28/08/2008, 14h58
Macss

Merci de ton aide mais c'est de cette manière que je l'avais fait au début avant de faire de nombreux test et ca ne fonctionne pas... je viens de le réesseyer et ca ne fonctionne pas.
28/08/2008, 15h22
tomlev

Citation:

Envoyé par Skalp

Oui, le problème se situe dans langueProvider.

C'est une erreur assez fréquente quand on débute en langage objet.
Il te faut déclarer ta variable langue DANS la boucle, comme indiqué ci-dessous en gras, sinon toutes les langues de ton tableau auront la même valeur, c'est-à-dire la dernière récupérée (ici : AU REVOIR) :

non, il crée une nouvelle instance de langue à chaque itération, donc le problème n'est pas là
28/08/2008, 17h14
Skalp

Citation:

Envoyé par tomlev

non, il crée une nouvelle instance de langue à chaque itération, donc le problème n'est pas là

Oups, oui, j'ai vérifié dans mon code et je fais pareil :P
Scusez, j'ai écrit trop vite :roll:

Salut,
la en regardant comme ça, je ne comprends pas ce qui cloche.
As tu fais du pas à pas pour voir comment est "set" ton arrayList.

Aussi, le problème ne vient pas de la, mais j'ai peut être quelques conseils qui peuvent être utiles, et d'autres pourront dire s'ils font comme ca:

1. Dans ton code, tu as des noms de variable qui le meme nom que les classes.
Cela ne semble pas bugger, mais pour la lisibilité c pas top

Code:

Dim langue As New langue

2. Tu instancies un objet que tu n'es pas sur d'utiliser

Code:

Dim langue As New langue

2.Tu utilises un tableau que tu passes en paramêtre byref.
Pourquoi ne pas faire en sorte que cela te renvoit ce que tu veux.

Je te réécris ton code d'une autre manière
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 Public Class langueProvider Public Shared function LoadLangue(ByVal strLangue As String) as List(of Langue) Dim l As nothing Dim ListLangues As nothing Dim strSQL As String Dim mySQL As SqlCommand Dim mdt As SqlDataReader strSQL = "SELECT * FROM [LANGUE] WHERE ([LANGUE] = '" & strLangue & "') ORDER BY [ID]" mySQL = New SqlCommand(strSQL, GlobalFunction.ConnectionOpen) mdt = mySQL.ExecuteReader() if(mdt.read()) then ListLangue = new List(Of Langue) While mdt.Read() l = New langue l.id = mdt("ID") l.langue = mdt("LANGUE") l.text = mdt("TEXT") ListLangue.Add(langue) End While end if GlobalFunction.ConnectionClose() return ListLangues End Sub End Class
Business
Code:

1 2 3 4 5 6 7 8 9 Imports Microsoft.VisualBasic Imports langue Imports langueProvider Public Class LangueBusiness Public shared function getLangue(ByVal strLangue As String) as List(Of Langue) return langueProvider.LoadLangue(strLangue) End Sub End Class
et la page
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Partial Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load dim ListLangue = langueBusiness.getLangue("FR") If ListLangue.Count = 0 Then Me.TextBox1.Text = "Aucune langue" Else for each l as langue in ListLangue Me.TextBox1.Text += l.text next End If End Sub End Class
Excusez moi pour mon VB, je C# maintenant, donc je ne sais pas trop si la syntaxe est bien bonne partout

29/08/2008, 19h18
Macss
Merci Promesses pour ton aide.

Je suis d'accord je pourrais nommer mieux mes variables, je tâcherai de faire attention.

Je sais que j'instencie un objet que je ne suis pas sur d'utiliser mais c'est simplement une erreur dut aux nombreux essaies que j'ai fait avant de venir sur le forum. Dans le code que j'ai sur mon server, je ne l'instencie pas 2 fois.

Pour le fait de retourner une list au lieu de l'envoyé en référence, je crois que c'est simplement une préférence de programmation mais je vais quand même tester en arrivant chez moi ce soir.

Et tu dis de faire une liste de cette manière :
Code:

1 2 ListLangue = new List(Of Langue)
Je voulais faire une list comme cela mais ca ne fonctionne pas, le type list n'existe pas. C'est pour cela que j'utilise un arraylist et je ne peux pas le typer en faisant (of langue)
29/08/2008, 19h37
tomlev

Citation:

Envoyé par Macss

le type list n'existe pas

Si si, je t'assure qu'il existe... à moins que tu ne sois en 1.1, mais vu qu'il y a une classe partielle dans ton code ça m'étonnerait ;)
Il faut ajouter un imports au début de ton fichier :

Code:

Imports System.Collections.Generic
29/08/2008, 19h45
Macss

Ha j'ai pas ajouter cet import. Je vais l'esseyer ce soir! Peut-être que ca va régler le problème
29/08/2008, 20h40
tomlev

Citation:

Envoyé par Macss

Ha j'ai pas ajouter cet import. Je vais l'esseyer ce soir! Peut-être que ca va régler le problème

Honnêtement, ça m'étonnerait que ça change quelque chose, je ne pense pas que le problème soit lié à ça : ArrayList ne marche par moins bien que List(Of T)...

En voyant le code comme ça, je ne vois pas trop d'où vient le problème, mais si tu exécutes ton programme pas à pas en observant les valeurs des variables, ça t'aidera sûrement à repérer où est l'erreur

Hey rebonjour!
Je suis désolé de cet énome lapse de temps avant ma réponse, mais c'est parce que j'ai recommencé l'université et je n'avais pas eu le temps de travailler dessus avant ca.

J'ai passé mon code en debuggage et je vois où l'erreur se produit, mais je comprend pas pourquoi elle se produit.
Code:

1 2 3 4 5 6 7 8 9 While mdt.Read() objLangue = New langue objlangue.id = mdt("ID") objlangue.langue = mdt("LANGUE") objlangue.text = mdt("TEXT") langues.Add(objLangue) End While
L'erreur se produit à la deuxième itération dans la boucle. Il ne me recrer pas un nouvel objet, il vient modifier le meme objet que dans la premiere itération et après il vient m'ajouter l'objet de nouveau dans ma list... Je comprend pas pourquoi il ne recrer pas d'objet.

Merci vraiment de votre aide.

11/11/2008, 20h29
Macss

Je viens de le résoudre
11/11/2008, 21h30
Promesses

Comment ?