Discussion :

[thechris33]

bonjour à tous

j'arrive à remplir ma listview mais pas a récupérer ses items

je voudrais récuperer l'item selectionné par la souris dans une listview mais comme je connais mal cette "form" je sais pas comment m'y prendre

voici mon code pour remplir ma listView ( ca fonctionne bien )
Merci d'avance pour votre aide


Public Sub RequeteSQL(ByVal Str_CritereRequeteSql As String)
Dim i As Integer 'Compteur de boucles pour le EnsureVisible du ListView
Dim str_NomTableAccess As String 'recupere le nom de la Table de la base Acces à utiliser pour la requete SQL
Dim str_NomColonneTableAccess As String 'recupere le nom de la colonne de la table de la base Access

'Declaration de la connexion a une Base OleDb (Access)
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=D:\Donnees\Visual Studio Projects\Projet - Audit Licence Logiciels\A2L - Audit Licence Logiciels\db1.mdb")
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()


'Choix de la Base de données à utiliser
If RadioButton1.Checked = True Then

str_NomTableAccess = "PACKAGE_WININSTALL"
str_NomColonneTableAccess = "NOMPACKAGE"
Else

str_NomTableAccess = "LOGICIEL_AUTRE"
str_NomColonneTableAccess = "NOMLOGAUTRE"
End If


'Requete SQL
'Mycommand.CommandText = "SELECT DISTINCT " & str_NomTableAccess & "." & str_NomColonneTableAccess & " FROM " & str_NomTableAccess & " ORDER BY " & str_NomTableAccess & "." & str_NomColonneTableAccess & ";"
'Mycommand.CommandText = "SELECT DISTINCT " & str_NomTableAccess & "." & str_NomColonneTableAccess & " FROM " & str_NomTableAccess & " WHERE " & str_NomTableAccess & "." & str_NomColonneTableAccess & " LIKE 'Arc406' ORDER BY " & str_NomTableAccess & "." & str_NomColonneTableAccess & ";"
Mycommand.CommandText = "SELECT DISTINCT " & str_NomTableAccess & "." & str_NomColonneTableAccess & " FROM " & str_NomTableAccess & " WHERE " & str_NomTableAccess & "." & str_NomColonneTableAccess & " LIKE '%" & Str_CritereRequeteSql & "%' ORDER BY " & str_NomTableAccess & "." & str_NomColonneTableAccess & ";"

'SELECT DISTINCT LOGICIEL_AUTRE.NOMLOGAUTRE
'FROM LOGICIEL_AUTRE
'WHERE (((LOGICIEL_AUTRE.NOMLOGAUTRE) Like "**"))
'ORDER BY LOGICIEL_AUTRE.NOMLOGAUTRE;

'Ouverture de la Base OleDb & execution de la requete
MyConnexion.Open()

'Déclaration d'un "Reader" pour pouvoir lire le resultat de la requete SQL
'Ne peut etre fait qu'apres l'ouverture de la Base
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()

'initialisation du compteur de boucle
i = -1

'Vide la listView
ListView1.Items.Clear()

'initaialise la couleur en Noir
ListView1.ForeColor = Drawing.Color.Black

'Boucle de lecture du resultat de la Requete SQL + ecriture de ce resultat dans la ListView
Do While myReader.Read()

'incrémentation du compteur de + 1
i += 1

'Création d'une instance de listView
Dim LVI As New ListViewItem

'Remplir la ListView
ListView1.Items.Add(myReader.GetString(0))
'faire descendre la listView à mesure qu'elle se remplie
ListView1.EnsureVisible(i)

'Forcer le rafraichissement de la fenetre
Application.DoEvents()

Loop

'fermeture de la connexion à la Base
myReader.Close()
MyConnexion.Close()

End Sub

[thechris33]

Petite précision

comme je sais pas trop comment faire pour récupérer mon item, j'essai avec
ListView1.SelectedItems

avec ce code :

Dim str_ChoixduLogiciel As String

str_ChoixduLogiciel = Me.ListView1.SelectedItems.ToString

MsgBox(str_ChoixduLogiciel)


mais ce que je récupere c'est pas mon item, mais ceci :

"System.Windows.Forms.ListView+SelectedListViewItemCollection"

[andlio]

Petite précision

Dim str_ChoixduLogiciel As String

str_ChoixduLogiciel = Me.ListView1.SelectedItems.ToString

MsgBox(str_ChoixduLogiciel)

Me.ListView1.SelectedItems renvoie une collection d'items. Ca marche un peu comme un tableau. Il renvoit tous les items sélectionnés.

Essais Me.ListView1.SelectedItems.item(0). Il devrait te renvoyer le premier élément sélectionné (ou le seul si tu en as sélectionné qu'un seul...) :

Code :

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

1
2
3
4
5
Dim str_ChoixduLogiciel As String
 
str_ChoixduLogiciel = Me.ListView1.SelectedItems.item(0).text
 
MsgBox(str_ChoixduLogiciel)

[thechris33]

Excellent !

merci andlio, c'est tout à fait ce que je cherchais