Public Class Messparameter
 
 Private intmessparameterid As Integer
 Private strmessparametername As String
 
   Property messparameterid() As Integer
        Get
            Return intmessparameterid
        End Get
        Set(ByVal messparameternr As Integer)
            intmessparameterid = messparameternr
        End Set
    End Property
 
    Property messparametername() As String
        Get
            Return strmessparametername
        End Get
        Set(ByVal Name As String)
            strmessparametername = Name
        End Set
    End Property
 
'Hier kommts jetzt.
 
Public Sub Datenholen(messparameterid as Integer)
'Connect zu DB
'Datenabfragen
 
'Hier automatisch die Properties mit dem Abfrageergebnis ausfüllen
 
End Sub
 
End Class