FlowFact - Entwicklungstools

zurück

Function - AKT_FindDSN
DSN einer Aktivität suchen

  Function AKT_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 oder 'LEER'


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