1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Dim cnx As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\Classeur1.xls;Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";")
Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM [Feuil1$A1:E3]")
cmd.Connection = cnx
cnx.Open()
Dim reader As OleDbDataReader = cmd.ExecuteReader()
If (reader.HasRows) Then
While (reader.Read())
' Ici, tu récupères tes valeurs...
' Par exemple
Console.WriteLine(reader.GetValue(1).ToString() & " " & reader.GetValue(1).ToString())
End While
End If
reader.Close()
cnx.Close() |
Partager