FlowFact - Entwicklungstools

zurück

Function - FldArtOp_NameByDSNList
Feldartenoptionenliste über Dsn abfragen

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

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

    FldArtOp_NameByDSNList = strResult
End Function