Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/Reporting/VB/ReportService/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/Reporting/VB/ReportService/DemoInitializer.vb

Imports Microsoft.VisualBasic
Imports System.Collections.Generic
Imports System.Data.OleDb
Imports DevExpress.XtraReports.Data
Imports DevExpress.XtraReports.Service

Namespace ReportSilverlightDemo
	Public NotInheritable Class DemoInitializer
		Private Sub New()
		End Sub
		Public Shared Sub Initialize(ByVal server As System.Web.HttpServerUtility)
			DevExpress.Xpf.Printing.ServiceKnownTypeProvider.Register(GetType(XtraReportsDemos.PivotGridAndChart.ViewTypeFiltered), GetType(DevExpress.XtraReports.UI.XRColumnSortOrder), GetType(XtraReportsDemos.NorthwindTraders.SortGroupsType), GetType(List(Of Integer)))

			DataProviderRepository.Current.Register("nwind", "Northwind Database", GetOleDbConnectionString("nwind.mdb"))

			DataProviderRepository.Current.Register("countries", "Countries Database", GetOleDbConnectionString("countriesDb.mdb"))

		End Sub

		Private Shared Function GetOleDbConnectionString(ByVal databaseFile As String) As String
			Dim builder = New OleDbConnectionStringBuilder()
			builder.Provider = "Microsoft.Jet.OLEDB.4.0"
			builder.DataSource = "|DataDirectory|\" & databaseFile
			Return builder.ToString()
		End Function
	End Class
End Namespace