Bonjour,

Alors voila, je travail avec ASP.NET / VB.NET, et je souhaite récupérer l'adresse URL d'une page dans une variable en VB.NET.

Je vous montre mon code, et donc j'aimerai récupéré automatiquement l'Url de la page que je visite dans la variable "AdressePage"

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
32
Dim AdressePage As String = "http://www.monDomaine.fr/Accueil.aspx"
 
        Try
            'Ouverture de la connexion'
            access_connexion()
 
            'Instancier un objet Command'
            Obj_Command = New OleDbCommand()
 
            'Initialiser l objet Command'
            Obj_Command.Connection() = laConnection
            Obj_Command.CommandText = "SELECT ID FROM VISITE WHERE ID=@adresse"
            Obj_Command.Parameters.Add("@adresse", OleDbType.VarChar, 100).Value = AdressePage
            Obj_Reader = Obj_Command.ExecuteReader()
 
            If Obj_Reader.Read() Then
                Obj_Reader.Close()
 
                Obj_Command.CommandText = "UPDATE VISITE SET NBR_V = NBR_V + 1 WHERE ID=@adresse"
                Obj_Command.ExecuteNonQuery()
            Else
                Obj_Reader.Close()
 
                Obj_Command.CommandText = "INSERT INTO VISITE (ID, NBR_V) VALUES (@adresse, 1)"
                Obj_Command.ExecuteNonQuery()
            End If
 
            access_deconnexion()
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
Merci