begin process at 2012 05 27 23:50:22
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

ASP.NET

 > 

Scripting

 > 

VBScript

 > 

exporter des donnees d une dataview vers excel

Derniers messages déposésPoser une question dans le forum ou lancer une discussion

exporter des donnees d une dataview vers excel

lundi 8 janvier 2007 à 18:20:45 | exporter des donnees d une dataview vers excel

OracleSun
Bonjour tout le monde,
Merci de me dire comment je peux faire un export des donnees d'une dataview vers un fichier excel.
j ai trouvé un code qui permet l export d'une datagrid vers excel mais je n arrive pas a l adapter pour le dataview voici le code

Private

Sub verifColonne(ByVal monDataGrid As Control)

' On r,cup¦re le nombre de controles enfants composant le DataGrid

Dim nbControls AsInteger = monDataGrid.Controls.Count - 1

While nbControls >= 0

verifColonne(monDataGrid.Controls(nbControls))

nbControls = nbControls - 1

EndWhile

 

' Si la cellule ne contient pas du texte simple

IfNot (TypeOf monDataGrid Is TableCell) Then

' Si le controle concern, . une prorpi,t, "Selected Item" alors...

' Remarque : Seul les controles offrant des choix multiples ont une propri,t, "SelectedItem"

IfNot (monDataGrid.GetType().GetProperty("SelectedItem") IsNothing) Then

Dim controleLitteral1 As LiteralControl = New LiteralControl

monDataGrid.Parent.Controls.Add(controleLitteral1)

Try

' La cellule prend alors pour valeur le texte correspondant . la propri,t, "SelectedItem"

controleLitteral1.Text = _

CType(monDataGrid.GetType().GetProperty("SelectedItem").GetValue(monDataGrid, Nothing), String)

Catch monException As Exception

' On r,cup¦re l'exception en cas de probl¦me

Response.Write(monException.Message)

EndTry

' Le controle concern, est retir,

monDataGrid.Parent.Controls.Remove(monDataGrid)

 

Else

' Si le controle concern, n'a pas de propri,t, "SelectedItem" alors on r,cup¦re le

' texte (s'il y en a un) de sa propri,t, "Text"

IfNot (monDataGrid.GetType().GetProperty("Text") IsNothing) Then

Dim controleLitteral2 As LiteralControl = New LiteralControl

monDataGrid.Parent.Controls.Add(controleLitteral2)

' On attribue le texte de la propri,t, "Text" . la cellule concern,e

controleLitteral2.Text = _

CType(monDataGrid.GetType().GetProperty("Text").GetValue(monDataGrid, Nothing), String)

monDataGrid.Parent.Controls.Remove(monDataGrid)

EndIf

 

EndIf

EndIf

EndSub

ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button1.Click

' On appelle de verifColonne avec le nom du DataGrid concern, en param¦tre

verifColonne(monDG)

' On efface les ,ventuelles donn,es d,j. dans la m,moire tampon

Response.Clear()

' On place tout ce qui est destin, au client dans la m,moire tampon

Response.Buffer =

True

' On d,finit le type d'informations renvoy,e, ici des donn,es au format Excel

Response.ContentType =

"application/vnd.ms-excel"

' On efface le jeux de caract¦res actuellement d,fini

Response.Charset =

""

' On instancie deux objets qui vont nous permettre de r,cup,rer les donn,es du DataGrid :

' le StringWriter et l'HtmlTextWriter

Dim monStringWriter As IO.StringWriter = New IO.StringWriter

Dim monHtmlTextWriter As HtmlTextWriter = New HtmlTextWriter(monStringWriter)

' On extrait le contenu du DataGrid dans l'HtmlTextWriter

monDG.RenderControl(monHtmlTextWriter)

' On copie le contenu extrait dans la m,moire tampon

Response.Write(monStringWriter.ToString())

' On ferme "le flux" de donn,es et envoi les donn,es au client

Response.End()

 

 

EndSub
mardi 9 janvier 2007 à 20:28:39 | Re : exporter des donnees d une dataview vers excel

jesusonline

Membre Club Administrateur CodeS-SourceS
Bonsoir,

le moyen le plus simple est le plus propre est de faire un fichier .csv à partir de ton dataview ce qui est beaucoup plus propre que de générer du html pour excel ...

Cyril - MVS - MCP


Cette discussion est classée dans : text, excel, controls, mondatagrid, nbcontrols

Répondre à ce message

Sujets en rapport avec ce message

Gestion du click dans un objet client d'un WebCustomControl ? Marche pas ! [ par smoitry ] Suite au post de fcampagne, je fais un nouveau post car mon problème est apparemment un peu différent du sien ...En fait, je veux créer un contrôle we Comment vider un placeholder [ par malexandra ] Bonjour,J'ai un placeholder dans lequel il y a plusieurs textbox et label.Je souhaite "vider" ce placeholder pour ensuite le compléter avec de nouvell Asp Excel [ par paulogalego ] Bonjour, j'écris dans plusieurs feuille d'un classeur excel via de l'asp. Cela fonctionne bien avec serveur et office en français. Mais pas du tout su excel et asp [ par matmojito ] Bonjour à tous !!!!J'ai un petit pbJ'arrive à récupérer les infos d'un fichier excel et les afficher dans une page asp.J'ai changé le répertoire où se URGENT EXCEL ET ASP [ par Belt ] Salut à tous,j'ai un problème qui me prend la tête depuis plusieurs jours :je voudrais ouvrir excel sur le poste client grâce au type MIME Excel et cr fermeture d'excel [ par kaskran ] salut,dans un epage asp.net je dois utiliser excel: pour l'ouverture et l'utilisation du fichier pas de probleme. Par contre quelle que soit la comman enregistrer un doc excel sur le serveur [ par audrey_ ] Bonjour à tous,j'ouvre un document excel et je l'enregistre : var xlapp = Server.Createobject("Excel.Application")xlapp.Application.Visible = falsexla Construction dynamique de requête sql (VB.Net) [ par Suffren ] Bonjour, Je souhaite réaliser la mise à jour d'une base Access via un formulaire et une fonction générique qui utilise une requête créée dynamiquemen Pb d'export de graphique Excel sous Office XP [ par tataye ] Bonjour,J'ai un problème de conversion de graphique excel en image au format GIF.Ma méthode fonctionne sous Office 2000 mais pas sous office XP sur un créer une feuille excel [ par didi_jappont ] je souhaite créer une feuille excel avec 1 onglet appelé "Tab1" qui comprend un tableau.Et un deuxième onglet avec un autre tableau contenant des bord


Nos sponsors


Sondage...

Comparez les prix


Archos Tablette PC ARNOVA ARNOVA 10 4GB
Entre 200€ et 210€

Visiter le guide achat

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Green Energy Solutions With Light Bulb Morphed Into Landscape
Photo Crique turquoise - Lavezzi 

Visiter la photothèque

A découvrir
 
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 : 0,406 sec (3)

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)