purchase_rpt.aspx.vb

来自「online book store working project」· VB 代码 · 共 26 行

Imports System.Data.SqlClient
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Partial Class Purcahse_Rpt
    Inherits System.Web.UI.Page
    Dim con As New SqlConnection
    Dim da, da1 As New SqlDataAdapter
    Dim ds As New DataSet1

    Protected Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load
        Dim user As String
        user = Session("username")
        MsgBox("session is " & user)
        con = New SqlConnection("Data Source=.; database =BookStore;Integrated Security=True")
        con.Open()
        da = New SqlDataAdapter("select * from tbaddcart where CustomerId='" & user & "'", con)
        da.Fill(ds, "tbaddcart")
        'da1 = New SqlDataAdapter("select * from tbaddcart where CustomerId='" & Session("username") & "'", con)
        'da1.Fill(ds, "tbaddcart")
        Dim rep2 As New ReportDocument
        rep2.Load(Server.MapPath("Purchase_Rpt.rpt"))
        rep2.SetDataSource(ds)
        CrystalReportViewer1.ReportSource = rep2
    End Sub
End Class