Discussion :

[EricGardien]

Bonjour,

Je voudrais créer une petite procédure qui va chercher le nom des colonnes d'une table mssql et qui les utilise comme nom de variable.

Je m'explique.

TableA
Ref, Nom, Prenom, Age, ...
1, Durand, Charles, 32
2, Dupont, Dominique, 26
3, Bontemps, Jacques, 46
...

Et je voudrais utiliser dans ma procédure asp des variables ayant le nom des colonnes sans bien sur devoir recopier le nom des colonnes.

Nom =
Prenom =
Age =
...

Ci-dessous le concept mais bien sûr ça ne peut pas fonctionner comme cela.

Code :

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

1
2
3
4
5
6
Set RS=Server.Createobject("ADODB.Recordset")
RS.Open "SELECT * FROM TableA WHERE Ref ='"&Session("Ref")&"'", adoConn, 3, 3
for each f in RS.Fields
   f.Name = RS("f.Name")
next
RS.close:set RS=nothing

Resultat
Si Session("Ref") = 1 on devrait avoir
Nom = "Durand"
Prenom = "Charles"
Age = 32

Ceci permettrait d'assigner toutes les variables même en cas de table évolutive.

J'espère être assez clair. ;-)

Merci pour votre aide.

Eric

[roro06]

Bonjour

tu peux utiliser la fonction execute

de mémoire :

Code :

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

1
2
execute(f.name & " = """ & RS("f.Name") & """")

(sur les dernières versions de vbscript uniquement)

[EricGardien]

Évidemment après avoir googlé, forumé,... pendant des heures ;-) c'est après avoir posté que j'ai trouvé une solution avec Dictionary.

Mais ta solution Roro06 est très intéressante car elle ne rallonge pas le nom des variables.

Plus qu'à savoir laquelle des deux occupe le moins de ressources et est la plus rapide. ;-)

Merci beaucoup.

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
[<%'Get values
 
Set RS=Server.Createobject("ADODB.Recordset")
RS.Open "SELECT * FROM TableA WHERE Ref='"&Session("Ref")&"'", connStr, 3, 3
Dim VarA
set VarA = Server.CreateObject("Scripting.Dictionary")
for each f in RS.Fields
	VarA.Add f.name, RS(f.name) 'solution dictionnary
	execute(f.name & " = """ & RS(f.Name) & """") 'solution roro06
next
 
Response.Write VarA.Item("Nom")
Response.Write VarA.Item("Prenom")
Response.write Nom
Response.write Prenom
 
RS.close:set RS=nothing
 
%>]

PS : j'avais mis des "" à RS(f.name) qui n'ont bien sur pas de raison d'être. Corrigé dans l'exemple.

Merci.