An geklontes Recordset Spalten anhängen

[Axel Richter]

Hallo Alexander,

'Mit welcher Datenbank ist das verbunden?
    ' open connection
    Set Cnn = Server.CreateObject("ADODB.Connection")
    strCnn = "....;"
    Cnn.Open strCnn

Set rs = CreateObject("ADODB.Recordset")

'Mit welcher Tabelle ist das verbunden?
    rs.ActiveConnection = Cnn
    rsCursorLocation = adUseClient
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockOptimistic
    rs.Source = "Tabellenname"

rs.Fields.Append "Spalte1", adChar, 50 'adChar = 129
rs.Fields.Append "Spalte2", adChar, 50

rs.Fields.Update

rs.Open

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

rs.Update

Irgendwo müssen die Änderungen vor dem Close ja gespeichert werden.

Gruß

Axel