#148 - Convertire i dati da Access ad Excel
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
%>Approfondimenti
Commenti
Esprimi il tuo giudizio su questo script:
Per procedere devi essere autenticato.
Per inserire un commento, devi registrarti alla nostra community.
Stampa 
Download 
