FlowFact - Entwicklungstools

zurück

Function - OBJ_GetParentOBJDsn
Übergeordnetes Objekt im Objektbaum

Diese Funktion gibt den Inhalt von 'OBJ_DSN' zurück. Das Feld OBJ_DSN ist eine Verknüpfung zum übergeordneten Objekt. Dadurch ist der Aufbau eines Objektbaumes möglich.
  Function OBJ_GetParentOBJDsn(ByVal strObjDsn As String) As String  
 


strObjDsn: Datensatznummer des untergeordneten Objektes
Rückgabewert: Datensatznummer (DSN) des übergeordneten Objektes oder 'LEER'


Public Function OBJ_GetParentOBJDsn(ByVal strObjDsn 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 Obj.Obj_DSN FROM Obj " & _
             "INNER JOIN Obj as Obj1 ON Obj.Obj_DSN = Obj1.DSN " & _
             "WHERE Obj.DSN=" & m_oUtil.SqlUid(strObjDsn)
    Set rs = m_oBase.FF_GetRecordset(strSQL)

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