Discussion :

[white_mind]

bonsoir ,
J'ai un probleme avec mon applications c# .NET que je cree ...
Ce probleme survient qd j'essaye de lancer l'appli.. je sais que c'est peut etre un problème de conversion de tye mais je sais pas comment le résourdre
le code en c# marche pourtant trés bien mais quand je l'écris en vb ca marche pas bon voila le morceau de code en c#

svp c quelq'un peut m'aider merci d'avance
le problème est au niveau de la ligne 17

Code :

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

  Dim sessionKey As Object = "Repository_" + repositoryKey + "_" + size

du code en vb

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
using System.Web;
using Hik.JTable.Repositories;
using Hik.JTable.Repositories.Memory;
 
namespace Hik.JTable.Sessions
{
    public static class RepositorySesssion
    {
        public static IRepositoryContainer GetRepository(RepositorySize size = RepositorySize.Medium, string repositoryKey = "common")
        {
            var sessionKey = "Repository_" + repositoryKey + "_" + size;
 
            if (HttpContext.Current.Session[sessionKey] == null)
            {
                HttpContext.Current.Session[sessionKey] = CreateRepository(size);
            }
 
            return HttpContext.Current.Session[sessionKey] as IRepositoryContainer;
        }

en vb

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
20
21
22
23
24
25
26
27
28
29
30
31
 
Imports System
Imports System.Object
Imports System.Web
Imports System.Web.HttpContext
Imports jTableSampleDatabaseLayer.Hik.JTable.Repositories
Imports jTableSampleDatabaseLayer.Hik.JTable.Repositories.Memory
 
Namespace Hik.JTable.Sessions
 
    Public Class RepositorySesssion
 
        Public Function GetRepository(Optional ByVal size As RepositorySize = RepositorySize.Medium, Optional ByVal repositoryKey As String = "common") As IRepositoryContainer
 
 
 
            Dim sessionKey As Object = "Repository_" + repositoryKey + "_" + size
 
            If (System.Web.HttpContext.Current.Session(sessionKey)) Then
 
                System.Web.HttpContext.Current.Session(sessionKey) = CreateRepository(size)
            End If
 
            Return CType(System.Web.HttpContext.Current.Session(sessionKey), IRepositoryContainer)
 
 
        End Function
 
 
    End Class
End Namespace

et l'erreur que je reçoit dans mon browser

[tomlev]

En VB.NET on utilise & et non + pour concaténer des chaines. Si tu utilises "+", il essaie de convertir ça en nombre, et comme c'est pas des nombres, ça foire...
De plus, var en C# signifie que le type est inféré par le compilateur d'après la valeur affecté ; en l'occurrence, le type est String, et non Object. De toute façon, tu n'as pas besoin de le préciser, tu peux laisser le compilateur deviner, comme dans le code C# d'origine. Le code correct est donc :

Code :

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

  Dim sessionKey = "Repository_" & repositoryKey & "_" & size