[Access] Tabelle hat Beziehung mit sich selbst

[Bummi]

sowas?

[hans ditter]

Hallo Bummi,

ja, ich schätze schon. Wobei ich feststellen musste, dass nicht das das wirkliche Problem ist, sondern etwas anderes... Trotzdem danke für deine Mühe!

Ich hol dafür nochmal etwas weiter aus. Mannschaften werden mit einem Schlüssel gespeichert, der automatisch weiterzählt.
Wenn ich jetzt eine neue Begegnung per Formular erstellen möchte, dann möchte ich aber nicht den Primärschlüssel eingeben müssen, sondern den Namen der Mannschaft. Ich dachte, dass wäre das Problem mit der Beziehung, aber scheinbar nicht...

Kann mir dazu noch jemand weiterhelfen?

hans ditter

[DeddyH]

Willst Du den Namen händisch eingeben? Ich würde ja eine ComboBox nehmen, in der die Mannschaften gelistet werden. Die ID der jeweiligen Mannschaft kann man ja unsauber gecastet in den Objects ablegen.

[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