![]() |
FlowFact - Entwicklungstools |
![]() |
Function | EMSK_GetFldArtDsnList(ByVal strEmskDsn As String) As String |
strEmskDsn: Datensatznummer (DSN) der Eingabehilfe Rückgabewert: Durch Komma getrennte Liste von Feldart-Datensatznummern Public Function EMSK_GetFldArtDsnList(ByVal strEmskDsn As String) As String Dim strResult As String Dim rsEmskDet As ADODB.Recordset Dim strSQL As String strResult = "" strSQL = "SELECT FldArt_Dsn FROM EmskDet WHERE Emsk_Dsn =" & m_oUtil.SqlUid(strEmskDsn) & " ORDER BY Dsn" Set rsEmskDet = m_oBase.FF_GetRecordset(strSQL) While rsEmskDet.EOF = False strResult = strResult & m_oUtil.k(rsEmskDet("FldArt_Dsn")) & "," rsEmskDet.MoveNext Wend '-- letztes Komma entfernen If strResult <> "" Then strResult = Mid(strResult, 1, Len(strResult) - 1) End If EMSK_GetFldArtDsnList = strResult End Function |