ADO Guru gesucht

[jobo]

Das Prinzip sollte schon auch unter ADO funktionieren, selbst wenn es die bereits genannten Probleme gibt. Zumindest tut es das bei mir unter Oracle. Hier wird zwar mit Trigger/Sequence der PK generiert, aber das sollte clientseitig egal sein.
Ich würde mal klären, welche Versionen du für ADO > MDAC und in Delphi verwendest.
Die MDAC Version ist je nach Systemaufbau ein Zufallsprodukt der Office Version, unter Delphi gab es immer wieder auch Updates zu ADO.
TADOTable bietet leider auch den geringsten Spielraum. Per Query kannst Du die explizite Rückgabe des PK anfordern und und und...

[Bernhard Geyer]

Zitat von jobo:

Die MDAC Version ist je nach Systemaufbau ein Zufallsprodukt der Office Version, ...

MDAC nicht. Das wird ganz normal per Windows-Update verteilt. Was du meinst ist die JET-Engine. Diese ist aber schon seit Jahren kein Bestandteil von MDAC mehr.
MDAC ist mittlerweile praktisch nur noch zur Verteilung des ADO/OLEDB, Native Clients für den MS SQL-Server zuständig.

[generic]

Was für ein Cursortyp/CursorLocation/Locktyp ist eingestellt?

Ich mach das in der Regel so wie du das beschreibst.

Code:

TADODataset
CursorLocation:=clUseServer;
.open
.Append
.Post
id := .fieldbyname('id').asinteger;
.close

Bei mir läuft ein MSSQL 2000 oder 2008r2.
Ich nutze die ADO Komponenten welche bei D2007 dabei sind.

Wenn ich mich recht erinnere, stehen die restlichen Werte auf den voreingestellten Werten.

[jobo]

@MDAC:
Ok, ich bin nicht mehr auf dem neuesten Stand. Ab Vista scheinbar automatisch an Bord als WDAC.
Welches OS vorliegt, ist ja nicht angegeben oder?

[haentschman]

Danke nochmal...

Wir benutzen die Standard ADO vom Delphi. In meinem Falle XE. Ich habe beides ausprobiert ServerCursor, ClientCursor. (default Client) Beide hatten das gleiche Ergebnis... nach einem Post wird die Tabelle nicht aktualisiert.

[Perlsau]

@haentschman:

Wäre es nicht möglich, deiner Einfüge-Procedure eine eigene Datenbank-Komponente, z.B. ein AdoDataset bzw. ein AdoQuery zu spendieren und die dann am Ende wieder freizugeben, um danach mit einem einfachen AdoTable.Refresh die Original-Komponente zu aktualisieren?

[haentschman]

Sooo... mal ein Originalkonstrukt:

Delphi-Quellcode:

procedure WriteSort(ds: TDataSet);
    var
        i: integer;
    begin    
        for i := 0 to sl.Count - 1 do begin
            if ds.Locate('ID', Integer(sl.Objects[i]), []) then begin
                ds.Edit;
                try
                    ds.FieldByName(SortFeld).AsInteger := (i + 1) * 2;
                    ds.Post; // -> hier knallts 
                except
                    ds.Cancel;
                    raise;
                end;
            end else begin
                raise Exception.Create('Locate fehlgeschlagen für ID ' + sl.Strings[i]);
            end;
        end;
    end;

.. da das an so vielen Stellen vorkommt glaube ich langsam nicht an einen simplen Fehler.

@Perlsau:
Das geht leider nicht so einfach. Die DataSets kommen aus einem Framework und sind komplett verteilt und verknotet. Da kann man nicht einfach was umoperieren

Nachtrag: Inzwischen habe ich gesehen, daß Stellen, die einen Fehler produzierten, durchlaufen und andere Neue sich beschweren. Das riecht doch nach einem Grundsatzproblem !

Zitat:

'Die zum Aktualisieren angegebene Zeile wurde nicht gefunden. Einige Werte wurden seit dem letzten Lesen ggf. geändert'.

[jobo]

Wo ist da jetzt das Append?
Du bekommst ein Dataset, das offenbar in State dsbrowse ist.
In der Menge lokalisierst Du einen DS, der dann ein Update erhält.

[Bernhard Geyer]

CursorLocation:=clUseServer; ist nur was für Zugriff auf Access.
Für MS SQl-Server sollte man i.d.R. cluseClient nehmen wenn man nicht teilweise sehr schlechte Performance haben will.

[sx2008]

Irgendwie ist mein Beitrag noch nicht richtig angekommen.
Wenn man einen Datensatz in ein TDataset (bzw. TAdoTable oder TAdoQuery) einfügt,
dann kennt nur der Datenbankserver die neue AutoInc-ID.
Im Dataset sind alle Feldwerte bekannt, denn man hat sie ja selbst vor dem Aufruf von Post befüllt,
nur das AutoInc-Feld ist leer.
Dummerweise hat das Primärschlüsselfeld das Attribut Required; d.h. das Feld muss einen Wert <> NULL haben.
Einerseits ist das PK-Feld für den neuen Datensatz leer und andererseits darf es nicht leer sein.

Man muss einfach akzeptieren, dass AutoInc-Felder für manche Anwendungszwecke "böse" sind.
Wie gesagt, wenn man einfach nur die Daten in die DB schreibt nach dem Prinzip "fire and forget", dann sind AutoInc-Felder ok.
Wenn man aber anzeigen möchte, was man gerade eingefügt hat, dann geht das nur mit Klimmzügen.
Es hat auch nichts mit ADO zu tun, sondern das Problem ist ganz grundsätzlicher Art.