01.Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
02. Dim connStr As String = ConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString.ToString()
03. Dim conn As New SqlConnection(connStr)
04. conn.Open()
05.
06. Dim da As New SqlDataAdapter("select * from Table_borrow a " & _
07." join Table_device b on (b.H_deviceID=a.G_deviceID) " & _
08." join Table_member c on (c.A_memberID=a.G_memberID) " & _
09." where G_borrowID = '" & Request.QueryString("returnID").ToString() & "' ", conn)
10. Dim ds As New DataSet
11. da.Fill(ds, "Table_borrors")
12.
13. Dim report As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
14. report.Load(Server.MapPath("rpt.rpt"))
15. report.SetDataSource(ds.Tables("Table_borrors"))
16. CrystalReportViewer1.ReportSource = report
17. End Sub
18.End Class
