Mit Bookmarks arbeiten

[barnti]

Hallo,
ich möchte die Position des Datensatzzeigers vor dem 'posten' abspeichern, um nach dem Senden an die DB zu diesem Datensatz zurückzukehren:

Delphi-Quellcode:

procedure TDM_Database.PreparePost(Grid: TDBGrid);
var
  Bookmark: TBookmark;
begin
  Bookmark:= Grid.DataSource.DataSet.GetBookmark;
  Grid.DataSource.DataSet.Post;
  if Grid.DataSource.DataSet.BookmarkValid(Bookmark) then
    Grid.DataSource.DataSet.GotoBookmark(Bookmark);
end;

Mein Problem ist, dass GetBookmark mir 'NIL' zurückliefert. Liegt das daran, dass sich der entsprechende Datensatz im 'insert' befindet?
Eine ID gibt es noch nicht, da 'insert'. So kann ich auch 'locate' nicht verwenden...
Wie könnte ich das sonst lösen?

[mikhal]

Schon mal versucht, deine Procedure im Eregnis AfterPost einzusetzen? Der Datenbank-Cursor sollte dann eigentlich noch immer auf dem eingefügten Datensatz stehen.

Im Übrigen: Das DBGrid ist lediglich eine visuelle Darstellung deiner Query, Table oder was du als DataSet einsetzt. Du solltest deshalb besser direkt auf diese zugreifen - also als Übergabeparameter nicht dein DBGrid sondern dein DataSet verwenden.

Grüße
Mikhal

[Sharky]

Zitat von barnti:

....Eine ID gibt es noch nicht, da 'insert'.....

Hai barnti,

und wieder die Frage aller Fragen: Welche Datenbank

[barnti]

Hallo,

Zitat von mikhal:

Schon mal versucht, deine Procedure im Eregnis AfterPost einzusetzen? Der Datenbank-Cursor sollte dann eigentlich noch immer auf dem eingefügten Datensatz stehen.

nach dem Posten steht der Datensatzzeiger wieder auf dem ersten Datensatz. Daher muss das 'Bookmarken' vor dem Ändern des Datenmengenzustandes geschehen.
Da kein gültiger Bookmark geliefert wird, wenn sich das Dataset im Insert befindet unterscheide ich zwei Fälle:

1. Bookmark ungültig:
Den letzten Datensatz anzeigen

2. Bookmark gültig:
Diesen zum aktuellen machen.

So scheint es zu funktionieren!

Zitat von mikhal:

Im Übrigen: Das DBGrid ist lediglich eine visuelle Darstellung deiner Query, Table oder was du als DataSet einsetzt. Du solltest deshalb besser direkt auf diese zugreifen - also als Übergabeparameter nicht dein DBGrid sondern dein DataSet verwenden.

Der Code ist lediglich ein Ausschnitt der eigentlichen Behandungsroutine

[barnti]

@sharky: mysql. Aber das ist hier nicht relevant...Oder?

[Sharky]

Zitat von barnti:

@sharky: mysql. Aber das ist hier nicht relevant...Oder?

Doch, ist es
Beim mysql kannst Du nämlich sehr leicht die ID des zuletzt eingefügeten Datensatzes ermitteln

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  last_id : Integer;
begin
  with query1 do
  begin
    Close;
    Sql.Text := 'INSERT INTO ........';
    ExecSQL;
    Close;
    Sql.Text := 'SELECT LAST_INSERT_ID()';
    Open;
    last_id := Fields[0].AsInteger;
    Close;
  end;
end;

[barnti]

Hallo Sharky,

Zitat von Sharky:

Zitat von barnti:

@sharky: mysql. Aber das ist hier nicht relevant...Oder?

Doch, ist es
Beim mysql kannst Du nämlich sehr leicht die ID des zuletzt eingefügeten Datensatzes ermitteln

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  last_id : Integer;
begin
  with query1 do
  begin
    Close;
    Sql.Text := 'INSERT INTO ........';
    ExecSQL;
    Close;
    Sql.Text := 'SELECT LAST_INSERT_ID()';
    Open;
    last_id := Fields[0].AsInteger;
    Close;
  end;
end;

Das ist mir bekannt, bringt mich bei dem Probelem allerdings nicht weiter. Siehe oben...

[Sharky]

Zitat von barnti:

...Das ist mir bekannt, bringt mich bei dem Probelem allerdings nicht weiter. Siehe oben...

Verstehe ich jetzt nicht. Ich denke Du möchtest nach dem Insert zu dem neuen Datensatz springen. Und Du hast geschreiben:

Zitat:

...Eine ID gibt es noch nicht, da 'insert'. So kann ich auch 'locate' nicht verwenden...

Jetzt kennst Du doch die ID und kannst im AfterInsert Ereigniss zu dem neuen Datensatz springen.
Oder verstehe ich dich jetzt ganz falsch?

[barnti]

Hallo sharky,

es geht nicht nur um das Insertieren. Nachdem sich der Zustand der Datenmenge ändert, wie z.B. 'Post', möchte ich zu dem bearbeiteten Datensatz zurückkehren. Das gilt das auch für das Editieren. Da ich meine Behandlungsroutinen vor dem Bearbeiten aufrufen möchte gelingt mir das wie oben aufgezeigt.

[ZeroQool007]

Hallo, gibt es den Last Insert Befehl auch für den normalen SQL Server 2000? thx