Refresh meiner Db nach Änderung der Tabelle funzt nicht

[torud]

Hallo Wissende,

ich habe eine Access-DB, die aus mehreren Tabellen besteht. Meine sogenannte Haupttabelle heisst Medien.

Sie hat die Felder: Index, Titel usw.

Die andere Tabelle heisst Filme
Sie unter anderem die Felder: Index, MedienIndex, Titel, Sportart

Es gibt eine Beziehung zwischen beiden Tabellen - und zwar zwischen
Medien Feld(Index) und Filme Feld(MedienIndex)

Nun mein Problem. Der User muss in der MedienTabelle den Index neu vergeben. Dies klaptt ganz gut und so von mir realisiert.

Delphi-Quellcode:

        DataModule1.ADOTable1.Edit;
        DataModule1.ADOTable1.FieldByName('Index').Text:=ed_nr_ds.Text;
        DataModule1.ADOTable1.FieldByName('Titel').Text:=ed_titel_ds.Text;
        DataModule1.ADOTable1.Post;

Wenn ich nun auf das in dem DB-Grid auf den geänderten Datensatz klicke, werden leider nicht mehr wie vorher in dem zweiten DB-Grid die zum Medium gehörenden Filme angezeigt, zumindest nicht bei dem geänderten Medium. Starte ich das Programm neu, klappt es aber.

Muss ich nun nach jeder Änderung die Connection zur DB zurücksetzen und neu aufbauen, nur damit das funktioniert oder gibt es da eine einfachere Lösung?

Und wie kann ich nach dem Post, das geänderte Medium im DBGrid als aktuell setzen? Bisher habe ich das über die RecordNo gemacht. Da sich aber der index ändert, ändert sich auch die RecordNo.

Folgendes führe ich noch aus, wenn sich die MedienTabelle ändert...

Delphi-Quellcode:

       if DataModule1.ADOTable1.RecordCount > 0 then
         begin
          DataModule1.ADOTable2.Filtered:=False;
          DataModule1.ADOTable2.Filter:='MedienIndex ='+QuotedStr(DataModule1.ADOTable1.FieldByName('Index').AsString);
          DataModule1.ADOTable2.Filtered:=True;
         end;

Danke für nen Tipp...

[Bernhard Geyer]

Daran ist der performanceoptimierente Cach der JET-Engine schuld.
Du mußt ihn selbst Löschen

[torud]

hm, das scheint gar nicht so einfach, wie im Artikel beschrieben, denn ich erhalte beim Compilieren eine Fehlermeldung

Undefinierter Bezeichner 'Active Connection'

und springt dann in die Zeile:

Delphi-Quellcode:

function  TReplica.Get_ActiveConnection: IDispatch;
begin
  Result := DefaultInterface.ActiveConnection;
end;

Das Ganze passiert in der Unit: JRO_TLB

Und selbst wenn ich die gesamte Connection schliesse und wieder erneut öffne, klappt es nicht. Erst wenn ich das Programm als Ganzes neu starte, ist alls aktualisiert vorhanden. Gibt es noch einen anderen Weg, oder wer kann mir helfen es doch noch hinzubekommen?

[torud]

keiner eine idee?

[mikhal]

Verwende die Methode Requery (auch bei AdoTable!), um die Datenmenge zu aktualisieren, eventuell mußt du dir den aktuellen Datensatz merken und via Locate den Cursor neu positionieren.

Grüße
Mikhal

[torud]

Hallo Mikhal,

Zitat:

Verwende die Methode Requery (auch bei AdoTable!), um die Datenmenge zu aktualisieren, eventuell mußt du dir den aktuellen Datensatz merken und via Locate den Cursor neu positionieren.

Folgendes mache ich derzeit, ohne dass es zum Erfolg führt.

Delphi-Quellcode:

        DataModule1.ADOTable1.Edit;
        DataModule1.ADOTable1.FieldByName('Index').Text:=ed_nr_ds.Text;
        DataModule1.ADOTable1.FieldByName('Titel').Text:=ed_titel_ds.Text;
        DataModule1.ADOTable1.Post;

        DataModule1.ADOTable1.Requery;
        DataModule1.ADOTable2.Requery;

        DataModule1.ADOTable1.Active:=false;
        DataModule1.ADOTable2.Active:=false;

        DataModule1.ADOTable1.Active:=true;
        DataModule1.ADOTable2.Active:=true;

        form1.db_sortieren;
        
        DataModule1.ADOTable1.Insert;
        DataModule1.ADOTable1.Cancel;
        form1.db_sortieren;

Requery habe ich schon seit gestern drin, ohne dass es wirklich hilft.

Das mit dem Datensatz merken ist irgendwie gar nicht so einfach, da sich ja Index ändert. Das heisst, ich müsste irgendwie erstmal nach dem neuen Index suchen, oder? Im Notfall würde ich das über eine Schleife machen, finde das aber selbst polnisch. Aber dieses Problem ist eher sekundär.

[torud]

Also das mit dem Locate funktioniert einwandfrei!

Bleibt nur noch das Problem mit dem RefreshCache