![]() |
FlowFact - Entwicklungstools |
![]() |
Function | OBJ_New() As ADODB.Recordset |
Rückgabewert: Recordset mit allen Feldern Public Function OBJ_New() As ADODB.Recordset Dim rsOBJ As ADODB.Recordset Set rsOBJ = m_oBase.Sql_Find("OBJ", "1=2") rsOBJ.AddNew rsOBJ("DSN").value = m_oUtil.NewGUID() rsOBJ("Kennung").value = STD_GetField("Kennung_OBJ") 'Hole Vorbelegung i.A. '#' rsOBJ("Aktiv").value = 1 rsOBJ("Priorität").value = 1 rsOBJ("FARCHIV").value = 0 Set OBJ_New = rsOBJ End Function |