begin process at 2012 02 16 16:27:59
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Base de Donnees

 > ACCEDER AUX FEUILLES EXCEL VIA ADO

ACCEDER AUX FEUILLES EXCEL VIA ADO


 Information sur la source

Note :
9,33 / 10 - par 3 personnes
9,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Base de Donnees Source .NET ( DotNet ) Classé sous :excel, ado, datatable, dataset, oledbdataadapter Niveau :Débutant Date de création :30/01/2007 Date de mise à jour :30/01/2007 19:17:44 Vu / téléchargé :14 873 / 1 801
Auteur : perceval_59

Ecrire un message privé
Commentaire sur cette source (12)
Ajouter un commentaire et/ou une note

 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

  • 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
    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


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

30 janvier 2007 19:17:44 :
AJOUT DE LA SOURCE

 Sources du même auteur

UTILISATION DES COMPOSANTS COM (AXCOM SERIALPORT)
HEXAVIGESIMAL (BASE26)
Toutes les sources de perceval_59

 Sources de la même categorie

Source avec Zip Source avec une capture BIEN ADMINISTRER LES ETUDIANTS ET LEURS CÔTES par okosa
Source avec Zip VBA EXEL GESTION DE PERSONEL NOUVEAU CONTRAT DE TRAVAI par oudlarbi
Source avec Zip Source avec une capture CREATION D'UN OBJET D'ACCÈS AUX DONNÉES par okosa
Source avec Zip Source .NET (Dotnet) MISAHORAIRE par MdelM
Source avec Zip Source avec une capture BASEDEDONNEES,GESTIONDEMALADES,DATABASSE par shadkitenge
Toutes les sources de la catégorie Base de Donnees

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) OUVRIR BASE ACCESS PAR CLIC DROIT par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) [TUTO] GESTION DES DONNÉES VIA SQL CE par Mayzz
Source avec Zip Source .NET (Dotnet) LIRE EXCEL AVEC LE DRIVER ODBC par doumgoto_guy
Source avec Zip Source .NET (Dotnet) PROJET ADO.NET COMMENT UTILISÉ UNE DATASET TYPÉ par soukaina19
IMPORTER UNE FEUILLE EXCEL VERS UNE TABLE ACCESS EXISTANTE par pifou25

Commentaires et avis

Commentaire de romagny13 le 31/01/2007 01:49:05

Salut
merci pour cet exemple

j'aurais voulu savoir à quoi correspond Renseignements$ de ta requete ? et est ce que le signe "$" est important et doit obligatoirement par exemple etre ajouter en fin de chaine ?

select * from [Renseignements$]

sinon c'est un bon début et il doit y avoir moyen certainement de l'utiliser de manière plus poussée
as tu trouvé des ressources sur le sujet sur le web ? ou msdn ?

car c'est vrai que c'est interessant de pouvoir faire la "communication" dans les 2 sens cad de visual studio > Access ou Access > Visual Studio
mercii
++

Commentaire de romagny13 le 31/01/2007 01:53:41

oOps lapsus
de Excel> Visual Studio ou Visual Studio> Excel (je passes trop de temps sur Access je finis par le mettre partout :p)

Commentaire de perceval_59 le 01/02/2007 07:10:56

Oui le $ est important, comme la synthaxe de la chaine de connexion.
comme tout ce que je fait il y a a l'origine un exemple trouvé sur le web.

malheureusement je pense que je vais finalement devoir passer par excel.application car toujours
pas trouvé de solution a cette nom recuperation des valeurs numérique.
commence a m'habituer apres mon abandon de la classe serial port apres 2 mois d'acharnement lol.

dommage.

Commentaire de DJMCG le 18/02/2007 09:20:26

Ne va pas trop vite pour abandonner, je vais jeter un oeil sur un doc. Je te tiens au courant.
JM

Commentaire de r_gabor le 19/03/2007 21:27:55

salut,

to example est tres bien, mais si dans la feiulli excel le champ est sous une format date, alors ne recupere pas nonplus.

il recuper seulement les champ avec une format text

mais si non, est bien

Commentaire de perceval_59 le 27/03/2007 14:12:56

J'avais un peu mis de coté cette partie.
le reste aussi d'ailleurs (quand je prend des vacances je fait pas a moitiè lol)

C'est reparti je met les mains dans le camboui.

J'avou ne pas avoir fait gaffe avec une date
(mais bon ca ne m'etonne pas car a premiere vue cela vien simplement du fait que ADO n'appreci pas le melange des genres, d'apres un article que j'ai lu quelque part)

personne n'a trouvé d'info???

Commentaire de perceval_59 le 27/03/2007 14:51:07

Lol bon j'aurrais pas mis longtemps a trouver finalement:
ppour la date en fait moi ca avait l'aire de marcher mais ....

réponse donnée ici par crocro
http://msdn2.microsoft.com/fr-fr/library/ms141683.aspx

il faut juste rajouter dans la chaine de connexion:
;IMEX=1;

Commentaire de rodcobalt22 le 05/07/2007 10:14:07

Bonjour à tous moi j'ai erreur m'indiquant qu'il ne trouve pas les pilotes ISAM ?? quelqu'un pourrait m'expliquer le soucis car là je séche

Commentaire de Adn56 le 24/09/2007 13:53:33 9/10

salut, le code marche bien chez moi, avec un office97 sous XP.
Seul bug la valeur numérique ne s'affiche pas
Reste à trouver comment faire pour ouvrir un XLS de longueur inconnu !
style:
Do while TableExcel.Rows(i).Item(0)<> null ? j'essaye mais cela marche pas -__-"
En tout cas merci à toi  ^^

Commentaire de Adn56 le 23/04/2008 19:29:23

up !

Commentaire de webmor le 17/06/2008 20:40:46

Merci ton exemple  ma bien aider, puisque tes données son hétérogène vous devais le préciser au moment de l'ouverture du fichier  essai plutôt ça :
· Dim MyConnectionNMP As OleDbConnection = New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; data source=
· & FichierNMP & "; " & "Extended Properties=Excel 8.0;HDR=NO;IMEX=1")

IMEX=1: spécifie le type de données à extraire

Commentaire de perceval_59 le 18/06/2008 10:17:43

Ouep marrant de voir un post vivre au long du temps... effectivement c'est ce que j'avais rajouté a la fin de mon script de connexion ;) (le 27/03/2007 14:51:07 )

Je fouille dans mon code et essaie de me rappeler:

pour la longueur de la table a extraire..

J'ai fait un truc du style:

   TableExcel.rows.count - 1

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Probleme d'entête De table ADO.NET et EXCEL [ par ssefyou ] Bonjour,(j'utilise ADO.net pour charger une datatable a partire d' un fichier excel .)j'ai un fichier excel (qui ne contien ni image ni Titre) que j'u Connection Excel ADO & reseau [ par the_little_big_man ] bonojour encore une fois je viens consulter vos lumières. dans l'entreprise ou je suis, je suis entrain de realser 3 petite application qui se connec [Catégorie modifiée .Net --> VBA] VB et Excel uniquement : Instructions ADO [ par Lasconi ] Bonjour à tous, Autodidacte en VB sous excel, je souhaite soulager le poids mes fichiers et doper la rapidité de mes procédures en maîtrisant les inst Copier un DataTable dans Excel [ par yaya60 ] Bonjour, Je suis sur DotNet 2010, framwork 4 Je manipule régulierement des données SQL que je transferent vers Excel via une appli dotnet. Je souhait EXCEL + connexion ADO [ par userrrqi115 ] Hello à tous, Bonne et heureuse année, que 2010 soit source de bon codes mais surtout de bonnes inspirations pour vos réalisations. Voilà ce qui m'am exportre et importer des donnes de dataset vers fichier excel. [ par zozotsdimaroc ] salut tout le monde ,je sais que ce probleme exsit pq mais j trouve des codes de datagrid vers excel ,et ca fonctinne tres bien,mais pas avec datagri Données a partire d'excel vers access via ado.net [ par ssefyou ] Bonsoire,j ai un petit soucis ,je veux récuperer des données a partire d'une feuil excel puis les envoyes vers une table X vide dans une base de donné Excel, ADO et base de données AS400 : comment se connecter ? [ par alexko73 ] Bonjour, après visite de nombreux messages sur ADO et les bases AS400, je ne trouve pas comment se connecter à cette base, en VBA sous excel. J'ai tro help datatable vb.net [ par piou62 ] Bonjour, Je programmé un peu sous vb6 et on m'a conseillé de passé en vb.net qui à priori est plus simple mais je galère avec les datatable et datas VB.2005 + ADO.NET + DATASET [ par bename ] Bonjour,Je travail sur VB express 2005 et j'ai besoin d'utiliser (lire et écrire) 10 tables en même temps.Donc, vu que l'utilisation de plusieurs tabl


Nos sponsors


Sondage...

Comparez les prix


Samsung LE26B350 LCD
Entre 359€ et 417€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Beautiful woman in a bikini meditating on the beach
Photo drapeau corse 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,435 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)