Imports System.ComponentModel
 
Public Class Adresse
 
    Protected strVorname As String
    Protected strNachname As String
    Protected strStraße As String
 
    Public Property Vorname() As String
        Get
            Return Me.strVorname
        End Get
        Set(ByVal value As String)
            Me.strVorname = value
        End Set
    End Property
 
    Public Property Nachname() As String
        Get
            Return Me.strNachname
        End Get
        Set(ByVal value As String)
            Me.strNachname = value
        End Set
    End Property
 
    Public Property Straße() As String
        Get
            Return Me.strStraße
        End Get
        Set(ByVal value As String)
            Me.strStraße = value
        End Set
    End Property
 
    Public Shared Function getSQL_String(ByRef adr As Adresse) As String
        Return "Select * from Adresse Where Vorname = '" & adr.Vorname & "';"
    End Function
End Class