DBGrid und verknüpfte Tabelle

[Uwe 111]

Hallo

Mein Problem ist, ich habe zwei tabellen verknüpft und möchte das beide Tabellen im DBGrid angezeigt werden.
Wie macht man das am besten

MfG
Uwe 111

[marabu]

Hallo Uwe,

du schreibst von Verknüpfung und gibst TTable als verwendete Komponente an - dann hast du eine Master-Detail-Beziehung eingerichtet? Verwende eine TQuery und verknüpfe beide Tabellen über einen JOIN - die Query kannst du dann genau wie eine Tabelle als DataSet deiner DataSource angeben.

Delphi-Quellcode:

begin
  with Query do
  begin
    SQL.Text := 'select a.kunde, a.nummer, a.datum, p.nummer, p.artikel, p.anzahl '
              + 'from auftraege a, positionen p '
              + 'where a.id = p.auftrag '
              + 'order by a.datum';
    Open;
    // ...
  end;
end;

Grüße vom marabu

[mkinzler]

Statt TTable ein TQuery verwenden. Dort einen SQL-Join über beide Tabellen erzeugen.

[edit:]Marabu war wieder mal schneller! ;-)[/edit]

[marabu]

Hi Markus,

das ist nur gerecht - was glaubst du denn wie lange ich an meinem Beitrag gefeilt habe?

Verschmitzte Grüße nach Heilbronn

marabu

[Uwe 111]

Hallo

Ich komme mit SQL nicht klar, geht es auch nicht anders?

MfG
Uwe 111

[mkinzler]

Poste mal die Beschreibungen der beiden Tabellen, dann können wir die helfen. SQL ist wirklich nicht schwer :-)

[Uwe 111]

Hallo

Tabelle1
Nr_ID = Primärkey
Name
Vorname

Tabelle2
Adressen_Id = Primärkey
PLZ
ORT
Strasse

MfG
Uwe 111

[mkinzler]

Bei der 2. tabelle fehlt irgendwie der Foreign Key, mit dem die Adresse mit dem Namen verknüpft ist.

Tabelle1
Nr_ID = Primärkey
Name
Vorname

Tabelle2
Adressen_Id = Primärkey
Name_Id = Foreign Key auf Tabelle1.Nr_ID
PLZ
ORT
Strasse

Dann würde die SQL-Abfrage

SQL-Code:

select 
    t1.Nr_ID, t1.Name, t1.Vorname,
    t2.Adressen_Id, t2.PLZ, t2.Ort, t2.Strasse
from
    Tabelle1 t1, Tabelle2 t2
where
    t2.Name_ID = t1.Nr_ID;

Noch besser wäre es aber eine Zwischentabelle zu generieren, die eien n zu m Beziehung ermöglicht.

Tabelle3
ID(PK)
Nr_ID (FK)
Adressen_ID(FK)

dann würde die Abfrage so aussehen:

SQL-Code:

select 
    t1.Nr_ID, t1.Name, t1.Vorname,
    t2.Adressen_Id, t2.PLZ, t2.Ort, t2.Strasse
from
    Tabelle3 t3, Tabelle1 t1, Tabelle2 t2, 
where
    t1.Nr_ID = t3.Nr_ID and
    t2.Adressen_ID = t3.Adressen_ID;

[Uwe 111]

Hallo

Erstmal danke. Das mit der SQL habe ich hinbekommen, aber jetzt kann ich nicht mehr editieren.

MfG
Uwe 111

[mkinzler]

Ein Query ist nur direkt bearbeitbar, wenn die Datenbank einen updateable Cursor unterstützt. Die BDE tut das m.W. nicht. Wenn die Abfrage, wie in deinem Fall aus einem Join besteht ist es nochmal schwerer. Wenn die Änderungen sich auf eine Tabelle beziehen kannst du wie folgt vorgehen:
Füge eine TUpdateQuery-Komponente hinzu, füge die gewuünschten DML-Queries ein ( INSERT, UPDATE, DELETE) und Verknüpfe den Query mit der Eigenschaft UpdateObject mit dieser Kompoenente.
Sonst eigene Query/Table-Kompoenente für die Änderungen and den 2/3 Tabellen.

[Uwe 111]

Hallo

Ich weiß nicht ob es so richtig ist,

DeleteSQL

SQL-Code:

delete from Tabelle1
where
  NR_ID = :OLD_NR_ID and
  Name = :OLD_Name and
  Vorname = :OLD_Vorname

InsertSQL

SQL-Code:

insert into Tabelle1
  (NR_ID, Name, Vorname)
values
  (:NR_ID, :Name, :Vorname)

ModifySQL

SQL-Code:

update Tabelle1
set
  NR_ID = :NR_ID,
  Name = :Name,
  Vorname = :Vorname
where
  NR_ID = :OLD_NR_ID and
  Name = :OLD_Name and
  Vorname = :OLD_Vorname

denn wenn ich es über den Navigator neue Zeile öffne bzw speichere kommt eine Exception.
Exception-Klasse EDBEngineError mit Meldung 'Merkmal nicht verfügbar'.

MfG
Uwe 111

[mkinzler]

Wenn die ID-Werte endeutig sind reicht es diese in der where-Clause anzugeben.

SQL-Code:

delete from Tabelle1
where
  NR_ID = :OLD_NR_ID;

bzw.

SQL-Code:

update Tabelle1
set
  NR_ID = :NR_ID,
  Name = :Name,
  Vorname = :Vorname
where
  NR_ID = :OLD_NR_ID;

Was steht in OLD_NR_ID ?

Hier bekommst du wahrscheinlich Probleme,

SQL-Code:

insert into Tabelle1
  (NR_ID, Name, Vorname)
values
  (:NR_ID, :Name, :Vorname);

da NR_ID schon vorhanden ist.

[Uwe 111]

Hallo

In der OLD_NR_ID steht noch nichts.

MfG
Uwe 111

[mkinzler]

Meine letzte Rückfrage hat sich erledigt. Du hast den in UpdateSQL eingebauten Queryeditor benutzt um die Queries zu erzeugen. Die WHERE-Clause kannst du aber trotzdem auf das ID-Feld verkürzen.