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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
| Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Public Class FilmsIncomplets
Inherits System.Windows.Forms.Form
Class ListViewItemComparer
Implements IComparer
Private col As Integer
Private sortOrder As SortOrder
Public Sub New()
col = 0
sortOrder = Windows.Forms.SortOrder.Ascending
End Sub
Public Sub New(ByVal column As Integer)
col = column
sortOrder = Windows.Forms.SortOrder.Ascending
End Sub
Public Sub New(ByVal column As Integer, ByVal s As SortOrder)
col = column
sortOrder = s
End Sub
Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
If sortOrder = Windows.Forms.SortOrder.Ascending Then
Return String.Compare(CType(x, ListViewItem).SubItems(col).Text, CType(y, ListViewItem).SubItems(col).Text)
Else
Return String.Compare(CType(y, ListViewItem).SubItems(col).Text, CType(x, ListViewItem).SubItems(col).Text)
End If
End Function
End Class
Public Function Init_ListBA()
ListView.Items.Clear()
ListView.Columns.Clear()
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
"C:\Access\DvdData.mdb")
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT RéfCollectionVidéo,TitreFilm,AnnéeSortie,PrésenceVidéo FROM Vidéo" & _
" WHERE PrésenceVidéo = False ORDER BY TitreFilm"
MyConnexion.Open()
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
ListView.View = View.Details
With ListView.Columns
.Add("N°", 45, HorizontalAlignment.Left)
.Add("Titre du film", 305, HorizontalAlignment.Left)
.Add("Année", 45, HorizontalAlignment.Left)
End With
Do While myReader.Read()
Dim _MyListViewItem As ListViewItem = ListView.Items.Add(Format(myReader.GetValue(0), "000"))
With _MyListViewItem
.SubItems.Add(myReader.GetValue(1).ToString)
.SubItems.Add(myReader.GetValue(2).ToString)
End With
Loop
myReader.Close()
MyConnexion.Close()
Return Nothing
End Function
Public Function Init_ListeMusique()
ListView.Items.Clear()
ListView.Columns.Clear()
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
"C:\Access\DvdData.mdb")
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT RéfCollectionVidéo,TitreFilm,Musique,PrésenceMusiqueFilm FROM Vidéo" & _
" WHERE PrésenceMusiqueFilm = False ORDER BY TitreFilm"
MyConnexion.Open()
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
ListView.View = View.Details
With ListView.Columns
.Add("N°", 45, HorizontalAlignment.Left)
.Add("Titre du film", 250, HorizontalAlignment.Left)
.Add("Compositeur", 100, HorizontalAlignment.Left)
End With
Do While myReader.Read()
Dim _MyListViewItem As ListViewItem = ListView.Items.Add(Format(myReader.GetValue(0), "000"))
With _MyListViewItem
.SubItems.Add(myReader.GetValue(1).ToString)
.SubItems.Add(myReader.GetValue(2).ToString)
End With
Loop
myReader.Close()
MyConnexion.Close()
Return Nothing
End Function
Private Sub FilmsIncomplets_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Init_ListBA()
End Sub
Private Sub RadioButtonBA_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButtonBA.CheckedChanged
Init_ListBA()
End Sub
Private Sub RadioButtonMusique_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButtonMusique.CheckedChanged
Init_ListeMusique()
End Sub
Private Sub ListView_ColumnClick(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView.ColumnClick
If Me.ListView.Sorting = SortOrder.Ascending Then
Me.ListView.Sorting = SortOrder.Descending
Else
Me.ListView.Sorting = SortOrder.Ascending
End If
Me.ListView.ListViewItemSorter = New ListViewItemComparer(e.Column, Me.ListView.Sorting)
End Sub
End Class |
