Discussion :

[anissa2]

Bonjour,
je veux créer une application qui lis les informations d'un fichier Excel,
j'ai rédiger un code:



Public filepath As String = "E:\Classeur1.xls"
Public conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & filePath & "';Extended Properties=Excel 8.0;HDR=Yes;IMEX=1")

Dim req As String = "SELECT * FROM [Feuil1$]"
cmd = New OleDbCommand(req, conn)
da = New OleDbDataAdapter(cmd)
ds = New DataSet
ds.Clear()
da.Fill(ds, "de")
MsgBox(ds.Tables("de").Rows(0).Item(1))

mais ça marche pas, je ne sais pas pourquoi.
Merci de m'aider à résoudre ce problème

[infosam76]

Le code suivant fonctionne. Le problème venait de la connectionstring qui n’était pas valable (elle provoquait le message d'erreur "Pilote ISAM introuvable").

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
18
19
 
         Dim filepath As String = "d:\test.xls"
        Dim conn As OleDbConnection
 
        Try
            conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & filepath & "';Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""")
 
            conn.Open()
 
            Dim req As String = "SELECT * FROM [Janvier$]"
            Dim cmd As OleDbCommand = New OleDbCommand(req, conn)
            Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
            Dim ds As DataSet = New DataSet
            ds.Clear()
            da.Fill(ds, "de")
            MsgBox(ds.Tables("de").Rows(0).Item(1))
        Catch ex As Exception
            MsgBox("ex.message")
        End Try