![]() |
FlowFact - Entwicklungstools |
![]() |
Function | PROJEKTE_New() As ADODB.Recordset |
Rückgabewert: Recordset mit allen Feldern der Tabelle Projekte (siehe PROJEKTE_Update und PROJEKTE_New) Public Function PROJEKTE_New() As ADODB.Recordset Dim rsPROJEKTE As ADODB.Recordset Set rsPROJEKTE = m_oBase.Sql_Find("Projekte", "1=2") rsPROJEKTE.AddNew rsPROJEKTE("DSN").value = m_oUtil.NewGUID() rsPROJEKTE("Kennung").value = STD_GetField("Kennung_Projekte") 'holt die Vorbelegung: i.A. '#' rsPROJEKTE("FArchiv").value = 0 Set PROJEKTE_New = rsPROJEKTE End Function |