Dall'archivio script > Classic ASP

Convertire i dati da Access ad Excel

di Daniele BochicchioDaniele Bochicchio, in Classic ASP, Database, Misc,

Può essere utile, in molti casi, convertire i dati in un formato gradito ad Excel.

Questo script genera un file .csv (comma separated values, valori separati da virgola), facilmente leggibile una volta salvato sul client ed aperto con Excel.

<%

Response.ContentType = "application/msexcel"

'INTESTAZIONE
strXls = chr(34) & "Nome" & chr(34) & ","
strXls = strXls & chr(34) & "Acquisti" & chr(34) & "," & VbCrlf


'APRO IL DATABASE
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "clienti"


'APRO IL RECORDSET
set rs = conn.Execute ("SELECT Nome, Acquisti FROM clienti")

Do Until RS.EOF
    strXls = strXls & chr(34) & rs("Nome") & chr(34) & ","
    strXls = strXls & chr(34) & rs("Acquisti") & chr(34) & "," & VbCrlf
    rs.MoveNext
loop

set rs = Nothing

conn.Close
Set conn = Nothing

'MANDO AL BROWSER

Response.write strXls

%>

Commenti

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

I più letti di oggi