Re: Objekte gehen nicht in Collection
From: Paul Rohorzka (dasmusswegpaul.rohorzka_at_softconcept.atdasauch)
Date: 02/11/04
- Next message: Alexander Frank: "Mit VBA eine Tabelle erstellen und löschen"
- Previous message: Peter Doering: "Re: MDB mit bestimmter Access-Version starten"
- In reply to: Philipp Vohralik: "Objekte gehen nicht in Collection"
- Messages sorted by: [ date ] [ thread ]
Date: Wed, 11 Feb 2004 09:19:37 GMT
Hallo Philipp!
> Public Property Get WGList() As Collection
> Dim rst As ADODB.Recordset
> Dim Warengruppe As CWarengruppe
> Call GetWG
> Set rst = comm.Execute
> Do Until rst.EOF
> Set Warengruppe = New CWarengruppe
> Warengruppe.WGNummer = rst!WGNummer
> If Warengruppe.Load Then mcolWG.Add _
> Item:=Warengruppe, Key:=rst!WGNummer
> rst.MoveNext
> Loop
> Set WGList = mcolWG
> End Property
Ich sehe hier keinen Fehler, kann mich daher nur
Philipp Stiefels Vermutung anschließen, dass deine
WGNummer eine Zahl ist. Das geht dann natürlich
nicht, weil der Key ein String sein muss.
BTW,
ich verwende auch ein recht intensiv datengebundene
Klassen und Auflistungen. Ich habe dabei als vorteilhaft
erfahren, auch für die Collection eine eigene Klasse
zu schreiben. Solche Klassen treten meist paarweise
auf (CWarengruppe und CWarengruppen). Dann kannst du
nämlich beispielsweise die Item-Methode der Klasse
CWarengruppen derart gestalten, dass nur der eine
erforderlich Datensatz von der Datenbank geladen wird,
was eventuell einen Performancegewinn bedeuten kann.
HTH,
Paul
- Next message: Alexander Frank: "Mit VBA eine Tabelle erstellen und löschen"
- Previous message: Peter Doering: "Re: MDB mit bestimmter Access-Version starten"
- In reply to: Philipp Vohralik: "Objekte gehen nicht in Collection"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
