VB Recordset aus mehreren bestehenden Recordsets füllen

[DreamDancer2000]

Hallo Leute,

hab da mal ne Frage und zwar muss ich aus mehreren bereits gefüllten Recordsets ein Recordset mit bestandteilen der bereits existierenden Recordsets füllen. Ich hab allerdings keine Ahnung wie ich dieses Recordset dann initialisiere, bzw. dem Recordset mitteille welche Spalten es besitzen soll, da es ja nicht direkt aus der Db sondern aus den bereits bestehenen Recordsets gefüllt werden soll.

Bsp:

dim tbl1 as Recordset

dim tbl2 as Recordset

set tbl1 = db.openRecordset("select Field1 from Tabelle1",dbOpenDynaset)

set tbl2 = db.openRecordset("select Field2 from Tabelle2",dbOpenDynaset)

dim tbl1u2 as Recordset 'Dieses Recordset soll nun die Spalten Field1 und Field2

'enthalten, aber es soll nicht durch ein Sql Befehel aus

'der DB gefüllt werden sondern dirket aus den Recordets

'tbl1 und tbl2.

Wäre super wenn mir jemand Helfen könnte.

MfG DreamDancer

[firewalker...]

Das Recordset hat ja verschiedene Eigenschaften und Methoden. Interessant für dich:

Record Count -> Anzahl der Datensätze

Edit -> Editiert aktuellen Datensatz

GetRows -> Liefert eine od. mehrer zeilten aus Recordset-Objekt

Außerdem kannst du die Felder deines ersten Recordsets wie folgt auslesen:

x = Recordset1("Feldname")

... schreiben dann wie folgt:

Recordset2("Feldname") = x

Wenn dir das hilft: Gut. Wenn icht beschreib doch nochmal genauer was du machen willst.

[DreamDancer2000]

nee das war eigentlich überhaupt net die Antwort auf meine Frage.

Ich möchte wissen ob man ein Recordset aus mehreren anderen Recordset objekten erzeugen kann.

Ich zeigs mal in Pseudo Code

dim tbl1 as Recordset

dim tbl2 as Recordset

dim tbl1u2 as Recordset

set tbl1 = db.openrecordset("select Field1 from tabelle1",dbOpenDynaset)

set tbl2 = db.openDatabase("select Field2 from tabelle2",dbOpenDynaset)

'So und jetzt der Abschnitt nach dem ich suche ( hier in Pseudo Code )

set tbl1u2 = tbl1.Field1 + tbl2.Field2

'Ich möchte also auf tbl1u2 anschließend wie folgt zugreifen können

bla = tbl1u2!Field1

bla2 = tbl1u2!Field2