vb WebSite 使用水晶报表_语言综合

概述vb WebSite 使用水晶报表 <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Default2" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org

vb WebSite 使用水晶报表

<%@ Page Language="VB" autoEventWireup="false" Codefile="Default2.aspx.vb" inherits="Default2" %><!DOCTYPE HTML PUBliC "-//W3C//DTD xhtml 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-Transitional.dtd"><%@ Register Assembly="CrystalDecisions.Web,Version=13.0.2000.0,Culture=neutral,PublicKeyToken=692fbea5521e1304"    namespace="CrystalDecisions.Web" TagPrefix="CR" %><!DOCTYPE HTML PUBliC "-//W3C//DTD xhtml 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-Transitional.dtd"><HTML xmlns="http://www.w3.org/1999/xhtml" ><head ID="head1" runat="server">    <Title>UnTitled Page</Title>    <link href="/aspnet_clIEnt/System_Web/2_0_50701/CrystalReportWebFormVIEwer3/CSS/default.CSS"        rel="stylesheet" type="text/CSS" /></head><body>    <form ID="form1" runat="server">    <div>        <CR:CrystalReportVIEwer ID="crystalReportVIEwer" runat="server" autoDataBind="true"         HasCrystallogo="False" HasToggleGroupTreebutton="False" ToolPanelVIEw="None" />    </div>    </form></body></HTML>

后台代码

imports Systemimports System.Dataimports System.Configurationimports System.Webimports System.Web.Securityimports System.Web.UIimports System.Web.UI.WebControlsimports System.Web.UI.WebControls.WebPartsimports System.Web.UI.HTMLControlsimports CrystalDecisions.CrystalReports.Engineimports CrystalDecisions.SharedPartial Class Default2    inherits System.Web.UI.Page    Private customerReport As Reportdocument    Private Sub ConfigureCrystalReports()        customerReport = New Reportdocument        Dim reportPath As String = Server.MapPath("CrystalReport2.rpt")        customerReport.Load(reportPath)        Dim dataSet As DataSet = DataSetConfiguration.CustomerDataSet        customerReport.SetDataSource(dataSet)        crystalReportVIEwer.ReportSource = customerReport        crystalReportVIEwer.ShowFirstPage()    End Sub    Protected Sub Page_Load(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Load        ConfigureCrystalReports()    End SubEnd Class

还有一个关键类 DataSetConfiguration 这个类做连接数据库交互数据。

这个类我是应用之前的 cs 文件

using System;using System.Data;using System.Configuration;using System.Web;using System.Web.Security;using System.Web.UI;using System.Web.UI.WebControls;using System.Web.UI.WebControls.WebParts;using System.Web.UI.HTMLControls;using System.Data.oleDb;public class DataSetConfiguration{     private const string CONNECTION_STRING = @"ProvIDer=sqlolEDB;Data Source=.;Password=123456;User ID=sa;Initial Catalog=Garment";// 连接字符串       private const string query_STRING = "SELECT rights_no,rights_name,module_no,module_name,remark FROM access_rights";    private const string DATAtable_name = "access_rights";    private const string DIRECTORY_file_PATH = "";    public static DataSet CustomerDataSet    {        get        {            DataSet dataSet = new DataSet();            dataSet.readxmlSchema(@"D:\CrystalReports2.0_51aspx\CS_Web_Data_DataSets\CS_Web_Data_DataSets\App_Code\DataSet1.xsd");            //dataSet.readxmlSchema(@"D:\CrystalReports2.0_51aspx\CS_Web_Data_DataSets\CS_Web_Data_DataSets\XMLSchema.xsd");//数据集路径            oleDbConnection oleDbConnection = new oleDbConnection(CONNECTION_STRING);            oleDbDataAdapter oleDbDataAdapter = new oleDbDataAdapter(query_STRING,oleDbConnection);            oleDbDataAdapter.Fill(dataSet,DATAtable_name);            return dataSet;        }    }}

总结

以上是内存溢出为你收集整理的vb WebSite 使用水晶报表全部内容，希望文章能够帮你解决vb WebSite 使用水晶报表所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/langs/1283971.html