sql =exel via asp Résolu

Question

Bonjour,
j'ai réalisé des pages web en ASP, depuis ces pages, je récupere des données dans une BDD microsoft SQL serveur 2005.
Je voudrais savoir si il etait possible de générer via mes pages ASP un fichier exel qui contiendrait le résultats de ma requete sur la BDD, et si oui, comment faire?

batoune · Answer

Bon, suite a diverse recherche j'ai trouver quelque chose qui consiste a ecrire du html et a le transformer en xls a la fin, mais malger tout mes effort j'ai toujours une erreur :

Erreur d'exécution Microsoft VBScript error '800a01a8'

Objet requis: 'System'

/Sauvegarde.asp, line 50

mon code est le suivant :

<%@ LANGUAGE="VBScript" %>
<%
Dim serverAdresse	 'adresse du serveur
Dim user	'utilisateur
Dim password	'mot de passe
Dim nomBase 	'nom de la base a utiliser
Dim Maconnexion
Dim conn
Dim nbcol
Dim Temp 'une chaine de caractere

%>

<%
'On ce connecte a la base de donnees
'Parametre de connection a la base			
serverAdresse = "blabla\blibli"      'adresse du serveur
user = "leLogin"		 'utilisateur
password = "lePassword"	  'mot de passe
nomBase = "resultats"	 'nom de la base a utiliser

'Ouverture de la connection
Set Maconnexion = Server.CreateObject("ADODB.Connection")
conn = "driver={SQL Server};server="& serverAdresse &";db=" & nomBase & ";user id=" & user & ";pwd=" & password ' & ";option=16386"
Maconnexion.open conn

set nbcol = server.CreateObject("ADODB.Recordset")'on crer l'objet recordset
nbcol.open "SELECT nomTest,etat,plageHoraire FROM resultats_tests WHERE CAST(FLOOR(CAST(laDate AS FLOAT)) AS DATETIME) = '20090519' AND environnement = 'Maison'", Maconnexion, 3, 3, 1 nbcol.movefirst'on ce place sur le 1ere enregistrement du recordset
Temp = Temp &"<TABLE BORDER=1><TR>"
Temp = Temp &"<TD><B>Fonction</B></TD>"
Temp = Temp &"<TD><B>Etat</B></TD>"
Temp = Temp &"<TD><B>Plage Horaire</B></TD>"
Temp = Temp &"</TR>"
DO while Not nbcol.EOF 'tant que on est pas a la fin des enregistrements
	Temp = Temp &"<TR>"
	Temp = Temp &"<TD>" & nbcol("NomTest") & "</TD>"
	Temp = Temp &"<TD>" & nbcol("etat") & "</TD>"
	Temp = Temp &"<TD>" & nbcol("plageHoraire") & "</TD>"
	Temp = Temp &"</TR>"
	nbcol.movenext	'on pas a l'enregistrement suivant
LOOP	'fin de la boucle
	nbcol.Close	'on referme l'objet recordset
Set nbcol=Nothing	'on le met a rien pour liberer de la memoire
Maconnexion.Close			'Déconnexion de SQL une fois tout les résultats affiché
Set Maconnexion = Nothing 	'Affectation a rien de l'objet Maconnexion 
Temp = Temp &"</TABLE>"
HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.Default
HttpContext.Current.Response.ContentType = "application/vnd.ms-excel"
HttpContext.Current.Response.Write(Temp)
%>

l'erreur est sur la ligne "HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.Default"

Voila, j'espere que quelqu'un pourra m'aider
merci d'avance

Fonction	Etat	Plage Horaire
" & nbcol("NomTest") & "	" & nbcol("etat") & "	" & nbcol("plageHoraire") & "

" HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.Default HttpContext.Current.Response.ContentType = "application/vnd.ms-excel" HttpContext.Current.Response.Write(Temp) %> l'erreur est sur la ligne "HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.Default" Voila, j'espere que quelqu'un pourra m'aider merci d'avance

batoune · Answer

Bon une fois encore j'ai trouver ma reponse tout seul, Alors vu que sa ma bien souler tout sa, je la met ici des fois que sa interresserais quelqu'un : Dans une premiere page .asp, je fais : en premiere ligne : <%@ LANGUAGE="VBScript" %> déclaration des variables : <% Dim serverAdresse 'adresse du serveur Dim user 'utilisateur Dim password 'mot de passe Dim nomBase 'nom de la base a utiliser Dim Maconnexion 'objet connexion Dim conn Dim nbcol un recordset %> entete de page html : nomdemapage On ce connecte a la base de données et on fait notre requete sql: <% 'Parametre de connection a la base serverAdresse = "blabla" 'adresse du serveur user = "user" 'utilisateur password = "password" 'mot de passe nomBase = "maBase" 'nom de la base a utiliser 'Ouverture de la connection Set Maconnexion = Server.CreateObject("ADODB.Connection") conn = "driver={SQL Server};server="& serverAdresse &";db=" & nomBase & ";user id=" & user & ";pwd=" & password Maconnexion.open conn 'requete sql set nbcol = server.CreateObject("ADODB.Recordset")'on crer l'objet recordset nbcol.open "SELECT nom,prenom,lieu FROM maTable WHERE nom = 'Martin' AND lieu = 'bureau' ORDER BY nom, prenom", Maconnexion, 3, 3, 1 'on execute la requete sql On creer un tableau html dans la variable Temp a partir des lignes de la requete (le recordset): nbcol.movefirst'on ce place sur le 1ere enregistrement du recordset Temp = Temp &"" Temp = Temp &"" Temp = Temp &"" Temp = Temp &"" Temp = Temp &"" DO while Not nbcol.EOF 'tant que on est pas a la fin des enregistrements Temp = Temp &"" Temp = Temp &"" Temp = Temp &"" Temp = Temp &"" Temp = Temp &"" nbcol.movenext 'on pas a l'enregistrement suivant LOOP 'fin de la boucle nbcol.Close 'on referme l'objet recordset Set nbcol=Nothing 'on le met a rien pour liberer de la memoire Temp = Temp &"

Fonction	Etat	Plage Horaire
" & nbcol("nom") & "	" & nbcol("prenom") & "	" & nbcol("lieu") & "

" On crer un formulaire avec un bouton qui appel une autre page (ici excel.asp) et un champ cacher avec la variable Temp comme valeur : response.write ("") on termine notre premiere page en refermant les balise encore ouverte: %> Ensuite dans la page excel.asp, j'ai juste 2 lignes : <% Response.ContentType = "application/vnd.ms-excel" %> 'pour dire a IE que je renvoie un fichier excel et pas une page web <% response.write (Request.Form("tempp"))%> 'on "affiche" juste le contenu de la variable Temp qui contient en fait le tableau html créer a la page precedente Et voila, si excel est instaler sur votre PC client, IE vous proposera d'ouvrir ou de sauvegarder un fichier excel.xsl Voila.... bonne chance a tous....

Sql =>exel via asp

2 réponses

Discussions similaires

Newsletters