SQL findet die Tabelle nicht

[vagtler]

Ist denn TDBQ überhaupt mit dem Grid verbunden?

[LingNeu]

@ vagter
danke dir!
mensch bin ich blöd - das ist wahrscheinlich die lösung.
man sieht halt, das ich wenig ahnung vom handling her habe. die sql anweisungen sind weniger die schwierigkeiten.
ich habe die TDBQ mit einem Grid verbunden und siehe da -> es kommt zumindestens die mastertabelle richtig sql-gefiltert.
was ich noch nicht fertigbringe ist das 2. Grid für die detailtabelle - da klappt es noch nicht. ich erhalte immer die inhalte von der mastertabelle.

viele grüße
LingNeu

[LingNeu]

hallo,
noch eine frage, die mir vielleicht jemand beantworten könnte.
ich hab ja die TDBQ (Query) welche jetzt mit MD (Datenbank) verbunden ist und die Query ist über eine Datasource mit dem Grid verbunden. Es wird nun bei einem entsprechenden SQL-Statement der gewünschte Datensatz der Mastertabelle angezeigt.
Muss ich für die Detailtabelle nochmals eine Query zur Verfügung stellen und nochmals eine Datasource, welche dann mit dem zweiten Grid (Detailtabelle) angezeigt wird und wie kann ich dann die Relation herstellen.
Bei den normalen bisherigen Grids habe ich mich auf die vorherigen Datasources bezogen, welche über die Tabellen verlinkt waren. Dort war auch in der Detailtabell in den Properties als Mastersource DSM (DatasourceMaster) eingetragen.


Danke für eine Info
LingNeu

[LingNeu]

hallo,
nun habe ich herumprobiert. Mit einer zweiten Query kann ich zumindestens die Detailtabelle anzeigen lassen. Leider kommen immer alle Datensätze.
Könnte mir bitte noch jemand dabei helfen, die SQL-Anweisung zu korrigieren, damit nur die zum Mastersatz gehörigen Daten angezeigt werden.
Besten Dank
LingNeu

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
// autos ausgeben
// TDBQ  für das Master-Grid
// TDBQ2 für das Detail-Grid

TDBQ.Close ;
TDBQ.SQL.Clear ;
TDBQ.SQL.Text := 'select * from masterdb where mtyp = '+ QuotedStr('auto') ;
TDBQ.Open ;

TDBQ2.Close ;
TDBQ2.SQL.Clear ;
// Das funktioniert - es werden allerdings alle daten angezeigt
// TDBQ2.SQL.Text := 'select * from detaildb';

// Nachfolgendes funktioniert leider nicht wie gewünscht
TDBQ2.SQL.Text := 'select * from detaildb where dtyp in (select mID from masterdb)' ;
TDBQ2.Open;
end;

[p80286]

Wenn man die Tabelleninhalte kennen würde wäre es etwas einfacher, so tippe ich auf

Code:

TDBQ.Close ;
TDBQ.SQL.Clear ;
TDBQ.SQL.Text := 'select detaildb.* from masterdb,detaildb '+
                 'where masterdb.mtyp = '+ QuotedStr('auto')+' '+
                 '  and detaildb.dtyp = masterdb.mid';
TDBQ.Open ;

Gruß
K-H

[Sir Rufo]

Ich fasse mal kurz zusammen:

Du hast 2 Äpfel (Tabellen) miteinander verknotet (Link) und das Ergebnis ist wie erwartet.
Jetzt nimmst du eine Birne (Query) und wunderst dich, das beide Äpfel noch verknotet sind und nicht der eine Apfel mit der Birne. Woher soll der Apfel wissen, dass er sich jetzt mit der Birne verknoten soll? ;)

[LingNeu]

@K-H
VIELEN DANK - es funktioniert bestens!

Gruss LingNeu

[Bummi]

suchst Du das ?

Delphi-Quellcode:

TDBQ2.SQL.Text := 'select * from detaildb where dtyp =:mID)' ;
//bei
TDBQ2.Datasource:=TDBQ_src;
TDBQ2.MasterFields:='mID';
TDBQ2.IndexFieldNames := 'dtyp';