Hierarchische Recordsets - once more

17/04/2010 - 14:38 von Lothar Geyer | Report spam
Wie kann ich einen hierarchischen Recordset nur mit ADO-Mitteln (also
ohne SQL) erzeugen?

Etwa so:

Set rs = New Recordset
rs.Fields.Append "Field1", dbInteger
rs.Fields.Append "Field2", dbInteger
rs.Fields.Append "Level2", dbChapter
With rs.Fields("Level2")
.Fields.Append "ABC"
...
End With

Aber das spielts ja nicht ...

Lothar Geyer
 

Lesen sie die antworten

#1 Wilfried Dietrich
19/04/2010 - 12:27 | Warnen spam
Hallo Lothar,

Wie kann ich einen hierarchischen Recordset nur mit ADO-Mitteln (also
ohne SQL) erzeugen?

Etwa so:

Set rs = New Recordset
rs.Fields.Append "Field1", dbInteger
rs.Fields.Append "Field2", dbInteger
rs.Fields.Append "Level2", dbChapter
With rs.Fields("Level2")
.Fields.Append "ABC"
...
End With



vielleicht so.

Set rsParent = New ADODB.Recordset
Set rsChild = New ADODB.Recordset

rsParent.CursorLocation = adUseClient
rsChild.CursorLocation = adUseClient

rsParent.Fields.Append "Field1", adInteger
rsParent.Fields.Append "Field2", adInteger
rsChild.Fields.Append "Level2", adIDispatch
rsChild.Fields.Append "Test", adVarChar, 20

rsParent.Open
rsChild.Open

rsChild.AddNew
rsChild(0) = "Datensatz1"
rsChild.Update
rsChild.AddNew
rsChild(0) = "Datensatz2"
rsChild.Update
rsChild.MoveFirst

rsParent.AddNew
rsParent(0) = 100
rsParent(1) = 101
rsParent(2) = rsChild
rsParent.Update
...
etc.

Gruß
Wilfried

Ähnliche fragen