FlowFact - Entwicklungstools

zurück

Function - AD_FindDSN
DSN einer Adresse suchen

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


strWhere: Der WHERE-Teil einer SELECT-Abfrage z.B. Ort = 'Köln'
strOderBy: Der ORDER BY-Teil einer SELECT-Abfrage z.B. Ort,Straße
Rückgabewert: Datensatznummer (DSN) oder 'LEER'


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