Step by step tutorial on FlexCel reports (VB.Net / netframework)

Note

This demo is available in your FlexCel installation at <FlexCel Install Folder>\samples\vb\VS2022\netframework\20.Reports\A0.Reporting Tutorial and also at https:​//​github.​com/​tmssoftware/​TMS-​FlexCel.​NET-​demos/​tree/​master/​vb/​VS2022/​netframework/​Modules/​20.​Reports/​A0.​Reporting Tutorial

Overview

This demo is the completed project from the FlexCel reporting tutorial video at

https://www.tmssoftware.com/flexcel/tutorial.htm

Note: This demo does not run from MainDemo and it needs .NET 2.0 or newer.

It also needs the Adventure Works demo database from

http://www.codeplex.com/MSFTDBProdSamples/Release/ProjectReleases.aspx?ReleaseId=4004 (SQLServer 2005)

or

http://www.codeplex.com/MSFTDBProdSamples/Release/ProjectReleases.aspx?ReleaseId=8392 (SQLServer 2008)

In order to run this demo, open the website from Visual Studio 2005 or newer, by doing: Menu->File->Open->Website

and pointing to the "Modules\20.Reports\A0.Reporting Tutorial" folder.

Concepts

• Concepts are explained in the video. This is just the finished code and template so you can take a look at it.

• In order to actually run this demo, you might need to edit web.config and change the connection settings for your SQL Server.

Files

Default.aspx.vb

Imports System
Imports System.Collections
Imports System.Configuration
Imports System.Data
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports FlexCel.Core
Imports FlexCel.XlsAdapter
Imports FlexCel.Render
Imports FlexCel.Report
Imports System.IO

Partial Public Class _Default
	Inherits System.Web.UI.Page

	Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

	End Sub

	Private Function CreateReport() As ExcelFile
		Dim Result As New XlsFile(True)
		Result.Open(MapPath("~/App_Data/template.xls"))
		Using fr As New FlexCelReport()
			LoadData(fr)

			fr.SetValue("ReportCaption", "Hello from FlexCel!")
			fr.Run(Result)
			Return Result
		End Using
	End Function

	Private Sub LoadData(ByVal fr As FlexCelReport)
		Dim Data As New DataSet1()
		Dim ProductAdapter As New DataSet1TableAdapters.ProductTableAdapter()
		ProductAdapter.Fill(Data.Product)

		Dim ProductPhotoAdapter As New DataSet1TableAdapters.ProductPhotoTableAdapter()
		ProductPhotoAdapter.Fill(Data.ProductPhoto)

		Dim ProductProductPhotoAdapter As New DataSet1TableAdapters.ProductProductPhotoTableAdapter()
		ProductProductPhotoAdapter.Fill(Data.ProductProductPhoto)

		fr.AddTable(Data)
	End Sub

	Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
		Dim xls As ExcelFile = CreateReport()
		FlexCelAspViewer1.HtmlExport.Workbook = xls
	End Sub
	Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
		Dim xls As ExcelFile = CreateReport()

		Using ms As New MemoryStream()
			xls.Save(ms)
			ms.Position = 0
			Response.Clear()
			Response.AddHeader("Content-Disposition", "attachment; filename=Test.xls")
			Response.AddHeader("Content-Length", ms.Length.ToString())
			Response.ContentType = "application/excel" 'octet-stream";
			Response.BinaryWrite(ms.ToArray())
			Response.End()
		End Using


	End Sub
	Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)
		Dim xls As ExcelFile = CreateReport()

		Using ms As New MemoryStream()
			Using pdf As New FlexCelPdfExport()
				pdf.Workbook = xls
				pdf.BeginExport(ms)
				pdf.ExportAllVisibleSheets(False, "FlexCel")
				pdf.EndExport()
				ms.Position = 0
				Response.Clear()
				Response.AddHeader("Content-Disposition", "attachment; filename=Test.pdf")
				Response.AddHeader("Content-Length", ms.Length.ToString())
				Response.ContentType = "application/pdf" 'octet-stream";
				Response.BinaryWrite(ms.ToArray())
				Response.End()
			End Using
		End Using

	End Sub
End Class