![]() |
FlowFact - Entwicklungstools |
![]() |
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 |