Esportazione in excel

[wegawhite]

ciao.

Ho una pagina asp nella quale i dati estratti dalla query vengono impaginati.

Questi dati possono essere esportati in un foglio excel tramite un codice che recupera l'ID dei records impaginati a video:

nella pagina che estrae:

id = ""
if not objRS.eof then
...

for...

...

id = Id & objRS("Id") & ","
objRS.movenext
end if
next

L'esportazione la faccio tramite questo tasto:

<form method="post" action="estrai_sql_xls.asp"> 
  <INPUT TYPE="submit" value="Stampa in excel">
  <input type="hidden" name="Id" value="<%=Id%>"></td>
</form>

In questo modo però stamperò in excel soltanto i records che visualizzo nella paginazione... se volessi invece indipendentemente da ciò che vedo sul video estrarre la totalità dei records della tabella access come devo fare?

Thanks!

[pictor]

Se ho capito bene, basta che quando fai la query non gli specifici l' ID.

E anche se non ho capito devi lavorare comunque sulla query SQL.

Facci vedere la query che c'è in estrai_sql_xls.asp per recuperare i record...

[wegawhite]

Io vorrei offrire le due possiblità:

1) esportare in excel ciò che viene paginato e visualizzato a video;
2) esportare in excel tutti i dati contenuti nella tabella access, indipendentemente da ciò che viene paginato e visualizzato a video;


codice per estrazione excel:

<%

Dim FileName 
FileName="OutPut.xls" 
Response.Buffer = true
Response.ContentType = "application/vnd.ms-excel" 
Response.AddHeader "content-disposition", "inline; filename=" & FileName 
path="../db/db.mdb" 

Dim DBConn 
Set DBConn=Server.CreateObject("ADODB.Connection") 

Dim rs 
set rs=Server.CreateObject("ADODB.Recordset") 
strConn="Provider = Microsoft.Jet.OLEDB.4.0;" 
strConn= strConn & "Data Source =" & Server.MapPath(path) 
DBConn.Open strConn 

cod = request.form("Id")

sql=("SELECT * FROM TAB where ID in ("&cod&") order by is asc")
Set rs = DBConn.Execute(sql)

  Response.write "<table border=1>" 
  Response.Write("<tr>") 
  Response.Write("...intestazioni tabella excel...") 
  Response.write "</tr>" 
  Response.write "<tr>" 
  Response.Write("<td>") 
  Response.write rs.GetString(,,"</td><td>","</td></tr><tr><td>","") 
  Response.write "</td></tr></table></center>" 
  
Set rs=Nothing 
DBConn.Close 
Set DBConn= Nothing 

Response.flush 
Response.end 

%>

[wegawhite]

Nessuna idea?

[santino83_11_04]

ecco le query sql:

per il punto 1:

sql=("SELECT * FROM TAB where ID in ("&cod&") order by is asc")

per il punto 2:

sql=("SELECT * FROM TAB order by is asc")

duplica lo script e specifica ogni volta una delle due query