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
%>Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
