Query su un file MS Excel con ASP

Home + Articoli + MS Office + Articolo # 171

Tramite una pagina ASP è possibile connettersi ad un file MS Excel come se fosse un vero e proprio database, utilizzando quindi gli oggetti Connection e Recordset.

Vediamo subito un esempio pratico.

Si crei il file database.xls e vi si inseriscano dei dati come documentato dall'immagine seguente:

Si esegua adesso la seguente operazione dal menu dei Excel:

Inserisci / Nome / Definisci...

Si inserisca nella casella di testo utenti, cliccare Aggiungi (apparirà la parola utenti nell'area di testo sottostante) e poi confermare con OK.

Questa operazione equivale all'assegnazione di un nome alla tabella di un database.

Di seguito il codice di esempio:

<%@LANGUAGE = VBScript%>
<%
    Dim sc, cn, rs

    sc = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    sc = sc & Server.MapPath("database.xls")
    sc = sc & ";Extended Properties=Excel 8.0"

    Set cn = Server.CreateObject("ADODB.Connection")
    cn.Open sc

    Set rs = Cn.Execute("SELECT * FROM utenti")
    With (Response)
        While rs.EOF = False
            .Write "<p>"
            .Write "ID: " & rs(0) & "<br>"
            .Write "Nome: " & rs(1) & "<br>"
            .Write "Telefono: " & rs(2)
            .Write "</p>"
            rs.MoveNext
        Wend
    End With
    Set rs = Nothing

    cn.Close
    Set cn = Nothing
%>

Iscriviti
Cancellati