Public Class Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.OpenFileDialog1.FileName = Nothing
If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.TextBox1.Text = Me.OpenFileDialog1.FileName
End If
Try
Dim Myconnection As System.Data.OleDb.OleDbConnection
Dim dataSet As System.Data.DataSet
Dim Mycommand As System.Data.OleDb.OleDbDataAdapter
Dim path As String = OpenFileDialog1.FileName
Myconnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=" + path + ";Extended Properties=Excel 12.0")
Mycommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Feuil1$]", Myconnection)
dataSet = New System.Data.DataSet
Mycommand.Fill(dataSet)
DataGridView1.DataSource = dataSet.Tables(0)
Myconnection.Close()
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
End class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiondataset.Tables(0).Rows(1).Item(2) = 27'assignation Dim texte As String = dataset.Tables(0).Rows(2).Item(0).ToString() 'lecture