Discussion :

[Karop73]

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 VB.NET :

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

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

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

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

[Karop73]

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

BC30002: Type 'Dictionary' non défini

Voici le code avec le dictionary

Code VB.NET :

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

[tomlev]

Il doit te manquer un Imports :

Code VB.NET :

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

Imports System.Collections.Generic