--- title: "SQL tabell till Excel tabell via ASP-sida" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/46118-sql-tabell-till-excel-tabell-via-asp-sida" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Addeladde" published: "2002-06-17T21:26:41.000Z" updated: "2002-06-17T22:22:27.000Z" replies: 5 views: 202 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/46118-sql-tabell-till-excel-tabell-via-asp-sida" --- # SQL tabell till Excel tabell via ASP-sida ## #1 — Addeladde, 2002-06-17T21:26Z Hej Hur gör man om man vill lägga över en MS SQL tabells rader i en excelfil och sedan få upp ett fönster om att ladda ner filen. Permalänk: https://www.webforum.nu/p/46118 ## #2 — Tobbster, 2002-06-17T21:50Z ``` <%Response.ContentType = "application/vnd.ms-excel" %> ``` Säger åt browsern att öppnaexcel sen kan du bara loopa ut dina resultat ur ett recordset ! Permalänk: https://www.webforum.nu/p/699166 ## #3 — Addeladde, 2002-06-17T21:58Z Har prövat det men det funkar inte. ``` <% Response.ContentType = "application/vnd.ms-excel" Set con = Server.CreateObject("ADODB.Connection") con.Open Application("tdcon") %> <% sqlString = "SELECT user_namn, user_efternamn, user_id FROM users " &_ " ORDER BY user_efternamn" SET RS = Con.Execute( sqlString ) WHILE NOT RS.EOF %> <% RS.MoveNext WEND RS.Close set RS = nothing Con.Close set con = nothing %>
"><%=server.HTMLEncode(RS( "user_namn" ))%> <%=server.HTMLEncode(RS( "user_efternamn" ))%>
``` Permalänk: https://www.webforum.nu/p/699173 ## #4 — Tobbster, 2002-06-17T22:09Z Det här skrev jag en gång i tiden och det funkar utmärkt... ``` <% SQL="select fornamn,efternamn,enhetkort,tfnkontor,tfnmobil,epost,namn,telefonkund,hemtelefon,eposthem,fax from Vytelexcel " SQL=SQL & session("StrSQLvilkor") Dim Conn, rs,rs_rubrik Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open connString Set rs=Conn.execute(SQL) '********************Kollar om det är något i recordsetet***************** dim antal antal=0 do while not rs.eof antal=antal+1 rs.movenext loop%> <%if antal>0 then '**********************Säger åt browsern att öppnaexcel****************** Response.ContentType = "application/vnd.ms-excel" %> <%rs.movefirst%> <%Do while not rs.eof%> <%rs.movenext loop%>
Förnamn Efternamn Enhet TelefonKontor TelefonMobil Fax Epost Region/Affärsområde TelefonKund Telefonhem EpostHem
<%=rs("fornamn")%> <%=rs("efternamn")%> <%=rs("Enhetkort")%> <%=rs("tfnkontor")%> <%=rs("tfnmobil")%> <%=rs("fax")%> <%=rs("epost")%> <%=rs("namn")%> <%=rs("telefonkund")%> <%=rs("hemtelefon")%> <%=rs("eposthem")%>
<% rs.close set rs=nothing else%>

Din filtrering gav inga träffar och går
därför inte att öppna eller spara som excelfil

<%end if%> ``` Permalänk: https://www.webforum.nu/p/699179 ## #5 — Addeladde, 2002-06-17T22:16Z Gjorde lite förändringar i koden men det fungerar fortfarande inte. Det radas bara upp i en tabell på en helt vanlig html sida. Excel ska väl öppnas eller hur går det till ``` <% Set con = Server.CreateObject("ADODB.Connection") con.Open Application("tdcon") sqlString = "SELECT user_namn, user_efternamn, user_id FROM users " &_ " ORDER BY user_efternamn" SET RS = Con.Execute( sqlString ) Response.ContentType = "application/vnd.ms-excel" %> <% WHILE NOT RS.EOF %> <% RS.MoveNext WEND RS.Close set RS = nothing Con.Close set con = nothing %>
Förnamnamn Efternamn
<%=server.HTMLEncode(RS( "user_namn" ))%> <%=server.HTMLEncode(RS( "user_efternamn" ))%>
``` Permalänk: https://www.webforum.nu/p/699182 ## #6 — Addeladde, 2002-06-17T22:22Z Laddade upp filen på servern och då fungerade det. Men det fungerade inte lokalt på IIS 5. Måste man ha någon komponent installerad eller satt någon speciell rättighet på mappen Permalänk: https://www.webforum.nu/p/699183 --- Tråden på webben: https://www.webforum.nu/amne/asp/46118-sql-tabell-till-excel-tabell-via-asp-sida