Bonjour,
J'ai besoin d'importer un fichier Excel dans un datagridview. Voila le code.
Mais le datagridview s'affiche vide.............
Merci
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 Dim nomFichier As String = "C:\Users\NHaouel\Desktop\ecureuilServices\P13PRESSING_v1.0\Factures\" & numeroTextBox.Text & ".xlsx" Dim dat As DataSet dat = New DataSet 'déclaration et utilisation d'un OLeDBConnection Using Conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & nomFichier & "';Extended Properties=""Excel 12.0;""") 'HDR=Yes;IMEX=1""") Conn.Open() 'déclaration du DataAdapter 'notre requête sélectionne toute les cellule de la Feuil1 Using Adap As OleDbDataAdapter = New OleDbDataAdapter("select * from [Feuil1$]", Conn) Adap.TableMappings.Add("Table", "TestTable") 'Chargement du Dataset Adap.Fill(dat) 'On Binde les données sur le DGV DataGridView1.DataSource = dat.Tables(0) End Using 'le end using libère les ressources Conn.Close()
Partager