An geklontes Recordset Spalten anhängen

[Alexander Ganz]

Hallo Frank,

sollte das Recordset dazu nicht geschlossen sein, an das man anhängen will??

Jepp, ist es auch - hatte nur vergessen diese Stelle mit einzufügen.
Mir ist dann nochwas interessantes aufgefallen. Dieses Mal habe ich ein einzelnes nicht geklontes Recordset benutzt.

Set rs = CreateObject("ADODB.Recordset")
rs.Fields.Append "Spalte1", adChar, 50 'adChar = 129
rs.Fields.Append "Spalte2", adChar, 50
rs.Open

rs.AddNew
rs("Spalte1").Value = "Dies ist Spalte1.1"
rs("Spalte2").Value = "Dies ist Spalte2.1"

rs.AddNew
rs("Spalte1").Value = "Dies ist Spalte1.2"
rs("Spalte2").Value = "Dies ist Spalte2.2"

RS.Close

rs.Fields.Append "Spalte3", adChar, 50
rs.Fields.Append "Spalte4", adChar, 50

rs.Open

rs.AddNew
rs("Spalte3").Value = "Dies ist Spalte3.1"
rs("Spalte4").Value = "Dies ist Spalte4.1"

rs.AddNew
rs("Spalte3").Value = "Dies ist Spalte3.2"
rs("Spalte4").Value = "Dies ist Spalte4.2"

rs.MoveFirst
While Not rs.EOF
 For i = 0 To rs.Fields.Count-1
   Response.Write RS(i).Name & " - " & RS(i).Value & "<br>"
 Next
 rs.MoveNext
Wend
rs.close
Set rs = Nothing

Ergebnis:
Spalte3 - Dies ist Spalte3.1
Spalte4 - Dies ist Spalte4.1
Spalte3 - Dies ist Spalte3.2
Spalte4 - Dies ist Spalte4.2

Es fehlen also Spalte1 und Spalte2 und 4 Datensätze. Wo sind die hin?
Das kann doch nicht der Sinn von Append sein oder?
Die vorherigen Einträge sind einfach nicht mehr vorhanden - das Recordset wurde aber nicht gelöscht (eigentlich)
?

Viele Grüße
Alex