esportare tab di access in file Excel

[zeweb]

SI può ?

[jet]

Da Excel Dati - Importa dati esterni - Importa dati
e quindi scegli il db dal quale esportare la tabella.

[zeweb]

ma il DB è sul server !

Io devo crearmi un file in Excel direttamente on-line :master:

[ianstilo]

ci sono script appositamente fatti

[zeweb]

immagino magari se siete così gentili da indicarmene uno ho provato quello su http://freasp.html.it

ma non mi funziona !

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/admin_cedab/admin/tab_excel.asp, line 11

<%
Response.ContentType = "application/vnd.ms-excel" 

Dim cn : Set cn = Server.CreateObject("ADODB.Connection") 
Dim strConn 
strConn = "driver={Microsoft Access Driver (.mdb)};dbq="&_ 
server.MapPath("/database/cedab.mdb")'OPZIONALE 
---->&";PWD=LA TUA PASSWORD" 
Dim sql 
sql ="SELECT FROM UTENTI" 
cn.open strConn 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.Open sql, cn, , , adCmdText %> 
<TABLE BORDER=1> 
<TR> 
<% 

col = 2 

For c = 0 to rs.Fields.Count - 1 
%> 
<TD BGCOLOR=RED><% = rs(c).Name %></TD> 
<% Next %> 

</TR> 
<% 
Do While Not rs.EOF 
%> 
<TR> 
<% For c = 0 to rs.Fields.Count - 1 
%> 
<TD VALIGN=TOP ><% = rs(c) %></TD> 
<% Next %> 

</TR> 
<% 
rs.MoveNext 
col = col + 1 
Loop 
rs.Close 
%>

[weppos]

http://www.2enetworx.com/dev/projects/tableeditor.asp

[zeweb]

ma non posso installare una roba del genere solo x esportare una tabella di un Db Access in Excel !!!!

Vorrei capire perchè quello su freASP non va !

[weppos]

Originariamente inviato da zeweb
ma non posso installare una roba del genere solo x esportare una tabella di un Db Access in Excel !!!!

Vorrei capire perchè quello su freASP non va !

E' una cosa semplicissima.
Se non vuoi installarlo leggi il codice di export.

Se poi vuoi tutorial ce ne sono a volontà.
http://www.google.it/search?sourceid...p+create+excel

[jet]

Ho provato il codice e va bene, ho cambiato solo:

strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & _
Server.MapPath("/database/cedab.mdb")

[zeweb]

ho trovato questo su ASPCODE e va benissimo !

<%

' stringa di conn
Set conn = Server.CreateObject("ADODB.Connection") 
	conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/database/cedab.mdb") 

' estraggo i dati
Set rs = conn.Execute("SELECT nome, cognome, azienda, funzione, email FROM utenti")
for i = 0 to rs.Fields.Count-1
  risultato = risultato & rs.Fields(i).Name & "</td><td>"
next
risultato = risultato & "</td></tr><tr><td>"
risultato = risultato & rs.GetString(,,"</td><td>","</td></tr><tr><td>", "-")

' chiusura
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing

' modifico header per forzare l'apertura in Excel
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename=tabella.xls"

' scrivo a video
Response.Write ("<table><tr><td>" & risultato & "</td></tr></table>")

%>