Dall' >

Convertire i dati da Access ad Excel

Daniele Bochicchio

di , 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

%>