![]() |
FlowFact - Entwicklungstools |
![]() |
Function | BLOB_GetDsnCommaList(ByVal strLinkDsn As String) As String |
strLinkDsn: Datensatznummer (DSN) i.A. der Tabelle AKT. Rückgabe: Durch Komma getrennte Liste aller gefundenen Datensatznummern Public Function BLOB_GetDsnCommaList(ByVal strLinkDsn As String) As String Dim rsBlob As ADODB.Recordset Dim strBlobDsnList As String strBlobDsnList = "" Set rsBlob = m_oBlob.GetBlobInfos(strLinkDsn) If rsBlob.EOF = True Then Exit Function End If While rsBlob.EOF = False strBlobDsnList = strBlobDsnList & "," & rsBlob("Dsn").value rsBlob.MoveNext Wend strBlobDsnList = Mid(strBlobDsnList, 2) BLOB_GetDsnCommaList = strBlobDsnList End Function |