Acceder aux feuilles excel via ado

Télécharger le projet
Commenter

Description

J'ai un classeur excel possedant une feuille: Renseignements

cette feuille contient 2 colonnes et 41 lignes

afin de recuperer les données sur cette feuille j'utilise l'acces au données via ADO
je met HDR a no car il n'y a pas d'entete
et je boucle avec i car nombre de ligne constant

(le msgbox est juste la pour le test)

le probleme est que les valeurs numeriques ne sont pas recuperées... (seulement si en format string)

le reste marche bien ca peu servir

Source / Exemple : 


Public Sub ChargerNMP(ByVal FichierNMP As String)
        'variables de connexion
        Dim MyConnectionNMP As OleDbConnection = New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; " & "data source=" _
                & FichierNMP & "; " & "Extended Properties=""Excel 8.0;HDR=NO;""")

        Dim MyCommand As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter _
                ("select * from [Renseignements$]", MyConnectionNMP)

        Dim DS As System.Data.DataSet = New System.Data.DataSet

        MyCommand.Fill(DS)

        Dim TableExcel As DataTable

        TableExcel = DS.Tables(0)
        Dim msg As String = ""

        For i As Integer = 0 To 40
            msg = msg & TableExcel.Rows(i).Item(0).ToString & "  ---  " & TableExcel.Rows(i).Item(1).ToString & vbCrLf
        Next
        MsgBox(msg)
        MyConnectionNMP.Close()
    End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (perceval_59)