Public Class dbiContries
 
#Region "Interne Deklarationen"
   Protected  _contryID As Integer ' DB:int identity(4)
   Protected  _contryName As String ' DB:varchar(255)
      Protected _hasChanges As Boolean = False
     Public Event HasChangesEvent()
#End Region
 
#Region "Konstruktoren"
...
#End Region
 
#Region "Eigenschaften"
 
    Public Readonly Property ContryID() As Integer
        Get
            Return _contryID
        End Get
    End Property
 
 
    Public Property ContryName() As String
        Get
            Return _contryName
        End Get
        Set(ByVal myContryName As String)
            If myContryName.Length <= 255 Then
                _contryName = myContryName
                _hasChanges = True
                RaiseEvent HasChangesEvent()
            End If
        End Set
    End Property
 
...
 
End Class 'dbiContries

Gru?
Lkatsch

"Wer glaubt gut zu sein, hat aufgeh?rt besser zu werden..."