29 lines
682 B
VB.net
29 lines
682 B
VB.net
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
|