web调用水晶报表.doc

《web调用水晶报表.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、在WEB环境下打印报表的crystal的解决方案  2001-11-7    动网先锋    <  %@  LANGUAGE="VBSCRIPT"  %>    <  %  '  =  =  =  =  =  =  =  =  =  =  =  =  =  =  '  从ADO  Recordset直接生成报表  '  =  =  =  =  =  =  =  =  =  =  =  =  =  =  '  '  概念:  '  '  这个应用被设计成演示怎样从ADO  Recordset生成报表。我们首先建立ADO  Con

2、nection和  '  Recordset对象，然后用SQL语句从数据库中生成一个记录集。然后我们建立一个Crystal  '  Reports对象，并把这个这个对象指向ADO  recordset。最后我们将Crystal  Reports  '  Smart  Viewer送到客户端显示这个报表。    '  第一步：建立ADO  Connection  and  Recordset    '  一个ADO的数据库连接就是通过你已经存在的ODBC数据源（DSN）从象ASP这样的应用中来访问  '  数据的连接。为了达到这

3、个例子的目的，我们将使用到用一个叫做"Xtreme  Sample  Data"的  '  连到Access数据库Xtreme.mdb系统DSN    '  建立ADO数据库连接:    Set  oConn  =  Server.CreateObject("ADODB.Connection")    '这里建立叫做"oConn"的ADO  connection，我们将用这个ADO  connection对象连接到上述的DSN    '用  ADO  connection  必须先要打开它:    oConn.Open("Xt

4、reme  Sample  Database")    '这里打开我们的ODBC的数据源，这个数据源指向Access数据库Xtreme.mdb    '现在我们必须建立一个RecordSet对象：    set  session("oRs")  =  Server.CreateObject("ADODB.Recordset")    '在上面我们建立了一个session("oRs").  这个session中存放一个RecordSet对象  '将要包含用SQL语句返回的数据    '定义和生成  recordset:    s

5、ession("oRs").ActiveConnection  =  oConn  '定义这个recordset将要使用的Connection  对象    session("oRs").Open  "SELECT  [Product  ID],  [Product  Name]  FROM  Product"    '用SQL语句从Xtreme.mdb库的"Product"表中取出两个字段    '=============================================================== 

6、 '建立Crystal  Reports  对象  '===============================================================  '你可能注意到，Crystal  Reports对象被设为session，这是因为已经需求就会被一个叫做  '"rptserver.asp"的ASP处理，为了让rptserver.asp能非常容易地访问Crystal  Report对象，  '我们把这些对象都设为session。这样任何ASP页都运行在这个session中，都能够直接访问这些对象

7、    reportname  =  "ADORecordset.rpt"    '这里建立一个字符串变量，指向Crystal  Report文件(.rpt  file)，再用这段代码的时候  '换成你的Crystal  Report文件名。    '建立APPLICATION  对象  If  Not  IsObject  (session("oApp"))  Then  Set  session("oApp")  =  Server.CreateObject("CrystalRuntime.Application")  E

8、nd  If    '这个"if/end  if"  结构用来每个session只建立一次  Crystal  Reports  Application对象o  '建立application对象  -  session("oApp")，将Crystal  Report  De