Insertion fichier Excel dans ListView SubItems et Items

[Résolu]
Signaler
Messages postés
26
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
29 octobre 2008
-
Messages postés
26
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
29 octobre 2008
-
Bonjour a tous,



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
 




J’essai d’insérer le contenue d’un fichier excel sur un ListView, mais un petit blém est apparue.



 




Le contenue des trois colonnes du fichier excel est inséré dans la première colonne de la ListView !



 






 


Voici le code ;



 






 
Dim
MyConnection As System.Data.OleDb.OleDbConnection







        MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath + "\Liste.xls;Extended Properties=Excel 8.0;")






 







       
Dim MyCommand As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter _






            ("select * from [Feuille1$]", MyConnection)






 







       
Dim DS As System.Data.DataSet = New System.Data.DataSet






 







        MyCommand.Fill(DS)






 







       
Dim TableExcel As DataTable






 







        TableExcel = DS.Tables(0)






 







       
With ListView1






            .View = View.Details                                           






            .CheckBoxes = False                                             






            .GridLines = True                                              






            .Columns.Add(TableExcel.Columns(0).ToString, 40, HorizontalAlignment.Left)






            .Columns.Add(TableExcel.Columns(1).ToString, 90, HorizontalAlignment.Left)






            .Columns.Add(TableExcel.Columns(2).ToString, 110, HorizontalAlignment.Left)    






             
End
With







       
Dim lvi As ListViewItem






 







       
For i AsInteger = 1 To TableExcel.Rows.Count - 1






            ListView1.Items.Add(TableExcel.Rows(i).Item(0).ToString & " - " & TableExcel.Rows(i).Item(1).ToString & " - " & TableExcel.Rows(i).Item(2).ToString)






           










       

Next






 






        MyConnection.Close()



 





 




Comment utiliser les SubItems que je puis les insérer a la fin dans Items ?



 




Merci d’avance



 







naim1970

1 réponse

Messages postés
26
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
29 octobre 2008

c'est fais
merci

naim1970