Discussion :

[Macss]

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 :

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

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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) :

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

[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.

[tomlev]

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à

[Skalp]

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
Scusez, j'ai écrit trop vite

[Promesses]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 Dim langue As New langue

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
 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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[tomlev]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports System.Collections.Generic

[Macss]

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

[tomlev]

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