Imports System.Data.SqlClient
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Logging

Public Class ChartModel
    Inherits BaseModel

    Public Sub New(pState As State)
        MyBase.New(pState)

    End Sub

    Public Function LoadPIEExample() As DataTable
        Try
            Dim oSQL As String
            oSQL = " SELECT 'ALLE' as Argument, 100 as Value"
            oSQL += " UNION "
            oSQL += " SELECT 'Komplett', 33 "

            Dim oTable As DataTable = Database.GetDatatable(oSQL)

            Return oTable
        Catch ex As Exception
            Logger.Error(ex)
            Return Nothing
        End Try
    End Function
End Class