Nessun risultato. Prova con un altro termine.
Guide
Notizie
Software
Tutorial

Visualizzare un foglio EXCEL

Per mezzo di questo script è possibile visualizzare a video un foglio Excel
con i nomi dei rispettivi campi che formano il database aperto tramite la connessione
desiderata poi semplicemete si potrà fare file--> salva con nome--> scegliere tipo file
(excel)-->salva:

<%
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("IL_NOME_DEL_NOSTRO_DATABASE.mdb")'OPZIONALE
---->&";PWD=LA TUA PASSWORD"
Dim sql
sql ="SELECT * FROM TABELLA"
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><B><% = rs(c).Name %></B></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
%>

Per mezzo di questo script è possibile visualizzare a video un foglio Excel
con i nomi dei rispettivi campi che formano il database aperto tramite la connessione
desiderata poi semplicemete si potrà fare file--> salva con nome--> scegliere tipo file
(excel)-->salva:

<%
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("IL_NOME_DEL_NOSTRO_DATABASE.mdb")'OPZIONALE
---->&";PWD=LA TUA PASSWORD"
Dim sql
sql ="SELECT * FROM TABELLA"
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><B><% = rs(c).Name %></B></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
%>

Link copiato negli appunti

Per mezzo di questo script è possibile visualizzare a video un foglio Excel

con i nomi dei rispettivi campi che formano il database aperto tramite la connessione

desiderata poi semplicemete si potrà fare file--> salva con nome--> scegliere tipo file

(excel)-->salva:

<%

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("IL_NOME_DEL_NOSTRO_DATABASE.mdb")'OPZIONALE

---->&";PWD=LA TUA PASSWORD"

Dim sql

sql ="SELECT * FROM TABELLA"

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><B><% = rs(c).Name %></B></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

%>