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