nicht angemeldet
Hallo Thomas
Bsp:
For i = 1 To Anzahl
Set (RS & i) = Server.CreateObject("ADODB.RecordSet")
Next
Mal unbesehen der Warnungen der Vorredner kannst Du das Problem mit einem Array von Recordsets lösen.
z.B.
Dim RSets(Anzahl) as Recordset ' Initialisieren eines Arrays mit fester Grösse
For i = 1 To Anzahl
Set RSets[i-1] = Server.CreateObject("ADODB.RecordSet")
Next
Trotzdem ist mir aus Deinen Anforderungen auch nicht klar wieso Du mehr als ein Recordset im Speicher brauchst.
Da Du ja nur lesend auf das Recordset zugreifst und Dir die Informationen über die Datenstruktur bekannt sind, kannst Du eine Anwendungslogik aufbauen die mit einem grossen Recordset arbeitet, das alle möglichen Spalten und alle für die Anzeige der ersten Ebene notwendigen Datensätze enthält.
Für die Anzeige der "untergeordneten" Elemente eines 1.-Ebene-Elementes erfolgt zwangsläufig ein neuer Request und somit eine neue DB-Abfrage.
Oder wie meinst Du "datenbankunabhängige" Vearbeitung?
Wenn nach dem ersten Laden der Daten in den/die Recordsets kein weiterer DB-Zugriff erfolgen darf, dann kannst Du ja alle Datensätze ins grosse Recordset laden.
Ich hoffe, das hilft etwas weiter.
Grüsse
Eisbär