![]() |
FlowFact - Entwicklungstools |
![]() |
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 |