Discussion :

[zooffy]

Salut

Je voudrais lire les colonnes d'un DataRow, sans me préoccuper du nombre ou de ce qu'il y a dedans.

J'ai du louper un épisode, ou je dois être à côté de la plaque, parce que, ça me paraissait simple, mais en fait non !

Donc, j'ai mis au point une Proc Stock qui me retourne une ligne d'enregistrement et une seule. Je charge ça dans une dataTable.

Ensuite, je lis la bestiole pour afficher betement le contenu de chaque champs dans un Label, que me mets dans une Cell, puis dans une Row puis dans une Table.

Voici mon code qui m'affiche le nom du champ et pas le contenu du champ. L'ennui c'est que je ne trouve pas le moyen d'accéder au contenu du champ.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim InfoMembre As DataTable = New DManager("DataDev").RetournerTable("EXEC dbo.MEET_FicheComplete '" & GetApplicationGUID().ToString & "', '" & GetUserGUID().ToString & "', 'Recherche', 'FicheComplete'")
        For Each enr As DataColumn In InfoMembre.Columns
 
            Dim l As New Label
            l.Text = enr.ToString
            Dim row As New TableRow
            Dim cel As New TableCell
            cel.Controls.Add(l)
            row.Cells.Add(cel)
            tblGene.Rows.Add(row)
        Next

Merci pour votre aide.

[predalpha]

Salut Zoofy,

De mon côté, pour parcourir les datatables, j'utilise les datarows.
Je ne connais pas tes classes personnalisées mais ce ne serait pas plus simple si c'est possible ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim r as datarow
 
for each r in madatable.rows
 
            Dim l As New Label
            l.Text = r(ton_indice_de_colonne).ToString
            Dim row As New TableRow
            Dim cel As New TableCell
            cel.Controls.Add(l)
            row.Cells.Add(cel)
            tblGene.Rows.Add(row)

next

[zooffy]

Merci PredAlpha

En fait non, le code que tu proposes je l'utilise lorsque j'ai plusieurs Rows, mais là, j'en ai qu'une seule.

Ce que je veux, c'est lire les colonne, pas les lignes.

[predalpha]

ah oki, j'avais pas tout pigé. Et ça ce serait mieux ?

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
dim r as datarow
dim i as integer
 
'on suppose que tu as chargé la datarow r avec une ligne de ta datatable
 
for i = 0 to madatable.columns.count - 1
 
Dim l As New Label
l.Text = r(i).ToString
Dim row As New TableRow
Dim cel As New TableCell
cel.Controls.Add(l)
row.Cells.Add(cel)
tblGene.Rows.Add(row)
 
next i

[lutecefalco]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim InfoMembre As DataTable = New DManager("DataDev").RetournerTable("EXEC dbo.MEET_FicheComplete '" & GetApplicationGUID().ToString & "', '" & GetUserGUID().ToString & "', 'Recherche', 'FicheComplete'")
        For i = 0 to InfoMembre.Columns.Count - 1
 
            Dim l As New Label
            l.Text = InfoMembre(0)(i).ToString
            Dim row As New TableRow
            Dim cel As New TableCell
            cel.Controls.Add(l)
            row.Cells.Add(cel)
            tblGene.Rows.Add(row)
        Next

[zooffy]

Merci les gars.

Vos codes sont sensiblement dans la même veine.
ça marche bien, mais vos idées m'ont ouvert l'esprit vers un autre truc que je trouve plus mieux.
Maintenant, j'aimerais bien que puissiez me dire si c'est plus ou moins performant que vos idées. Et je parle bien de performances pures et dures. Si je peux économiser la moindre milisecondes de traitement, je suis preneur.

L'idée est véritablement de ce détacher de toute contingences de nomamge ou de comptage, la requête SQL devant retourner à la fois les moyens compter le nombre de champ, ainsi que le nom de ces champs.
En fait, j'ai d'autre table dans ma base qui contiennent le nom des champs et en déduise leur "type", information dont je me sert pour faire des traintements sur les champs en question.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim InfoMembre As DataTable = New DManager("DataDev").RetournerTable("EXEC dbo.MEET_FicheComplete '" & GetApplicationGUID().ToString & "', '" & GetUserGUID().ToString & "', 'Inscription', 'FicheComplete'")
        For Each enr As DataColumn In InfoMembre.Columns
 
            Dim l As New Label
            l.Text = CStr(InfoMembre.Rows(0).Item(enr.ToString))
            Dim row As New TableRow
            Dim cel As New TableCell
            cel.Controls.Add(l)
            row.Cells.Add(cel)
            tblGene.Rows.Add(row)
        Next

[lutecefalco]

Perso, je pense que c'est plus rapide d'accèder par l'index que par le nom de la colonne.
Cependant, tu chipotes pour des ms alors que tu te trouves dans un environnement web. Les ms gagnées seront bien négligeables par rapport aux temps de transferts de ta page

[zooffy]

Chipotage, oui et non. Le site concerné est un site de rencontre qui aura (je l'espère) beaucoup de trafic et d'interrogation de BD, du coup, chaque miliseconde gagnée sur multipliée par le nombre de visiteur et de requête par visiteur.

Vois tu le côté exponentiel de la chose ?

Pareil pour mes proc stock, je bosse en optimisation à bloc avec les index, les type de donnée, la rédaction des SELECT tout y passe.

Merci pour le coup de main.