FlowFact - Entwicklungstools

zurück

Function - Details_FindDSN
DSN eines Details-Datensatzes suchen

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


strWhere: Der WHERE-Teil einer SELECT-Abfrage z.B. intern LIKE 'Haus%'
strOderBy: Der ORDER BY-Teil einer SELECT-Abfrage z.B. intern,Kennung
Rückgabewert: Datensatznummer (DSN) oder 'LEER'


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