![]() |
FlowFact - Entwicklungstools |
![]() |
Function | STD_GetField(ByVal strFieldName As String) As String |
strFieldName: Name des Feldes Rückgabewert: Feldinhalt aus der Tabelle STD. Hinweis: Es ist immer nur ein Datensatz vorhanden! Public Function STD_GetField(ByVal strFieldName As String) As String Dim rs As ADODB.Recordset Dim strSQL As String strSQL = "SELECT " & strFieldName & " FROM Std" Set rs = m_oBase.FF_GetRecordset(strSQL) If Not rs.EOF Then STD_GetField = m_oUtil.k(rs(strFieldName)) Else STD_GetField = "" End If End Function |