Nome colonne in esportazione excel.

[ubbicom]

Ciao a tutti.

Per esportare in f.to Excel XLS dei dati contenuti in un db mysql tramite ASP utilizzo il classico:

    FileName="Report.xls" 
    Response.Buffer = true
    Response.ContentType = "application/vnd.ms-excel" 
    Response.AddHeader "content-disposition", "inline; filename=" & FileName

E poi con una query mi estraggo i dati che mi interessano.

Il mio problema è che nella pagina ASP che esegue l'esportazione in excel devo inserire manualmente tutti i nomi della colonna che poi si popolano con i valori del db nelle righe del foglio excel.

Esiste una maniera per far scrivere nelle intestazioni delle colonne il nome del campo corrispondente nel db mysql?

Mi sono spiegato?
Grazie

[ubbicom]

up

[optime]

non ho capito. fa' un esempio. posta un po' di codice.

[ubbicom]

Grazie per l'attenzione.

Allora questo è il codice ASP che esporta i dati in excel:

    
    SQL = "SELECT * FROM "
    SQL = SQL & " tbl_1 "
    Set rs = cn.Execute(SQL)
	
    FileName="Esportazione.xls" 
    Response.Buffer = true
    Response.ContentType = "application/vnd.ms-excel" 
    Response.AddHeader "content-disposition", "inline; filename=" & FileName 

    //INTESTAZIONI COLONNE
    Response.write "<table border=1>" &_
                 "<tr>" &_
                 "<th bgcolor='#FF9900'>Data</th>" &_
                 "<th bgcolor='#FF9900'>Ora</th>" &_
                 "<th bgcolor='#FF9900'>Zona</th>" &_
                 ....
                     "</tr>" &_
                 "<tr>" &_
                 "<td>"

    Response.write rs.GetString(,,"</td><td>","</td></tr><tr><td>","") 
    Response.write ("</td></tr></table></center>") 


    Set rs = Nothing

    cn.Close() 
    Set cn = Nothing

Come puoi vedere le intestazioni delle colonne devo inserirle tutte a manetta (Data, Ora, Zona,... ).

La domanda è se posso evitare questo inserimento a mano delle intestazioni delle colonne e prendere il nome della colonna direttamente dal nome colonna della tabella del db, in quanto è una tabella con circa 150 campi...

[optime]

rs(n).name ti dà il nome del campo

[ubbicom]

Originariamente inviato da optime
rs(n).name ti dà il nome del campo

Ho capito, grazie... ma quindi dovrò scrivere ? :

rs(0).name
rs(1).name
...
rs(150).name

[optime]

ubbi, e su, un ciclo for...next, no?

[ubbicom]

Originariamente inviato da optime
ubbi, e su, un ciclo for...next, no?

Ok, provo così:

    For i=0 to ....
        rs(i).name
    next

Dopo il "to" cosa devo prevedere ?

[optime]

rs.fields.count -1

[ubbicom]

Grazie, ma:


Microsoft VBScript runtime error '800a01c2'
Wrong number of arguments or invalid property assignment: 'name'

    For i=0 to rs.fields.count -1
        rs(i).name
    next