FlowFact - Entwicklungstools

zurück

Function - AD_GetParentAdDsn
Übergeordnete Adresse im Adressbaum

Diese Funktion gibt den Inhalt von 'AD_DSN' zurück. Das Feld AD_DSN ist eine Verknüpfung zu der übergeordneten Adresse. Dadurch ist der Aufbau eines Adressbaumes möglich.
  Function AD_GetParentAdDsn(ByVal strAdDsn As String) As String  
 


strAdDsn: Datensatznummer der untergeordneten Adresse
Rückgabewert: Datensatznummer (DSN) der übergeordneten Adresse oder 'LEER'


Public Function AD_GetParentAdDsn(ByVal strAdDsn 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 AD.AD_DSN FROM AD " & _
             "INNER JOIN AD as AD1 ON AD.AD_DSN = AD1.DSN " & _
             "WHERE AD.DSN=" & m_oUtil.SqlUid(strAdDsn)
    Set rs = m_oBase.FF_GetRecordset(strSQL)

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