[Access] Tabelle hat Beziehung mit sich selbst

[hans ditter]

@DeddyH: deine Antwort klingt unendlich schlau.... aber das sagt mir grade leider gar nichts.

Würdest du dich da bitte nochmal ein wenig erklären? Ich bin noch mitgekommen, dass man eine Combobox nehmen sollte, in der die Namen aller Mannschaften stehen. Aber das mit "ID in Object casten" hab ich dann nicht mehr gerafft.

hans ditter

[Bummi]

Mir ist noch nicht ganz klar wie Du das aufziehen willst.
Wenn man es von der Tabellenkomponentenseite angehen kann könntest Du das Dataset mit den Begegnungen um zwei Lookupfelder erweitern die in der Mannschaftstabelle nachschlagen.
Also neues Feld, Feldtyp nachschlagen,Schlüsselfelder BMan1,Datenmenge DatasetManschaft,Schlüssel IDMannschaft, Ergebnisfeld Bezeichnung Mannschaft, das ganze für 2 Felder.
Die Felder kannst Du aus dem Feldeditor auf die Oberfläche ziehen, das werden dann DBLookupcomboboxen, oder direkt in einem DBGrid verwenden (werden dort auch als Comboboxen angezeigt).

Wenn Du datengebunden ohne Lookupfelder arbeiten möchtest kannst Du auch eine DBLookupcombobox verwenden, Datafield und Datasource leer lassen und nur ListSource,ListField und Keyfield versorgen (aus dem Manschftendataset) Keyvalue kannst Du verwenden um die ID für die angezeigte Mannschaft zu bekommen.

Wenn Dir das alles nicht taugt wirst Du vorzugsweise Objekte basteln und um die Ecke in die Datenbank fassen.

[DeddyH]

Man könnte eine Routine schreiben, die die Mannschaften ermittelt und in einem TStrings-Objekt ablegt:

Delphi-Quellcode:

procedure TDeinForm.ListTeams(OutList: TStrings; ExcludeID: integer = 0);
begin
  Assert(Assigned(OutList));
  OutList.BeginUpdate;
  try
    OutList.Clear;
    Query.SQL.Text := 'SELECT ID, Name FROM Mannschaften WHERE ID <> :id ORDER BY Name';
    Query.ParamByName('ID').Value := ExcludeID; 
    Query.Open; 
    while not Query.EOF do 
      begin 
        OutList.AddObject(Query.FieldByName('Name').AsString, 
          TObject(Query.FieldByName('ID').AsInteger)); 
        Query.Next; 
      end; 
    Query.Close;
  finally
    OutList.EndUpdate;
  end; 
end;

Damit könnte man dann 2 Standard-ComboBoxen befüllen:

Delphi-Quellcode:

ListTeams(cbbHeim.Items);
ListTeams(cbbGast.Items);

Um zu vermeiden, dass dieselbe Mannschaft als Heim- und Gastmannschaft zugewiesen werden kann, filtert man diese heraus, sobald eine Heimmannschaft ausgewählt wurde:
ListTeams(cbbGast.Items, integer(cbbHeim.Items.Objects[cbbHeim.ItemIndex])); Alles getippt und nicht getestet.

[hans ditter]

oh Mist!!!! ich glaube da wurde ich gerade mal gigantisch missverstanden!

Wir müssen den Dateizugriff etc. pp. (also auch "Formulare", Abfragen etc) mit den Accesseigenen Mitteln machen! Wäre das mit Delphi, wüsste ich vermutlich sogar, wie ich's machen soll. Nur mit Access ist das immer alles so umständlich... ich hab da keinen Durchblick!

Ich hoffe ihr könnt mir dabei trotzdem helfen...

hans ditter

[DeddyH]

Hilft dieser Thread?

[Jumpy]

Hallo Hans,

bei Access ist das doch eigentlich alles recht einfach, da aus einem Guß, sprich auch seine GUI klickt man sich in der Regel in Access selber zusammen. Was deine Tabellen angeht.

In der Tabelle Begegnungen. Feld Mannschaft_1. Dieses muss Zahl-Long oder so sein, damit es mit den Autowert-Indizes der Mannschaften Tabelle kompatiebel ist. Das wird alles schon bei der Tabellendefinition festgelegt. Da kann man dann auch den Typ des Anzeigefeldes festlegen, also z.B. Nachschlagefeld (=Combobox). Da dann die Datenquelle auswählen. Da kann man als Datentyp eine andere Tabelle oder Abfrage (=Views in anderen DBs) nehmen. Z.B. die sinngemäß Abfrage "Select Man_ID, Man_Name From Mannschaft". Da festlegen, das über das erste Feld verknüpft wird (die ID), aber festlegen, das zwei Felder angezeigt werden sollen in der Combobox (ID und Name der Mannachaft). Dann kann man noch die Anzeigenbreite angeben. Da z.B. "0cm,5cm" eingeben (ohne die "") so wird die ID 0cm breit, sprich gar nicht, und der Name 5 cm breit angezeigt.
Du hast also dein Ergebnis: Obwohl du die Mannschaft per Name auswählst, wird die ID gespeichert.

hth Jumpy

[DeddyH]

Ich würde das ungefähr so aufbauen:
- eine Tabelle "Saison"
- eine Tabelle "Mannschaften"
- eine Tabelle "Begegnungen"

So, die Begegnungen bekommen dann 4 Felder: ID (Autowert), ID_Saison (FK auf Saison), ID_Heim (FK auf Mannschaften), ID_Gast (nochmal FK auf Mannschaften). Über einen Check-Constraint stellt man sicher, dass sich ID_Heim und ID_Gast unterscheiden müssen (eine Mannschaft kann ja nicht gegen sich selbst spielen). Außerdem bekommt die Kombination aus ID_Saison, ID_Heim und ID_Gast einen Unique-Index verpasst, da es je Saison nur ein Hin- und ein Rückspiel gibt. Somit sollte das recht wasserdicht sein. Inwieweit sich das mit Access machen lässt, kann ich allerdings nicht sagen, da ich keins besitze.