Etrange Comportement d'un listview.
Bonjour à toutes et à tous,
Quelqu'un pourait m'aider à comprendre le comportement bizard de mon listview, en effet j'ouvre une connexion OLEDB vers une base de données ACCESS, un code genre:
Code:
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
| Me.ListView1.Clear()
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\mabasededonnées.mdb"
Dim SQLStatement As String, Reader As OleDbDataReader
SQLStatement = "SELECT Activity,Company,Contract_Nº,CAM1,CAM2,Directory FROM Mabasededonées" '<---Le code SQL: SQLStaement"
Using COnx As New OleDbConnection(str)
Dim SQL As New OleDbCommand(SQLStatement, COnx)
Try
COnx.Open()
SQL.ExecuteNonQuery()
Reader = SQL.ExecuteReader
'--------------------------------------------
'Récupération des enregistrements de la base de données source
Dim lstvw As New ListViewItem
While Reader.Read
lstvw = New ListViewItem
lstvw.Text = Reader.Item(0).ToString
lstvw.SubItems.Add(Reader.Item(1).ToString)
lstvw.SubItems.Add(Reader.Item(2).ToString)
lstvw.SubItems.Add(Reader.Item(3).ToString)
lstvw.SubItems.Add(Reader.Item(4).ToString)
lstvw.SubItems.Add(Reader.Item(5).ToString)
Me.ListView1.Items.Add(lstvw)
End While
COnx.Close() '<------------ Ferme la connexion OLEDB
'---------------------------------------------
Catch ex As Exception '<------- Récupération des erreurs
MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
End Try
End Using |
Dans le code tout a l'air normal (Enfin à ce que je connaisses) puisqu'aucune erreur n'est renvoyée dans l'éditeur, mais vers l'éxécution de mon code c'est tout le listview qui part dans les pommes il ne comporte ni données ni colonnes, je tiens à vous informer que le code s'éxécute sous l'événement Form1_Load (Chargement de la forme); et je tiens egalement à vous remercier d'avance pour votre aide.
Bonne journée.
Karim