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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
|
Dim objDS As DataSet
Dim objDA As SqlDataAdapter
Dim StrSQLThesaurus1 as String
Dim lvi As ListViewItem
Dim ligne_table_termes_objDS As DataRow
Dim strConnString as String
Dim objConn as SqlConnection
strConnString = "Initial Catalog =THESAURUS_BTS_IG2;Integrated security = SSPI"
objConn = New SqlConnection(strConnString)
objDS = Nothing
StrSQLThesaurus1 = "SELECT ID_TERME,LIB_TERME from TERMES;"
objConn.Open()
'on ajoute la table THESAURUS_objDS au data adapter objDA
objDA = New SqlDataAdapter(StrSQLThesaurus1, objConn)
objDS = New DataSet
objDA.Fill(objDS, "THESAURUS_objDS")
objConn.Close()
'la classe ListView possède une collection appelée Items .
'Grace à une boucle FOR EACH on ajoute à la collection Items de List_view_termes un nouveau listviewitem dont la propriété text est le contenu du champ LIB_TERME ( en fait de la ligne 'ligne_table_termes_objDS' de la table THESAURUS_objDS sur laquelle on pointe
For Each ligne_table_termes_objDS In objDS.Tables("THESAURUS_objDS").Rows
lvi = List_view_termes.Items.Add(Convert.ToString(ligne_table_termes_objDS("LIB_TERME")))
With lvi
.ForeColor() = Color.Indigo
'.Tag = CType(ligne_table_thesaurus_objDS2("ID_THES"), Integer)
.Tag = ligne_table_termes_objDS("ID_TERME")
.Font = New Font("Helvetica", 10)
End With
Next
'L'instruction ci-dessus fait deux choses:
'1-elle ajoute à la collection Items de la classe List_view_termes un nouveau listviewitem dont la propriété text est le contenu du champ LIB_TERME de l'enregistrement (apellée'ligne_table_thesaurus_objDS)de la table THESAURUS_objDS sur laquelle on pointe (en cours)
'2- elle affecte à la variable lvi de type structuré 'listview item' l'ADRESSE du listviewitem que l'on vient d'ajouter à la collection Items
Next |
Partager