Vi pongo il mio problema:
Ho uno script che genera un file excel con dei dati presi da un database. Il file viene salvato sul server.
Fin qui tutto bene, lo script funziona benissimo. Il problema è quando la mole di dati è troppo grande (non so in che misura) e mi restituisce l'errore Azione Annullata
La Funzione che uso è questa (magari può essere utile ad altri):
<%
Function AggiornaEsportazioni(IDutente,IDTabella,contenuto, Archivio)
'Con questa funzione posso creare un file sul server
%>
<!--METADATA TYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library"
-->
<%
pathdbfunz = Request.ServerVariables("APPL_PHYSICAL_PATH") & "database/starcredit.mdb"
Dim ConnFunz
Set ConnFunz = Server.CreateObject("ADODB.Connection")
ConnFunz.ConnectionString="Provider=Microsoft.Jet. OLEDB.4.0;Data Source=" & pathdbfunz
ConnFunz.open
set objrs = server.CreateObject("adodb.recordset")
objrs.Open "EXPORT", ConnFunz, 1, 3
objrs.addnew
objrs("IDUtente").value = IDUtente
objrs("IDTabella").value = IDTabella
NomeFile = Archivio & objrs("ID") & ".xls"
objrs("NomeFile").value = NomeFile
objrs("Data").value = Now()
objrs.Update
objrs.Close
Set objrs = nothing
UserFile = Server.MapPath("public/excel/" & NomeFile)
'ADODB.Stream
Set oStream = Server.CreateObject("ADODB.Stream")
' apro lo stream
oStream.Open
' charset
oStream.Charset = "ascii"
' tipo di scrittura: testo
oStream.Type = adTypeText
' scrivo il testo e salvo su file
oStream.WriteText contenuto
oStream.SaveToFile userFile, adSaveCreateOverWrite
' chiudo lo stream
oStream.Close
set oStream = Nothing
'chiudo la connessione al database
ConnFunz.Close
Set ConnFunz = Nothing
End Function
%>
Qualcuno saprebbe dirmi come "aggirare" questo problema
Rispondi quotando