[Visual Basic]
Public Function Set_Aktuelles_Profil( _ 
   ByVal Profilname As String _ 
) As Object

Parameter

Profilname

Quellcode

[Visual Basic]
        Public Function Set_Aktuelles_Profil(ByVal Profilname As String) 
            For Each dr As DataRow In Me.Profildata.Rows 
                If dr("Bezeichnung") = Profilname Then 
                    Me.cpMainConnectionProvider = Globals.conn 
                    Me.iProfilnr = New SqlInt32(CType(dr("Profilnr"), Int32)) 
                    Me.SelectOne() 
                End If 
            Next 
        End Function

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

clsProfile