FlowFact - Entwicklungstools

zurück

Function - VERTRAEGE_FindDSN
DSN eines Vertrages suchen

  Function VERTRAEGE_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 VERTRAEGE_FindDSN(ByVal strWhere As String, Optional ByVal strOderBy As String = "") As String
    Dim rs As ADODB.Recordset
    Set rs = m_oBase.Sql_Find("VERTRÄGE", strWhere, strOderBy)
    If rs.EOF = False Then
        VERTRAEGE_FindDSN = rs("DSN")
    Else
        VERTRAEGE_FindDSN = ""
    End If
End Function