Discussion :

[benny-blanco]

Bonjour a tous,

Voici le contexte :

Faire un site de partage de photo ou chaque utilisateur aura un niveau de visibilité. En fonction de ce niveau de visibilité, il aura accès a "x" photo.

J'ai donc une base de données avec 3 tables : Niveau, utilisateur et image

Ma table image a deux clé étrangère : idNiveau et idImage


Je souhaiterai utiliser une session utilisateur qui garderai en mémoire la session et ainsi le niveau de visibilité.

Voila ce que j'ai fais :

J'ai créer un projet Service web ou j'ai effectué ma connexion a ma base de données et mes fonction CRUD

J'ai ensuite créer un second projet asp vide ou j'ai référencé mon service web.

J'ai créer un formulaire de connexion classique avec deux textbox ( log et password ) et bien sur un bouton "connexion"

Dans ma table utilisateur j'ai deux colonne pour la connexion ( pseudo et password )

Voici mon code :

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
Protected Sub button_connexion_Click(sender As Object, e As System.EventArgs) Handles button_envoyer.Click
 
        'appel fonction lister avec requete de mon service web : myService :
 
        'lister les id de l'utilsateur qui se connecte pour récupérer son ID
        Dim listerutilisateur = myService.listerAvecRequete("SELECT idNiveau FROM utilisateur WHERE pseudo='" & _
                                                            Me.textBox_Login.Text & "' AND password='" & Me.textBox_pass.Text & "'")
        Dim xmlId As String = listerutilisateur.GetXml.ToString
 
        'lister les pseudo pour effectué ou non la connection
        Dim listerPseudo = myService.listerAvecRequete("SELECT pseudo FROM utilisateur WHERE pseudo='" & Me.textBox_Login.Text & "'")
        Dim xmltext As String = listerPseudo.GetXml.ToString
 
        'lister les password pour effectué ou non la connexion
        Dim listerPasseword = myService.listerAvecRequete("SELECT password FROM utilisateur WHERE password='" & Me.textBox_pass.Text & "'")
        Dim xmlPassword As String = listerPasseword.GetXml.ToString
 
        If Me.textBox_pass.Text = Nothing Or Me.textBox_Login.Text = Nothing Then
            Me.literal_erreur.Text = " erreur"
        Else
            If xmltext.Contains(Me.textBox_Login.Text) AndAlso xmlPassword.Contains(Me.textBox_pass.Text) Then
                'Response.Redirect("mesphotos.aspx?id=" & .ToString & "")
                Me.literal_erreur.Text = " bienvenu " & Me.textBox_Login.Text
                Me.placeHolder_menu.Visible = True
            Else
                Me.literal_erreur.Text = " Erreur de connexion "
            End If
        End If
 
 
    End Sub

La condition If est correcte mais ne m'apporte pas grand chose. J'ai ainsi voulu stocker l'id avec la première requête mais le dataSet me retourne sous forma Xml.

Ceux ci dit même si j'arrive a récupérer l'id je ne saura l'utiliser pour ma session.

Merci pour votre aide

Cdl

Benny

[benny-blanco]

J'ai trouvé comment utiliser les sessions.

Il suffisait de déclarer une nouvelle session et d'y affecter la valeur désiré.

Ensuite dans chaque page je fais le test suivant :

Code :

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

    If Session("idUser") IsNot Nothing Then ........

Mais j'ai encore un soucis.

Comme je travail avec un web Service et un DataSet, les données transmisse sont sous format Xml.

Du coup quand je fais :

Code :

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

1
2
3
 Dim listerutilisateur = myService.listerAvecRequete("SELECT idNiveau FROM utilisateur WHERE pseudo='" & _
                                                            Me.textBox_Login.Text & "' AND password='" & Me.textBox_pass.Text & "'")
        Dim xmlId As String = listerutilisateur.GetXml.ToString

XmlId me retourne l’ensemble de la ligne Xml :

Code :

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

<MonAlbum>" & vbCrLf & "  <Table>" & vbCrLf & "    <idNiveau>1</idNiveau>" & vbCrLf & "  </Table>" & vbCrLf & "</MonAlbum>"

Moi ce qui m’intéresse c'est seulement le chiffre 1 compris entre les balises <idNiveau>

Comment récupérer seulement cette valeur, car je veut l'affecté dans une session voir dans une requête.

Merci a vous.

[benny-blanco]

J'y suis presque, j'ai essayé de faire ça :

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
 
                'lister les id de l'utilsateur qui se connecte pour récupérer son ID et le passer dans la session 
                Dim listerutilisateur = myService.listerAvecRequete("SELECT idNiveau FROM utilisateur WHERE pseudo='" & _
                                                                    Me.textBox_Login.Text & "' AND password='" & Me.textBox_pass.Text & "'")
                Dim xmlId As String = listerutilisateur.GetXml.ToString
                Dim idNiveau As String = xmlId
                Select Case xmlId.Contains(idNiveau)
                    Case "1"
                        Session("idUser") = "1"
                    Case "2"
                        Session("idUser") = "2"
                    Case "3"
                        Session("idUser") = "3"
                    Case "4"
                        Session("idUser") = "4"
                    Case "5"
                        Session("idUser") = "5"
                End Select

Mais le problème est qui rentre toujours dans le cas "1" alors que je fais des teste avec une requête ou le résultat est 2.

J’espère que je vais arrêter de me parler a moi même et qu'une âme charitable pourra m'aider

Merci