Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2
  1. #1
    Invité de passage
    Femme Profil pro
    Développeur .NET
    Inscrit en
    octobre 2012
    Messages
    36
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : octobre 2012
    Messages : 36
    Points : 3
    Points
    3

    Par défaut connection vb.net à un fichier Excel

    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

  2. #2
    Expert Confirmé

    Homme Profil pro Eric Metz
    Développeur informatique
    Inscrit en
    avril 2006
    Messages
    932
    Détails du profil
    Informations personnelles :
    Nom : Homme Eric Metz
    Âge : 38
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Santé

    Informations forums :
    Inscription : avril 2006
    Messages : 932
    Points : 3 199
    Points
    3 199

    Par défaut

    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 :
    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
    Articles sur les technologies .NET

    Une réponse vous a aidé ? utilisez le bouton

    Votre problème est résolu ? utilisez le bouton

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •