Creare un recordset con ADO e Access

Ecco come creare un recordset dopo aver effettuato una connessione ADO ad un

database Access protetto da password:

<%

Dim cn : Set cn = Server.CreateObject("ADODB.Connection")

Dim strConn

strConn = "driver={Microsoft Access Driver (*.mdb)};dbq="&_

server.MapPath("database.mdb")&";PWD=password"

Dim sql

sql ="SELECT * FROM tabella"

cn.open strConn

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, cn, , , adCmdText

...

rs.close

set rs=nothing

%>

Da modificare:

- il nome e il path del database

- password

- il nome della "tabella" sulla stringa sql