Discussion :

[DashRendar]

Bonjour les gens
Je sens que je vais encore devoir me d�merder tout seul, mais je poste quand m�me, on sait jamais

Bon, je vous explique rapidement : J'ai une listview, aliment�e par une requ�te, et je voudrais, lorsque je clique sur une ligne de ce ListView, que les informations contenues dans (par exemple) la colonne 1 aillent dans une zone de texte.

Comme une image vaut 1000 mots, zieutez �a :



Voil� je pense que c'est clair ^_^

Si vous pouviez me donner un ptit coup de pouce, histoire de me faire gagner un peu de temps, �a serait sympa Merci !

[DashRendar]

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 :

S�lectionner tout - Visualiser dans une fen�tre � part

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 :

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
 
    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