![]() |
FlowFact - Entwicklungstools |
![]() |
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 |