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