refresh der Daten aus einer Datenbank --- aber wo ?

[bernhard_LA]

unsere Anwendung verwendet eine Main Connection (TADOConnection) . Diese Connection wird dann von einer Vielzahl von Unterprogrammen verwendet um Daten zu manipulieren. Die einzelnen Routinen änderen Datansätze ab , fügen hinzu ..... das Übliche halt.
Wir verwenden auch ein DB Grid + Datasource um Daten aus einer Query anzuzeigen.

Wenn ich Datensätze in der Tabelle jetzt hinzufügen kommt das DBGrid damit nicht klar, Fehlermeldung " Key geändert". Der DBNavigator Refresh geht nicht mehr.

ich könnte jetzt folgende machen

Delphi-Quellcode:

  MainStatusBar.SimpleText := 'refresh database ......';

  ADOConnection.Connected := False;

  ADOConnection.Connected := true;

  ///
  /// load again 
  ///
  loadListsFromDB();

Gibt es eine bessere Idee allen an der Connection hängenden Datenverbindungen mitzuteilen "Achtung neue Daten" , bitte alles neu laden!!!!, oder so ähnlich

[nahpets]

query.close + query.open sollte reichen, die Verbindung muss dazu nicht geschlossen werden.

Eventuell reicht auch schon ein query.Refresh.

Dem DBNavigator ein OnClick-Ereignis verpassen und dann

Delphi-Quellcode:

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
  if Button = nbRefresh then Query.Refresh;
end;

könnte aber auch ausreichen.
Wenn nicht dann dort etwas uneleganter

Delphi-Quellcode:

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
  if Button = nbRefresh then begin
    // Irgendwie den aktuellen Datensatz merken
    // und dann
    Query.Close;
    Query.Open;
    // und dann wieder zu dem oben gemerkten Datensatz wechseln.
  end; 
end;

[bernhard_LA]

query.refresh führt zu dieser AV Fehlermeldung ....

[hoika]

Hallo,
fehlt da vielleicht der Primary Key?
Close/Open sollte aber gehen.

[jobo]

Naja, die Meldung scheint ja eine der weniger schlimmen zu sein. Könnte man gezielt abfangen, wohlgemerkt gezielt!
Falls der Datensatz jedoch vermisst wird, muss man das wohl klären.

[haentschman]

Moin...
Meine Lieblingsfehlermeldung mit ADO und MSSQL...

Der Fehler hat sowohl nichts mit dem DBNavigator oder dem Eintragen im Grid zu tun. Er triff einfach beim Post auf. Ob die Tabellen einen PK haben (hatten alle einen) ist unerheblich. Die einzige Variante zur Lösung ist die von nahpets.

Delphi-Quellcode:

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
  if Button = nbRefresh then begin
    // Irgendwie den aktuellen Datensatz merken
    // und dann
    Query.Close;
    Query.Open;
    // und dann wieder zu dem oben gemerkten Datensatz wechseln.
  end;
end;

...das hällt bis zum nächsten Mal mit einer anderen Query. Manchmal half nur das neu Erzeugen der Query. Ich hab nie raus bekommen warum das so ist. ADO hat seinen Beitrag dabei.

Tipps:
1. Der MSSQL Server reagiert immer wieder mal alergisch auf permant offene Querys. Ein modernes DBMS sollte nie mit DB sensitiven Controls (da gehört auch das DBGrid dazu) manipuliert werden, sondern nur mit klassischen Querys mit Transaktionssteuerung. Erst Recht bei MultiUser Umgebungen.
2. Die Querys nur so lange offen lassen wie sie gebraucht werden... Create und try finally Free
3. Wenn es das Projekt zuläßt, sollte ein Umbau auf eine Objektstruktur zur Datenmanipulation helfen. Quasi Intern mit Objekten arbeiten und nur die Datenmanipulation z.B. in einem Interface ablaufen lassen. Der einzige wer die Datenbank kennt ist das Interface.
Sorry: Ich bin Fan von dieser Struktur ohne DB sensitive Controls: GUI <-> Logik <-> DB ...ich konnte es mir leider nicht verkneifen.
https://de.wikipedia.org/wiki/Schichtenarchitektur (siehe Klassische Schichten innerhalb einer mehrschichtigen Architektur)