ASPcenter.net

22 febbraio 2010

Query su un file MS Excel con ASP

Archiviato in: ASP e Office — Tag:, , , — lukeonweb @ 11:13

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
%>

Nessun commento »

Non c'è ancora nessun commento.

RSS feed dei commenti a questo articolo. TrackBack URL

Lascia un commento

ASPcenter.net è il blog italiano su ASP, ASP.Net, VB.Net, C# e Visual Studio - Funziona con WordPress