FlowFact - Entwicklungstools

zurück

Function - AKTART_NameByDSNList
Namensliste über Dsn suchen

Siehe auch AKTART_NameByDSN
  Function AKTART_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 AKTART_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 = AKTART_NameByDSN(strDsn) & ","
    Wend

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

    AKTART_NameByDSNList = strResult
End Function