Beziehungen zu Stored Procedures

[marciboy]

Hallo

ist es möglich zwei Stored Procedures miteinander zu verknüpfen?
Ich habe zwei Tabellen und zwei Procedures. Hersteller und Marke sollen per Delphi eine Beziehung bekommen aber wie?


Gruß
Marc

[mkinzler]

Wie sollen diese verknüpft werden?

[marciboy]

Hallo

erstmal Danke für die rasche Antwort.
über die Herstellernummer sollen sie verknüpft werden.

Stored für Hersteller:

SQL-Code:

begin
  if (:p_khernr = '') then
  for
    select khernr, upper(bez) from tabhersteller
    where anzeige = 'J'
    into :khernr, :bez
  do
  begin
    suspend;
  end
  else
  for
    select khernr, upper(bez) from tabhersteller
    where anzeige = 'J' and khernr = :p_khernr
    into :khernr, :bez
  do
  begin
    suspend;
  end
end

Stored Modell:

SQL-Code:

begin
  if (:p_kmodnr = '') then
  for
    select * from tabmodell
    where khernr = :p_khernr
    order by sort1
    into :KMODNR,:BEZ,:KHERNR
         
  do
  begin
    suspend;
  end
  else
  for
    select * from tabmodell
    where kmodnr = :p_kmodnr
    order by sort1
    into :KMODNR,:BEZ,:KHERNR
         
  do
  begin
    suspend;
  end
end

Gruß
Marc

[mkinzler]

SQL-Code:

execute procedure

[marciboy]

ja das habe ich schon oft gelesen, nur wie??? Ich google seit Tagen lese in jedem Forum aber ich bekomme es einfach nicht hin


Gruß
Marc

[alzaimar]

Eine Stored Procedure liefert normalerweise keine Ergebnismenge. Dafür gibt es die TxxxStoredProc-Komponenten, die eben kein Ergebnis erwarten.

Deine Stored Procedures liefern jedoch ein Ergebnis, daher eignet sich die TxxxStoredProc-Komponente nicht, sondern eine TxxxQuery-Kompo. Die SQL-Eigenschaft der Query-Komponente muss nicht mit einem 'SELECT' beginnen, sondern kann auch eine Stored Procedure aufrufen.

[marciboy]

meine Queries sehen so aus

für Hersteller: select * from p_hersteller(:p_khernr) order by bez
für Modell: select * from p_modell(:p_khernr,:p_kmodnr)


das Problem ist, das er die beiben nicht verknüpft außer wenn ich manuell über Value eine Herstellernummer eingebe.

Gruß
Marc

[mkinzler]

SQL-Code:

execute procedure <procedurename>(<Parameter>) returning_values <Rückgabe>;

[marciboy]

Folgende Fehler treten auf:

execute (Undefinierter Bezeichner)
returning_values (unbekannte Anweisung)

Gruß
Marc

[mkinzler]

execute procedure ist ein psql-kommando, da ich gedacht habe du willst innerhalb einer SP eine andere ausführen. das scheint ja nicht der Fall zu sein.

[marciboy]

er soll mir eigendlich nur zum Hersteller die Modelle anzeigen später sollen noch Typen folgen.

Gruß
Marc

[mkinzler]

Dann frage die SP doch einfach per select ab.

[marciboy]

Wenn ich das so mache

für Hersteller: select * from p_hersteller(:p_khernr) order by bez
für Modell: select * from p_modell(:p_khernr,:p_kmodnr)



dann zeigt er mir zwar die Hersteller an aber keine Modelle. Außer ich schreibe im Query Object unter Value die Herstellernummer rein dann zeigt er mir die Modelle an aber das ganze soll automatisch passieren.

Gruß
Marc

[mkinzler]

Dann musst du halt eine master/detail-Beziehungen zwischen den beiden DataSets aufbauen (.MasterSource)

[marciboy]

wie müsste ich das machen?

[mkinzler]

Sxchau dir mal das ...\IBMastApp Demo an.

[marciboy]

das Demo ist sehr mächtig zumindest für mich. Kennst du vielleicht etwas einfacheres??

Gruß
Marc

[mkinzler]

Grundsätzlich musst du nur die DataSource, die mit dem Master-DataSet verknüpft ist als .MasterSource des Detail-DataSets auswählen, das PK-Feld in .MasterFields auswählen und Query anpassen (lassen)

[marciboy]

woher bekomme ich denn ein Master-DataSet?
Musst wissen ich bin Angfänger :-)


Gruß
Marc

[mkinzler]

das Master-DataSet ist der Query, der als Master fungiert, in deinem Fall die mit den Herstellern.

[marciboy]

muß ich das mit IBtable machen?

[mkinzler]

Besser TIBQuery.

[marciboy]

Also TIBQuery ist mit DataSource über DataSet verbunden

[mkinzler]

MasterSource.DataSet -> qHersteller
qModell.MasterSource -> MasterSource;

[marciboy]

wo schreib ich das denn rein

Vielen Dank für die Mühe

[mkinzler]

Am Anfang kannst du es ja im OI auswählen.

[marciboy]

in den Eigenschaften finde ich kein Feld oder ich bin blind

[mkinzler]

Okay Im TIBQuery scheint es diese Eigenschaft nicht zu geben. dann musst du wohl oder über TIBTable nehmen.

[marciboy]

das habe ich auch schonmal versucht nur dann zeigt er mir alle modelle aus der datenbank an.

[mkinzler]

Im Master soll auch der Hersteller abgefragt werden, im Detail-DS dann Filter auf aktiven Hersteller

[marciboy]

ich glaub ich strapazier langsam deine nerver aber wie geht denn das???

[mkinzler]

Poste mal dein Projekt.

[marciboy]

er zeigt mir mit ibtable alles nur nicht verknüpft.

[mkinzler]

Also
2 TIBTables
Master -> Hersteller
Detail -> Modelle

2 TDataSources
MasterSource -> Master
DetailSource -> Detail

Dann
Detail.MasterSource mit MasterSource verbinden
Und unter Detail.MasterFields Verknüpfungen von Detail-FK zu Master-PK setzen

oder manuell

Delphi-Quellcode:

Detail.MasterFields := 'khernr';
Detail.DeatilFields := 'kmodnr';

[marciboy]

super vielen dank jetzt klappt es

[marciboy]

wie ist es eigendlich wenn man aus 2 tabellen abfragt? D.h. 2 tabellen und ein grid.

[mkinzler]

Dann brauchst du einen Join.

[omata]

Hallo marciboy,

deine eigentliche Frage ist ja schon beantwortet.

Ich habe aber nochmal eine Frage/Anmerkung...

Wieso nimmst du für so etwas Prozeduren? Das kann man doch auch mit einer einfachen SQL-Anweisung lösen. Meine Gedanken dazu...

SQL-Code:

SELECT m.*, upper(h.bez) bez
FROM tabmodell m
LEFT JOIN tabhersteller h
  ON     h.anzeige = 'J'
     AND m.khernr = h.khernr
WHERE (m.khernr = :p_khernr AND '' <> :p_khernr)
   OR (m.kmodnr = :p_kmodnr AND '' <> :p_kmodnr)
ORDER BY m.sort1

Dann kann man auch die bestehenden Tabellenbeziehungen nutzen und man stellt nur eine SQL-Anfrage an die Datenbank.

Gruss
Thorsten