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
Partager