FlowFact - Entwicklungstools

zurück

Function - FldArt_NameByDSNList
Feldartenliste über Dsn abfragen

siehe auch FldArt_NameByDSN
  Function FldArt_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 FldArt_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 = FldArt_NameByDSN(strDsn) & ","
    Wend

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

    FldArt_NameByDSNList = strResult
End Function