FlowFact - Entwicklungstools

zurück

Function - EMSK_NameByDSNList
Eingabehilfenliste über Dsn abfragen

siehe auch EMSK_NameByDSN
  Function EMSK_NameByDSNList(ByVal strDsnCommaList As String) As String  
 


strDsnCommaList: Durch Komma getrennte DSN's.
Rückgabewert: Durch Komma getrennte Namensliste (gleiche Anzahl, wie in DSN-Liste)


Public Function EMSK_NameByDSNList(ByVal strDsnCommaList As String) As String
    Dim strDsn As String
    Dim strResult As String

    strResult = ""

    While strDsnCommaList <> ""
        strDsn = m_oTools.StrList_DeleteFirst(strDsnCommaList, ",")
        '#todo# das kann noch optimiert werden
        strResult = EMSK_NameByDSN(strDsn) & ","
    Wend

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

    EMSK_NameByDSNList = strResult
End Function