ADODB.Stream für Disconnected Recordsets oder XML

Wie können Sie ein Disconnected Recordset speichern ohne eine Datei anzulegen?...

hierzu können Sie das Recordset ab ADODB 2.6 in einen Stream ablegen. Das nachfolgende Codebeispiel zeigt auf, wie Sie z.B. das Recordset als XML in den Stream schreiben und auf der Webseite ausgeben.

dim oStream
set conn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")
set oStream = server.CreateObject("ADODB.Stream")

conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=DACHSTEIN","sa",""
rs.Open "select top 10 * from customers",conn
rs.Save oStream, 1

rs.Close
set rs = nothing
conn.Close
set conn = nothing

Response.write server.HTMLEncode(oStream.ReadText)

set oStream=nothing