FlowFact - Entwicklungstools

zurück

Function - PROJEKTE_GetParentProjekteDsn
Übergeordnetes Projekt im Projektbaum

Diese Funktion gibt den Inhalt von 'PROJEKTE_DSN' zurück. Das Feld PROJEKTE_DSN ist eine Verknüpfung zum übergeordneten Projekt. Dadurch ist der Aufbau eines Projektbaums möglich.
  Function PROJEKTE_GetParentProjekteDsn(ByVal strProjekteDsn As String) As String  
 


strProjekteDsn: Datensatznummer des untergeordneten Projekts
Rückgabewert: Datensatznummer (DSN) des übergeordneten Projekts oder 'LEER'


Public Function PROJEKTE_GetParentProjekteDsn(ByVal strProjekteDsn As String) As String
    Dim rs As ADODB.Recordset
    Dim strSQL As String

    '** INNER JOIN liefert nur gültige DSN's zurück
    strSQL = "SELECT Projekte.Projekte_DSN FROM Projekte " & _
             "INNER JOIN Projekte as Projekte1 ON Projekte.Projekte_DSN = Projekte1.DSN " & _
             "WHERE Projekte.DSN=" & m_oUtil.SqlUid(strProjekteDsn)
    Set rs = m_oBase.FF_GetRecordset(strSQL)

    If rs.EOF Then
        PROJEKTE_GetParentProjekteDsn = ""
    Else
        PROJEKTE_GetParentProjekteDsn = m_oUtil.k(rs("PROJEKTE_DSN").value)
    End If
    Set rs = Nothing
End Function