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