Problème avec Variable dynamique

Version imprimable

Bonjour,
J'ai du code Classic ASP que je dois convertir en Asp.net
Ce code me permet de faire afficher le contenu de plusieurs variable
dynamique, ce bout de code me permet de traduire une page avec le choix de langue lors du login du User.
Donc, dans la table Config, j'ai le nom de la variable avec la valeur en fonction de la langue choisi. Ce qui me permet de créer dynamiquement le nom de la variable avec sa valeur
Voici un exemple du code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 '*** DEBUT TRADUCTION DES CHAMPS *** oConnection10.ConnectionString = ConfigurationSettings.AppSettings("SqlServer") oConnection10.Open() M_NomScript = "RechNiveau4" sql10 = "SELECT NomChamp,Desc_" & M_LangueUser & " FROM Config WHERE (NomScript = '"& M_NomScript &"') " 'Response.Write ("<font color="&"#FFFFFF"&">" & sql10 & "</font><BR>") Dim command10 As New SqlCommand(SQL10, oConnection10) Dim Rs10 As SqlDataReader = command10.ExecuteReader() Do While Rs10.Read() M_y = rs10("NomChamp") M_x = rs10(1) Execute("M_" & M_y & " = M_x") Loop rs10.close oConnection10.dispose '*** FIN TRADUCTION DES CHAMPS ***
Ce code fonctionne très bien avec le Asp Classic, mais comme vous pouvez le voir j'ai converti le code en asp.net et mon problème est au niveau du Execute.

Est-ce que vous pouvez m'aider ?

Merci et bonne journée

06/09/2011, 17h29
tomlev
Il n'y a pas d'équivalent à Execute en .NET. C'est du code compilé, pas du script, donc tu peux pas faire des trucs comme "Execute" ou "Eval" qui vont évaluer un bout de script arbitraire.

Ce tutoriel décrit une façon de traduire une appli ASP.NET à l'aide d'une base de données, mais je ne sais pas si ça pourra s'adapter à ton cas

Sinon, une solution possible :
à la place de tes variables M_*, tu crées un dictionnaire (Dictionary(Of String, String)), où la clé est le nom du champ, et la valeur est la traduction

Ca donne quelque chose comme ça :
Code:

1 2 3 4 5 6 Dim traductions As New Dictionary(Of String, String)() Do While Rs10.Read() M_y = rs10("NomChamp") M_x = rs10(1) traductions(M_y) = M_x Loop
Et ensuite tu accèdes à la traduction du champ "toto" via traductions("toto")

Je m'excuse mais je suis débutante dans le .net
je viens d'essayer le code avec le Dictionary et j'ai le message d'erreur suivant

Citation:

BC30002: Type 'Dictionary' non défini

Voici le code avec le dictionary

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'*** DEBUT TRADUCTION DES CHAMPS ***  
  oConnection10.ConnectionString = ConfigurationSettings.AppSettings("SqlServer")
  oConnection10.Open()
 
  M_NomScript = "RechNiveau4"
 
  Dim traductions As New Dictionary(Of String, String)()
 
  sql10 = "SELECT NomChamp,Desc_" & M_LangueUser & " FROM Config WHERE (NomScript = '"& M_NomScript &"') "
  'Response.Write ("<font color="&"#FFFFFF"&">" & sql10 & "</font><BR>")
  Dim command10 As New SqlCommand(SQL10, oConnection10)
  Dim Rs10 As SqlDataReader = command10.ExecuteReader()
  Do While Rs10.Read() 
     M_y = rs10("NomChamp")
     M_x = rs10(1)
     'Execute("M_" & M_y & " = M_x")
     traductions(M_y) = M_x
  Loop
  rs10.close
  oConnection10.dispose
'*** FIN TRADUCTION DES CHAMPS ***

merci de votre aide

06/09/2011, 18h27
tomlev

Il doit te manquer un Imports :

Code:

Imports System.Collections.Generic