FlowFact - Entwicklungstools

zurück

Function - FldArt_FindDSN
DSN einer Feldart suchen

  Function FldArt_FindDSN(ByVal strWhere As String, Optional ByVal strOderBy As String = "") As String  
 


strWhere: Der WHERE-Teil einer SELECT-Abfrage
strOderBy: Der ORDER BY-Teil einer SELECT-Abfrage
Rückgabewert: Datensatznummer (DSN) oder 'LEER'


Public Function FldArt_FindDSN(ByVal strWhere As String, Optional ByVal strOderBy As String = "") As String
    Dim rs As ADODB.Recordset
    Set rs = m_oBase.Sql_Find("FldArt", strWhere, strOderBy)
    If rs.EOF = False Then
        FldArt_FindDSN = rs("DSN")
    Else
        FldArt_FindDSN = ""
    End If
End Function