【www.gdgbn.com--打印机】

<%@ LANGUAGE="VBSCRIPT" %>
<%
" = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
" 从ADO Recordset直接生成报表
" = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
"
" 概念:
"
" 这个应用被设计成演示怎样从ADO Recordset生成报表。我们首先建立ADO Connection和
" Recordset对象，然后用SQL语句从数据库中生成一个记录集。然后我们建立一个Crystal
" Reports对象，并把这个这个对象指向ADO recordset。最后我们将Crystal Reports
" Smart Viewer送到客户端显示这个报表。
" 第一步：建立ADO Connection and Recordset
" 一个ADO的数据库连接就是通过你已经存在的ODBC数据源（DSN）从象ASP这样的应用中来访问
" 数据的连接。为了达到这个例子的目的，我们将使用到用一个叫做"Xtreme Sample Data"的
" 连到Access数据库Xtreme.mdb系统DSN
" 建立ADO数据库连接:
Set oConn = Server.CreateObject("ADODB.Connection")
"这里建立叫做"oConn"的ADO connection，我们将用这个ADO connection对象连接到上述的DSN
"用 ADO connection 必须先要打开它:
oConn.Open("Xtreme Sample Database")
"这里打开我们的ODBC的数据源，这个数据源指向Access数据库Xtreme.mdb
"现在我们必须建立一个RecordSet对象：
set session("oRs") = Server.CreateObject("ADODB.Recordset")
"在上面我们建立了一个session("oRs"). 这个session中存放一个RecordSet对象
"将要包含用SQL语句返回的数据
"定义和生成 recordset:
session("oRs").ActiveConnection = oConn
"定义这个recordset将要使用的Connection 对象
session("oRs").Open "SELECT [Product ID], [Product Name] FROM Product"
"用SQL语句从Xtreme.mdb库的"Product"表中取出两个字段
"===================================================================================
"建立Crystal Reports 对象
"===================================================================================
"你可能注意到，Crystal Reports对象被设为session，这是因为已经需求就会被一个叫做

本文来源：http://www.gdgbn.com/bangongshuma/3694/