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:
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Bonne journée.
Karim
Partager