AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Refresh meiner Db nach Änderung der Tabelle funzt nicht
Thema durchsuchen
Ansicht
Themen-Optionen

Refresh meiner Db nach Änderung der Tabelle funzt nicht

Offene Frage von "torud"
Ein Thema von torud · begonnen am 14. Feb 2006 · letzter Beitrag vom 15. Feb 2006
 
torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#1

Refresh meiner Db nach Änderung der Tabelle funzt nicht

  Alt 14. Feb 2006, 10:27
Datenbank: Access • Zugriff über: JET
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...
Danke
Tom
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:28 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz