![]() |
FlowFact - Entwicklungstools |
![]() |
Function | AKTART_New() As ADODB.Recordset |
Rückgabewert: Recordset mit allen Feldern Public Function AKTART_New() As ADODB.Recordset Dim rsAktArt As ADODB.Recordset Set rsAktArt = m_oBase.Sql_Find("Aktivitätenarten", "1=2") rsAktArt.AddNew rsAktArt("DSN").value = m_oUtil.NewGUID() rsAktArt("Aktiv").value = 1 rsAktArt("Priorität").value = 1 Set AKTART_New = rsAktArt End Function |