Scrivere dati in un foglio elettronico di excell?

[metyuston]

Ho cercato disperatamente sul forum ma non ho trovato nulla che mi possa aiutare.

Vorrei scrivere su un foglio di excell dei dati presi da un database dopo aver fatto una query da un db access.

Non ho però idea di come creare lo script nella pagina asp per scrivere i dati nel foglio elettronico.

Qualcuno mi potrebbe aiutare un pochino per favore?

Metyuston

[Roby_72]

http://www.aspitalia.com/ricerca/sup...on=1&key=excel

roby

[metyuston]

Ho provato a segui la guida, ho utilizzato questo script:



<%sql = "SELECT * FROM prodotti WHERE cancellato = true"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

for i = 0 to rs.Fields.Count-1
risultato = risultato & rs.Fields(i).Name & "</td><td>"
next
risultato = risultato & "</td></tr><tr><td>"
risultato = risultato & rs.GetString(,,"</td><td>","</td></tr><tr><td>", "-")

' chiusura
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing

' modifico header per forzare l'apertura in Excel
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename=tabella.xsl"

' scrivo a video
Response.Write ("<table><tr><td>" & risultato & "</td></tr></table>")

%>

funziona in parte, in pratica mi stampa a video il foglio di calcolo ma con una formattazione non corretta, per esempio nella colonna delle ID in alcuni campi mi mette anche i alcuni campi della colonna dei prodotti...cosa può essere?

[Enrique_Rojas]

da personalizzare naturalmente:

<% 

Dim FileName
FileName="cat.xls" 
Response.Buffer = true 
Response.ContentType = "application/vnd.ms-excel" 
Response.AddHeader "content-disposition", "inline; filename=" & FileName 
path="databse.mdb" 
Dim DBConn 
Set DBConn=Server.CreateObject("ADODB.Connection") 
Dim rs 
set rs=Server.CreateObject("ADODB.Recordset") 
strConn="Provider = Microsoft.Jet.OLEDB.4.0;" 
strConn= strConn & "Data Source =" & Server.MapPath(path) 

'apro la connessione 
DBConn.Open strConn 

pippo = Request.form("pippo")
sVariabile = Request.form("sVariabile")

'estraggo i dati 
Set rs = DBconn.Execute("SELECT NOME, COGNOME FROM tabella WHERE NOME='"& pippo &"' ORDER BY NOME ASC") 

DO while not rs.EOF 
Response.write "<table border=1>" 
Response.Write("<tr>") 
Response.Write("<th bgcolor='#FFCC99'>NOME</th><th bgcolor='#FFCC99'>COGNOME</th></tr>") 
Response.write "<tr>" 
Response.Write ("<td>") 
Response.write rs.GetString(,,"</td><td>","</td></tr><tr><td>","") 
Response.write "</td></tr></table>" 

Set rs=Nothing 
DBConn.Close 
Set DBConn= Nothing 
Response.flush 
Response.end 
rs.Close

rs.MoveNext 
loop
%>

Buona fatica

[albis]

prova così

<%sql = "SELECT * FROM prodotti WHERE cancellato = true" 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.Open sql, Application("ConnDatbaseIP") ,3,3 
risultato = "<tr>"
for i = 0 to rs.Fields.Count-1 
risultato = risultato & "<td>[b]" & rs.Fields(i).Name & "[b]</td>" 
next 
risultato = risultato & "</tr>" 

while rs.EOF = false
	risultato = risultato & "<tr>"
	for i = 0 to rs.Fields.Count-1 
	risultato = risultato & "<td>" & rs.Fields(i).Value & "</td>" 
	next 
	risultato = risultato & "</tr>"
	
	rs.MoveNext()
wend
'risultato = risultato & rs.GetString(,,"</td><td>","</td></tr><tr><td>", "-") 

' chiusura 
rs.Close 
set rs = Nothing 

set conn = Nothing 

' modifico header per forzare l'apertura in Excel 
Response.ContentType = "application/vnd.ms-excel" 
Response.AddHeader "content-disposition", "inline; filename=tabella.xsl" 

' scrivo a video 
Response.Write ("<table border = 1>" & risultato & "</table>") 

%>

[metyuston]

si così ci siamo però se volessi aggiungere ad un campo una stringa uguale per tutti i campi...per esempio

la colonna link_immagini contiene tutte le foto (solo il nome)

immagine1.gif
immagine2.gif
immagine3.gif
ecc ecc

se però volessi aggiungerci tutto il link completo, cioè:

http://www.miosito.com/immagine1.gif
http://www.miosito.com/immagine2.gif
http://www.miosito.com/immagine3.gif
ecc ecc

la parte statica che dovrei aggiungere sarebbe "http://www.miosito.com/" però non riesco a capire come posso comportarmi...
avete qualche suggerimento?