Class partagée

Bonjour à tous,

Voilà le problème

J'ai une class du genre:

Imports System.Web
Imports System.Data.SqlClient
Namespace NamesStatistique
Public Class Stats1

Private Shared Sub Stats(toto)
Sub1(toto)
Sub2()
End Sub

Cette class appel des procédures "Sub1, 2..."
Pour ces procédures j'ai besoin d'un tableau dont je ne connais pas la longueur exacte.
J'ai donc ceci (en rouge les commentaires)

Shared id_StatPage() As Integer  (mon tableau : le Dim ne fonctionne pas avec un procédure Shared)
Shared j As Integer = 0
Shared m As Integer

Public Shared Sub Sub1() (obligé de mettre une procédure shared sinon pas reconnu lors de l'appel de ma class)

Dim dr As SqlDataReader
Dim requete As String
requete = "SELECT StatPage.* FROM StatPage WHERE (id_StatSite = " & id_StatSite & ")"
dr = LibData.AccesBD.GetReader(requete)

Do Until Not dr.Read
id_StatPage(j) = dr("id_StatPage") (ici ça plante car mon tableau est déclaré en shared )
PageAnnee(j) = dr("PageAnnee")
PageMois(j) = dr("PageMois")
PageSemaine(j) = dr("PageSemaine")
j += 1
Loop

End Sub

J'appelle cette procédure depuis mon global.asax.vb

Imports LibStats.NamesStatistique
....
stats1.Stats(toto)
....
(Si je supprime les shared dans ma class) j'ai l'erreur suivante lors de l'appel de ma class :
"Une référence à un membre non partagé requiert une référence d'objet."

Pouvez vous m'éclairer et m'indiquer une solution ?
Thierry

Bonsoir,

As tu essayé de déclarer ta fonction statique Stats comme étant publique ?

TiK
[ Lien ]
[ Lien ]

Oui en fait elle est public (privé c'etait une erreur) et cela ne fonctionne pas non plus ?

Thierry

Dans ce cas, essaye tout simplement de remplacer stats1.Stats(toto) lorsque tu enlèves les Shared  (toto je sais pas bien ce que c mais bon...) par :

Dim voObj as new stats1()
voObj.Stats(toto)

TiK
[ Lien ]
[ Lien ]

Ok ça évolue mais j'ai encore une erreur

Dim voObj As New stats1
        voObj.Stats(toto) (arguments trops nombreux pour public sub stats()) ?
     

Thierry

Peux-tu nous renvoyer ton code tel qu'il est actuellement (vu l'erreur c'est surement que ta méthode stats() n'accepte pas de paramètres)

TiK
[ Lien ]
[ Lien ]

Ok voici le code

le fichier stats1.vb

Imports System.Web
Imports System.Data.SqlClient
Namespace NamesStatistique
    Public Class Stats1
     
        Public Shared Sub Stats(ByVal RefConc As String, ByVal NomStat As String, ByVal infocookie As Int16, ByVal CodeLang As String, ByVal navigt As String)
            'Public Sub Stats(ByVal RefConc As String)
            RecupDecalHor(RefConc)
            IdClient(RefConc, NomStat)
            Majdate()
            Pays(CodeLang)
            Semaine()
            StatPage()
            'StatPays()
            'TableStats()
            'STATSModif(infocookie, navigt)
        End Sub

le sub qui pose un problème

        '*** TRAITEMENTS TABLE "StatPage"
        'Récupération des données de la semaine passée
        Shared id_StatPage(), PageAnnee(), PageMois(), PageSemaine() As Integer
        Shared j As Integer = 0
        Shared m As Integer
        Public Shared Sub StatPage()
            Dim dr As SqlDataReader
            Dim requete As String
            requete = "SELECT StatPage.* FROM StatPage WHERE (id_StatSite = " & id_StatSite & ")"
            dr = LibData.AccesBD.GetReader(requete)
            Do Until Not dr.Read
                id_StatPage(j) = dr("id_StatPage") (ici ça plante car mon tableau est déclaré en shared )
                PageAnnee(j) = dr("PageAnnee")
                PageMois(j) = dr("PageMois")
                PageSemaine(j) = dr("PageSemaine")
                j += 1
            Loop
            dr.Close()
            If j <> 0 Then
                'TraitementSemaine1()
                'TraitementMois1()
                'TraitementAnnee1()
            Else
            End If
        End Sub

Le global.asax

Imports System.Web
Imports System.Web.SessionState
Imports System.Data.SqlClient
Imports LibStats.NamesStatistique
Public Class Global
    Inherits System.Web.HttpApplication
....
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        'Récupération du lieux de la concession par le renvois de domaine
        'ex : http://www.auto-dole.fr@IDConcession=dole
        Session("IDConcession") = Request.Params("IDConcession")
        'Response.Write("IDConcession= " & Session("IDConcession"))

        'Paramètres statistiques
        Session("RefConc") = "a724"
        Session("Site") = "auto-besancon.fr"
        Session("NomStat") = "auto-besancon"
        Session("EmailStat") = "contact@auto-besancon.fr"

        Dim CodeLang, navigt As String
        CodeLang = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
        navigt = Request.ServerVariables("HTTP_USER_AGENT")

        'Récupération du cookie "dernieracces"
        Dim infocookie As Int16 = 0
        Dim Cook As HttpCookie
        Cook = Request.Cookies("dernieracces")
        If Not Cook Is Nothing Then 'cookies existe
            'Verification du passage dans la journée par la date
            If DateValue(Cook.Value) = DateTime.Now Then
                'le client est déja passé dans la journée
                infocookie = 1
            Else
            End If
        Else
            infocookie = 0
        End If

        'traitement des statistisques Class LibStats.CStats1.Stats
        Dim voObj As New stats1
        'voObj.Stats(Session("RefConc"))
        voObj.Stats(Session("RefConc"), Session("NomStat"), infocookie, CodeLang, navigt)
        'stats1.Stats(Session("RefConc"), Session("NomStat"), infocookie, CodeLang, navigt)

        'Mise à jour du cookie
        Dim MC As New HttpCookie("dernieracces", DateTime.Now)
        MC.Expires = DateTime.Now.AddDays(1)
        Response.Cookies.Add(MC)
    End Sub
.....
Voici donc le code ...

Thierry

Salut,

Une petite question :
Quand tu dis "ici ça plante car mon tableau est déclaré en Shared", quel est le message d'erreur envoyé
Et puis il y a un truc pas normal :
Je ne te vois nullepart dimensionner ton tableau (tu le déclare et tu y ajoute tout de suite des valeurs : normalement ce genre de choses déclenche une erreur ).

tu devrais, juste avant le Do Until Not dr.Read, faire un :
Redim id_StatPage(un_nombre)
En mettant à la place de "un_nombre" le nombre d'enregistrements dans ton SqlDataReader. Honte à moi, je ne me souviens plus quelle est la propriété du SqlDataReader qui renvoi le nombre d'enregistrements...
(je vais chercher...)

A+++

Nurgle

J'arrête de regarder le code en détail, la logique même de ta classe me pose problème.
Je ne comprends pas pourquoi tu tiens absolument à déclarer tes membres de classe comme statique (id_StatPage(), PageAnnee(), PageMois(), PageSemaine(),j,m) alors que tu passes ton temps à les modifier et qu'ils ne sont en fait jamais partagés.
Dans ta classe telle qu'elle est actuellement, tu peux supprimer les shared de partout (et pense à réinitialiser tes tableau à chaque passage dans ta methode), logiquement ça doit marcher.
Par contre, l'utilisation de membres statique peut être envisagé, mais pas comme tu le fais là. Commence par charger tes tableaux au démarrage de l'application, et ensuite ajoute les informations supplémentaires au démarrage de la nouvelle session (je dis bien ajoute et non écrase tout).
Par contre ton idée m'intéresse, et je vais surement faire quelque chose dessus ce soir, donc si tu peux patienter un peu…


TiK
[ Lien ]
[ Lien ]

Ca ne m'etonne pas que ca plante !!! J'aime pas les méthodes statiques, mais en essayant d'aller recuperer ton tableau, ca ne m'etonnerais pas qu'il aille t'en chercher un nouveau tout les jours !

Pourquoi veux tu faire tout ca en shared ? moi je ferais une classe toute simple, et si tu veux pas instancier la classe dans le code (car c'est chiant d'ecrire une ligne de plus ;)) tu fais un singleton et puis voila :)

public class stats

public sub truc()
end sub

public sub toto()
end sub

public shared function getInstance() as stats
return new stats()
end function

end class

dans le code

stats.getInstance().toto()

et comme le dit Nurgle, faut faire un redim sur ton tableau sinon ca va pas aimer. A ta place je mettrais un ArrayList c'est plus simple pour ajouer des objets dedans (ou alors un List(of Integer) si tu es en .net2)

Avec tout ca ca devrait etre bon :)

---

Cyril - MCP ASP.net
Webmaster de : Hoshimi.CodeS-SourceS.fr