Selection dans une ListView : récupérer les données d'une cellule

Haha j'ai trouvé tout seul comme un grand une fois de plus. Allez je poste la réponse, au cas où un autre pauvre hère aurait le même souci que moi :)

Sur l'évènemement "Clik" de la listview =>

Code:

1
2
3
4
5
6
7
8
9
10
11
    Private Sub liste_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles liste.Click
        Dim lvTemp As ListView
        Dim lviTemp As New ListViewItem
        Dim strRefCieemg As String
 
        lvTemp = sender
        lviTemp = lvTemp.FocusedItem
        zs_modif_cieemg.Text = lviTemp.Text
        strRefCieemg = lviTemp.Text
        AfficherContenu(strRef)
    End Sub

Code de la procédure AfficherContenu

Code:

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
 
    Public Sub AfficherContenu(ByVal strRef As String)
        Dim oconBase As OracleClient.OracleConnection
        Dim ocomCommand As OracleClient.OracleCommand
        Dim strConnexionSQL As String
        Dim strRequete As String
        Dim rs As System.Data.OracleClient.OracleDataReader
 
        strConnexionSQL = CONNECTION_STRING_IFS_DATABASE
        oconBase = New OracleClient.OracleConnection(strConnexionSQL)
        strRequete = "SELECT COMM.REF_DEMANDE,"
        strRequete = strRequete & " CLIENT.NOM_CLIENT,"
        strRequete = strRequete & " FROM CLIENT, COMM"
strRequete = strRequete & " WHERE(COMM.REF_DEMANDE = '" & strRef & "')"
        strRequete = strRequete & " ORDER BY CLIENT.NOM_CLIENT"
        ocomCommand = New OracleClient.OracleCommand(strRequete, oconBase)
        ocomCommand.Connection.Open()
        Try
            rs = ocomCommand.ExecuteReader
        Catch ex As OracleClient.OracleException
            Console.WriteLine(ex.Message)
            MsgBox("Une erreur est survenue lors du chargement de la liste")
        End Try
 
        If rs.Read() = True Then
            frm_principale.zs_comm.Text = rs.GetValue(0)
            frm_principale.cb_nom.Text = rs.GetValue(1)
        End If
            ocomCommand.Connection.Close()
    End Sub