FlowFact - Entwicklungstools

zurück

Function - EMSK_GetFldArtDsnList
Feldarten zur Eingabehilfe abfragen

  Function EMSK_GetFldArtDsnList(ByVal strEmskDsn As String) As String  
 


strEmskDsn: Datensatznummer (DSN) der Eingabehilfe
Rückgabewert: Durch Komma getrennte Liste von Feldart-Datensatznummern


Public Function EMSK_GetFldArtDsnList(ByVal strEmskDsn As String) As String
    Dim strResult As String
    Dim rsEmskDet As ADODB.Recordset
    Dim strSQL As String

    strResult = ""
    strSQL = "SELECT FldArt_Dsn FROM EmskDet WHERE Emsk_Dsn =" & m_oUtil.SqlUid(strEmskDsn) & " ORDER BY Dsn"
    Set rsEmskDet = m_oBase.FF_GetRecordset(strSQL)
    While rsEmskDet.EOF = False
        strResult = strResult & m_oUtil.k(rsEmskDet("FldArt_Dsn")) & ","
        rsEmskDet.MoveNext
    Wend

    '-- letztes Komma entfernen
    If strResult <> "" Then
        strResult = Mid(strResult, 1, Len(strResult) - 1)
    End If

    EMSK_GetFldArtDsnList = strResult
End Function