![]() |
FlowFact - Entwicklungstools |
![]() |
Function | FldArt_New() As ADODB.Recordset |
Rückgabewert: Recordset mit allen Feldern Public Function FldArt_New() As ADODB.Recordset Dim rsFldArt As ADODB.Recordset Set rsFldArt = m_oBase.Sql_Find("FldArt", "1=2") rsFldArt.AddNew rsFldArt("DSN") = m_oUtil.NewGUID() rsFldArt("Aktiv") = 1 Set FldArt_New = rsFldArt End Function |