Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim Conn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & TParcourir.Text & "';Extended Properties=""Excel 12.0 xml; HDR=Yes"";")
Conn.Open()
Dim DTT As New System.Data.DataTable
Dim cmd As New OleDbCommand("select * from [FICHNREG$]", Conn)
Dim dr As OleDbDataReader = cmd.ExecuteReader
DTT.Load(dr)
DGV.DataSource = DTT
'Conn est la connexion vers excel 'Conn2 est la connexion vers la base de données Dim DTT As New System.Data.DataTable() Dim cmd As New OleDbCommand("select * from [FICHNREG$]", Conn) Dim dr As OleDbDataReader = cmd.ExecuteReader() DTT.Load(dr) Dim dt2 As New DataTable() For Each r As DataRow In DTT.Rows Dim SDA1 As New SqlDataAdapter("SELECT Num_Salarié,Nom_Salarié from employes Where Ref_Art='" & r.Field(Of String)("Nom") & "'", Conn2) 'pour le nom du Field j'ai psupposé que ta colonne Excel s'appelle Nom SDA1.Fill(dt2) Next r dataGridView1.DataSource = dt2