combit Relationship Manager - Objekt-Referenz - combit GmbH
combit Relationship Manager - Objekt-Referenz - combit GmbH
combit Relationship Manager - Objekt-Referenz - combit GmbH
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
<strong>Objekt</strong>-<strong>Referenz</strong><br />
RecordSet <strong>Objekt</strong><br />
If CDbl(oRecord1.GetContentsByName("Umsatz")) > _<br />
CDbl(oRecord2.GetContentsByName("Umsatz")) Then<br />
...<br />
Set oRecord2 = Nothing<br />
Set oRecord1 = Nothing<br />
...<br />
Siehe auch:<br />
CurrentRecordSynchronized<br />
CurrentRecordSynchronized<br />
Beschreibung:<br />
Liefert den aktuellen Datensatz als <strong>Objekt</strong> vom Typ Record zurück. Diese Methode funktioniert<br />
nur, wenn zuvor über eine der Move...-Methoden auf einen gültigen Datensatz gesprungen wurde.<br />
Wenn z.B. keine Datensätze im RecordSet enthalten sind, liefert diese Methode kein Record<br />
<strong>Objekt</strong> zurück.<br />
Wichtig: Im Gegensatz zur Methode CurrentRecord aktualisiert sich ein so erzeugter Record<br />
immer automatisch, wenn anschließend Move...-Befehle für den zugehörigen RecordSet aufgerufen<br />
werden.<br />
Da das komplette Puffern der Feldinhalte entfällt, ist diese Methode deutlich performanter als<br />
CurrentRecord und stellt den empfohlenen Weg dar, um auf Feldinhalte von Datensätzen zuzugreifen.<br />
Mit CurrentRecordSynchronized erzeugte Record-<strong>Objekt</strong>e können dadurch jedoch nicht als Variablen<br />
für unterschiedliche Datensätze benutzt werden (vgl. Beispiel zu CurrentRecord)! Ist dies<br />
erforderlich, so muss anstattdessen CurrentRecord benutzt werden.<br />
Rückgabewert:<br />
Beispiel:<br />
...<br />
Record<br />
If oRecordSet.MoveFirst Then<br />
Set oRecord = oRecordSet.CurrentRecordSynchronized<br />
Do<br />
End If<br />
...<br />
nUmsatz = nUmsatz + CDbl(oRecord.GetContentsByName("Umsatz"))<br />
Loop Until Not oRecordSet.MoveNext<br />
Set oRecord = Nothing<br />
55