Exporter des données d'un requete SQL vers excel (csv)

Version imprimable

28/09/2005, 12h39
PrinceMaster77

Exporter des données d'un requete SQL vers excel (csv)

Je voudrais savoir s'il est possible en asp d'exporter des données d'une requête SQl vers un fichier au format csv d'excel ?
28/09/2005, 12h55
pc75

Bonjour,

Auras tu besoin de faire de la mise en forme ou bien c'est uniquement un tableau excel avec les données brutes ?
28/09/2005, 13h21
PrinceMaster77

Fichier csv

Je voudrais tout de meme que mon fichier soit un peu ordonné, pour effectué des éventuels relecture.

Re,

Si ça peut te convenir ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Set Rs = CreateObject("ADODB.RecordSet")
connstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=MaBase.mdb"
 
mysql = ""
mysql = mysql & "SELECT Nom, Prenom "
mysql = mysql & "From MaTable "
 
Rs.open mySQL, connstring
if not Rs.EOF then
   chemin= "Recap.XLS"
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set Fic = fso.CreateTextFile(chemin, True)
   ' Titres des colonnes
   ' chr (34) remplace les guillements à la suite de l'instruction
   Fic.writeLine "ID;PWXL;N;E" ' Début du codage excel
   Fic.writeLine "C;Y1;X1;K" & CHR(34) & ("Nom") & CHR(34) 
   Fic.writeLine "C;Y1;X2;K" & CHR(34) & ("Prénom") & CHR(34) 
   Rs.movefirst
   Ligne = 2
   do while not Rs.eof
      Str_Nom = Rs(0)
      Str_Prenom = Rs(1)
      Fic.writeLine "C;Y" & Ligne & ";X1;K" & CHR(34) & (Str_Nom) & CHR(34) 
      Fic.writeLine "C;Y" & Ligne & ";X2;K" & CHR(34) & (Str_Prenom) & CHR(34) 
      Ligne = Ligne + 1
      Rs.MoveNext
   loop
 
   Fic.writeLine "E" ' Fin du codage excel
   Fic.Close
   Set Fic = Nothing
   Set fso = Nothing
end if
Rs.Close
Set Rs = Nothing

28/09/2005, 14h29
PrinceMaster77

Qu'est t'il possible de faire

Est ce qu'il est possible par exemple de faire des tableaux avec des contours ou plus difficile est t'il possible de réaliser des graphes avec les données exporter vers mon fichier excel ?
28/09/2005, 14h48
pc75
Re,

Pas avec le code que j'ai posté. Il te faudra utiliser une instance d'Excel.
Code:

1 2 Set Xl = Server.CreateObject("Excel.Application")
La contrainte sera alors qu'Excel soit installé sur ton serveur.
28/09/2005, 15h09
PrinceMaster77

et meme pour le gras

et je ne peux meme pas mettre des choses en gras ?
28/09/2005, 15h45
pc75

Re,

Désolé, mais avec le code que j'ai posté, tu ne peux rien faire d'autre que de remplir des cellules.
28/09/2005, 15h53
Oluha

sinon tu peux générer du code html et tu forces l'ouverture dans excel : http://www.henri-ruch.ch/ASP/Type_contenu/type_contenu.asp
08/10/2005, 22h28
LEK

Tu peux aussi trouver de nombreuses ressources sur excel et asp sur Dypso BackOffice.
Il y a un composant DypXSL qui est en téléchargement gratuit qui te permet de créer des fichiers xls à la volée sans avoir excel installé.