[VB.Net] Comment renseigner plusieurs Label à partir d'une liste de valeurs ?

Version imprimable

04/08/2006, 14h18
iSnOoPy

[VB.Net] Comment renseigner plusieurs Label à partir d'une liste de valeurs ?
Hello, Le titre est un peu long mais en gros voici mon probléme. Je dois faire un code en VB .net dans une page .aspx ( précision je débute complétement en VB)
La page .aspx contient x balises de ce type :
Code:

1 2 3 <asp:Label id="lblInfo" style="Z-INDEX: 100; LEFT: 205px; POSITION: absolute; TOP: 865px" runat="server" font-bold="True"></asp:Label>
Courament, pour afficher du texte entre ces balises, on met dans le code VB ceci :

Code:

lblInfo.Text = " Coucou, bievenue sur mon site"

Bon maintenant, tous mes textes pour les x balises sont dans une base de donnée ACCESS 2000 (.mb20) rangé dans deux colonnes : ID et Text.
J'ai dequoi faire des requetes en SQL et récupérer la liste de tous les ID et tous les textes.

Mon probléme est que ma fonction me retourne tous les ID et tous les textes dans 2 tableaux : IDNames() et IDValues() et je veux me servire de la valeur du premier ID, soit :

IDNames(0) avec le text contenu dans IDValues(0)
Cad, automatiser ceci :

Code:

lblInfo.Text = " Coucou, bienvenue sur mon site"

Par cela pour les x balises ( le nombre de balises est connu) :

Code:

IDNames( icount ).Text = IDValues( icount )

Or cette derniére ligne comporte une erreur de synthaxe :
>

Citation:

Error Message : BC30456: 'Text' is not a member of 'String'

Je ne comprend pas l'erreur :( Pouvez vous m'éclairer svp.
Merci d'avance.
04/08/2006, 17h11
augereau
as tu essayé :
Code:

1 2 IDNames( icount ).Text = cstr( IDValues( icount ) )
ou

Code:

IDNames( icount ).Text = cType( IDValues( icount ), String )

?

Oui j'ai essayé les deux, tjs la meme erreur.

On est en train de chercher du côté :

Code:

1
2
3
4
5
6
7
8
9
10
 
dim controlname as control
    dim labelname as label
    for icount=1 to norows
    controlname=FindControl(IDNames(icount))
    labelname=FindLabel(IDNames(icount))
    controlname.Text = IDValues(icount)
    controlname.Style.add("LEFT",Xpos(icount)&"px")    
 
    next icount

Bon plusieurs remarques :
Tout d'abord ta question n'a franchement que peu de rapport avec ADO.Net ;) eventuellement ce serait du DataBinding mais même celà tu ne l'utilises pas vraiment. Donc oui tu tentes une liaison à de données mais entièrement remaniée. Donc ton premier souci est dû au fait que tu oublie que c'est un tableau que tu manipules (la référence a consulté est System.Array)
Normalement ta seconde piste devrait fonctionner encore faut-il savoir en quoi celà ne fonctionne pas ? c'est à dire quelle ligne de code te fournit la même erreur que précedemment :koi:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 '... quelquepart For index = debut To fin Me.SetLabel(index) Next '... Private Sub SetLabel(ByVal i As Integer) Try CType(FindControl(Me.IDNames(i)), Label).Text = _ Me.IDValues(i).ToString() Catch ex As Exception Response.Write(ex.ToString()) End Try End Sub

Bonjour,

Merci pour vos réponses. La même erreur est retourné à cette ligne :

Code:

controlname.Text = IDValues(icount)

Ensuite pour ton code,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 '... quelquepart For index = debut To fin Me.SetLabel(index) Next '... Private Sub SetLabel(ByVal i As Integer) Try CType(FindControl(Me.IDNames(i)), Label).Text = _ Me.IDValues(i).ToString() Catch ex As Exception Response.Write(ex.ToString()) End Try End Sub
Qu'est ce que les variables : " index, debut et fin " quelle valeur sa prend et d'ou sa viens ?

Ensuite :

Code:

CType(FindControl(Me.IDNames(i)), Label).Text = _

Qu'est ce que le " Me " ? Et je suppose que le " _ " est le texte venant de la BDD soit IDValues ?

Je ne peux pas tester avant d'être sur le server du bureau lundi matin, mais merci pour ton indication, si tu pouvais juste me préciser ces points d'ombres stp se serait simpa :p

05/08/2006, 18h37
neguib
ok :D
donc pour Me c'est le mot clé de VB.net pour désigner l'instance en cours donc je suppose ton objet Page
J'ai donc supposé que cette instance de type Page disposait des variables Array IDValues et IDNames
Maintenant je ne connais pas le type de ces variables réellement car je n'ai pas vu leur declaration :question: donc à toi de voir s'il est nécessaire ou pas d'assigner une valeur de IDValues en ajoutant ToString() dans
Code:

1 2 3 CType(FindControl(Me.IDNames(i)), Label).Text = _ Me.IDValues(i).ToString()
Ah oui le signe underscore(_) est utilisé pour passer simplement à la ligne dans l'ecriture d'un code :) tu peux l'enlever si tu supprime le passage à la ligne ;)

Comme la méthode FindControl renvoie un type Control, je caste directement celui récupéré en son type réel normalement Label(en espérant que les index que tu passes à la méthode correspondent bien à un Label ;)) d'où l'utilisation du CType( ... , Label) me permettant directement d'assigner la propriété Text de ce Label.
Pour moi ce message d'erreur

Citation:

Error Message : BC30456: 'Text' is not a member of 'String'

est incompatible avec
Code:

1 2 3 4 5 6 Dim controlname As Control For icount=1 To norows controlname = FindControl(IDNames(icount)) controlname.Text = IDValues(icount) Next icount
à mon avis si ce message apparaît encore c'est un vieux code qui traine sur ta première tentative car en effet le type String ne possède pas evidemment d'accesseur Text.
Quant aux variables index, debut et fin, elles sont là pour définir le parcours du tableau, donc, par exemple, si tu tiens à utiliser toutes les données de tes tableaux en entier. Je suppose que :
- début = 0
- fin = longueur de tes tableaux -1 (normalement la même pour les 2 tableaux)
- index est la variable dynamique qui s'incrémente dans la plage définie sur le For...Next
Comme tu sembles être débutant, as-tu utiliser un autre langage avant le VB.Net, histoire de te donner des équivalents si mes explications te sont encore obscures.
07/08/2006, 10h27
iSnOoPy

;-)
hello,

Ok merci pour les explications. En effet je suis complétement débutant en VB .net, j'ai uniquement cette fonction à faire. Et j'ai évidement trés peu de temps. C'est pour cela que j'ai essayé de poster une question à peu prés claire ;) sur le forum(désolé pour mes lacunes gigantesques de débutant).
Alors oui jusqu'a présent j'ai fait pas mal de PHP et du C ( pr les cours, mais c'est pas ma tasse de thé).

Donc pour te répondre :

Citation:

donc pour Me c'est le mot clé de VB.net pour désigner l'instance en cours donc je suppose ton objet Page
J'ai donc supposé que cette instance de type Page disposait des variables Array IDValues et IDNames
Maintenant je ne connais pas le type de ces variables réellement car je n'ai pas vu leur declaration donc à toi de voir s'il est nécessaire ou pas d'assigner une valeur de IDValues en ajoutant ToString()

Il s'agit d'une page aspx, je n'ai pas déclarer explicitement un objet "Page" mais si c'est un objet par défaut créé par VB lorsque le code est dans une page aspx, alors c'est bon. Ensuite IDValues et IDNames sont déclarées comme ceci au début du code :
Code:

1 2 Dim IDNames(1) as String Dim IDValues(1) as String
Donc je t'avoue que je comprend pas tout à fait :

Citation:

à toi de voir s'il est nécessaire ou pas d'assigner une valeur de IDValues en ajoutant ToString()

D'aprés ma déclaration précédente dois-je utiliser ToString() ?

Pour cela :

Citation:

Quant aux variables index, debut et fin, elles sont là pour définir le parcours du tableau, donc, par exemple, si tu tiens à utiliser toutes les données de tes tableaux en entier. Je suppose que :

C'est bon je viens enfin de percuter, merci. Je lance le server et je te poste ma fonction pour info. En espérant implémenter correctement ta réponse :p Je posterai la fonction opérationnelle ensuite.

Merci.

Code Fonction

Fonction qui récupére les données de la BDD, fonctionne correctement, uniquement à titre indicatif pour voir d'où vienne les IDValues,IDNames et XPos, je n'ai pas de problème avec :

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
 '--------------------------------   Array version --------------------------------
 
 
 Sub GetTranslateAll(Pagename as string, Language as string, _
Byref Norows as integer, Byref IDNames as string(), _
Byref IDValues as string(), Byref Xpos as String())
 
    Dim objConnection as OleDbConnection
    Dim objCommand as OleDbCommand
    Dim objDataReader as OleDbDataReader
    Dim strSQLQuery as String
    Dim icount as integer
 
    Dim IDValuesTest as Object '-Test de la valeur IDValues
    Dim XposTest as Object '- Test de la valeur Xpos
 
    Norows = fctNorows(PageName) '-- Nombre d' ID
 
    icount=0 '-- Compteur à 0
 
    'Get users email address
    objConnection=New OleDbConnection(Session("ConString"))
 
    strSQLQuery ="SELECT ID,Infos_"+Language+",LEFT_"+Language+" _ 
FROM UK_FR WHERE (PageName = "& chr(34) & Pagename & chr(34) & ");" 
 
 
    objCommand = New OleDbCommand(strSQLQuery, objConnection)
    objConnection.Open()
    objDataReader=objCommand.ExecuteReader(CommandBehavior.CloseConnection)
 
    Try
 
    objDataReader.Read()
 
Redim IDNames (Norows)
Redim IDValues(Norows)
Redim Xpos(Norows)
 
icount =1
while objDataReader.read() '-- Enregistre les données de la BDD :
 
    IDNames(icount) = objDataReader.Item("ID")
 
 
    IDValuesTest = objDataReader.Item("Infos_"+Language)
    If TypeOf IDValuesTest Is String Then
    IDValues(icount) = IDValuesTest
    End if
 
 
    XposTest = objDataReader.Item("Left_"+Language)
    If TypeOf XposTest Is String Then
    Xpos(icount) = XposTest
    End if
    icount = icount + 1
end while
 
    Finally
    objConnection.Close()
    End Try
 
    End Sub
 
    '------------------------

Code qui dois "imprimer" les ID et leur valeur ".text" au chargement de la page avec Page_Load() :

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
Dim pagename,idelt,att,user,lang as string
 
Sub Page_Load(sender as object, e as eventargs)
 
PageName = "abandoned_cars.aspx" '-- Page courante
Lang = "FR"
Dim IDNames(1) as string '-- Nom des ID
Dim IDValues(1) as string '-- Valeur ".Text" des ID
Dim Xpos(1) as string '-- Valeur Style "LEFT" en px de l' ID
Dim norows as integer '-- Nombre d' ID    
Dim icount as integer  '-- Compteur
 
    If Not IsPostBack Then '-- Test de l'état du formulaire
 
norows = fctNorows(pagename)    
 
Call GetTranslateAll(PageName, Lang,norows,IDNames,IDValues,Xpos)
 
'------------- Affichage ".TEXT" - Partie qui pose problème -------------
    dim controlname as control
    dim labelname as label
 
    for icount=1 to norows
    controlname=FindControl(IDNames(icount)) '-- return true or false
    'labelname=FindLabel(IDNames(icount))
 
-- Error : BC30456: 'Text' is not a member of 'String' --
    controlname.Text = IDValues(icount) 
-- Error : BC30456: 'Text' is not a member of 'String' --
 
    controlname.Style.add("LEFT",Xpos(icount)&"px")
 
    next icount
 
    rbtnYes.Checked = True
 
    lblMsg.Text = ""
 
 '----------------- Fin affichage ".TEXT" des ID ---------
 
    End If
 
    End Sub

Finalement je ne peux pas utiliser cette fonction qui transcrit tous les IDs de la bases. Car un controleur peux prendre différente valeurs repérées par différents ID à la suite de différent test. Donc imprimer tous les ID de la BDD est une erreur.

M'enfin pour revenir à la question j'en suis arrivé là :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 '... quelquepart For i = 0 To norows Try 'lblMsg.Text = IDNames(1) CType(FindControl(IDNames(i)), Label).Text = IDValues(i).ToString() Catch ex As Exception Response.Write(ex.ToString()) End Try Next i
J'ai tout mis dans la boucle, je n'obtient plus de méchantes erreurs de compilation mais seulement ceci à l'affichage :
Code:

1 2 3 4 5 6 7 8 9 System.NullReferenceException: Object reference not set to an instance of an object. at System.Web.UI.Control.FindControl(String id, Int32 pathOffset) at System.Web.UI.Control.FindControl(String id) at ASP.abandoned_cars_aspx.Page_Load(Object sender, EventArgs e) in C:\dotnet\abandoned_cars.aspx:line 47 System.InvalidCastException: Specified cast is not valid.
Si cela peut aider quelqu'un avec un pb similaire ;-)

Merci pour les reponses. ++

07/08/2006, 15h56
neguib
Bon je vais y aller pas à pas car tu as eu le temps de poster plusieurs messages et donc point par point:

Citation:

Envoyé par iSnOoPy

Alors oui jusqu'a présent j'ai fait pas mal de PHP et du C ( pr les cours, mais c'est pas ma tasse de thé).

Pas moi désolé, j'essaierai d'être suffusamment clair sue .Net ;)

Citation:

Envoyé par iSnOoPy

Il s'agit d'une page aspx, je n'ai pas déclarer explicitement un objet "Page" mais si c'est un objet par défaut créé par VB lorsque le code est dans une page aspx, alors c'est bon.

Bien disons que si tu es sous Visual Studio, tu peux dans l'explorateur de la solution, appuyer sur le petit icone qui montre tous les fichiers présents. Donc la page .aspx contient normalement le code (HTML, javascript ...) traité côté client puis tu dois avoir, associée à elle, un fichier aspx.vb qui lui contient le code-behind (VB.Net) ou ce qui sera traité côté serveur. Un EDI comme WebMatrix obligeait à tout mettre dans la page mais je prefère la séparation client/serveur personnellement. Donc oui le fichier aspx.vb est bien l'implémentation d'une classe dérivée Page et son instance est représentée par le mot clé Me.
Citation:
Envoyé par iSnOoPy

Ensuite IDValues et IDNames sont déclarées comme ceci au début du

Code:

1 2 3 Dim IDNames(1) as String Dim IDValues(1) as String

... D'aprés ma déclaration précédente dois-je utiliser ToString() ?
Non maintenant que ce sont des tableaux de String les valeurs retournée seront necessairement de type String

Citation:

Envoyé par iSnOoPy

J'ai tout mis dans la boucle, je n'obtient plus de méchantes erreurs de compilation mais seulement ceci à l'affichage :

Citation:

System.NullReferenceException: Object reference not
set to an instance of an object.
at System.Web.UI.Control.FindControl(String id, Int32 pathOffset)
at System.Web.UI.Control.FindControl(String id)
at ASP.abandoned_cars_aspx.Page_Load(Object sender, EventArgs e)
in C:\dotnet\abandoned_cars.aspx:line 47
System.InvalidCastException:
Specified cast is not valid.

Bon là c'est certainement parce que le
Code:

1 2 CType(FindControl(IDNames(i)), Label).Text = IDValues(i)
retourne Nothing
Donc oui, c'est normal pour l'exception levée
Quelle est la valeur IDNames(i) en cause, est-ce qu'un Label de ta page a réellement cet ID, attention si tu n'a pas maitrisé l'assignation des ID lors de la génération des contrôles de ta page, tu risques d'avoir ce genre de surprise.

Comme tout semble fixé d'avance et immuable, au plus simple je diviserai en trois eléments:
- Un userControl (.ascx) qui est un container contenant tes labels et autres si necessaire et possedant un champs privé datas As String(), tu definis un constructeur surchargé qui reçoit en paramètre IDValues afin d'initialiser datas et qui lance donc une procédure que tu as implémenté qui initialise le texte de tes labels en fonction de datas (à peine besoin de faire une boucle d'ailleurs).
- une classe dont la responsabilité unique et de communiquer avec la base de données et qui fournis les données sous la forme de tableaux par exemple ta page qui :
  - sollicite la classe d'accès aux données
  - instancie le.ascx en lui passant les données et le charge
Voilà en espérant que çà te facilitera la tache plutôt que d'utiliser le FindControl qui n'est pas toujours aussi simple à manier et tend à compliquer l'evolution d'un site

Fonction OK

Merci d'avoir pris le temps de détailler tes réponses neguib, mais je t'avoue que les dernières explications m'ont un peu perdu :( En tout cas le code qui suit répond à ma question, même si il utilise le FindControl() ;) cela me suffit.

Bonne continuation.

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
'- begin cut
 
dim controlname as control
for icount=1 to norows-1
    controlname=FindControl(IDnames(icount))
    IF typeof controlname is CheckBox then
       ctype(controlname,system.web.ui.webcontrols.CheckBox).text= _
IDvalues(icount)
        if val(Xpos(icount))>0 then
           Ctype(controlname,system.web.ui.webcontrols.CheckBox).style. _
 add("LEFT",Xpos(icount)+"px")
        end if
 
    ElseIf typeof controlname is label then
            if IDnames(icount) = "lblFaultXY" then
              ctype(controlname,system.web.ui.webcontrols.label).text = _
 IDvalues(icount) _& " (" &coord_x.ToString("F1") & "m, " & _
coord_y.ToString("F1") & "m)"
            else ctype(controlname,system.web.ui.webcontrols.label).text= _
 IDvalues(icount)
            end if
        if val(Xpos(icount))>0 then
 
            Ctype(controlname,system.web.ui.webcontrols.label).style. _
add("LEFT",Xpos(icount)+"px")
        end if
end if
next icount
 
'- end cut