SQLdb und Firebird - Funktion: Laszarus-Crash

[Joh]

Moin,

ich habe ein Projekt mit einer Artikel-Tabelle, einer m:n-Tabelle und einer subTabelle (HSaetze)
so weit, so gut.

Jetzt sollen im Artikelformular alle Strings der subTabelle in einem Feld angezeigt werden.
eigentlich auch ganz einfach:
Ich habe eine View erstellt, die die Artikelnummer mit den Bezeichnungen aus der subTabelle kombiniert:

Code: Alles auswählen

CREATE OR ALTER VIEW VIEWHSAETZEARTIKEL (ARTIKELID, KURZBEZ)
AS
SELECT HSaetzeArtikel.ArtikelID, LIST(KurzBez, ', ') AS KurzBez   FROM HSaetzeArtikel LEFT JOIN HSaetze ON HSaetzeArtikel.HSatzID = HSaetze.ID  GROUP BY ArtikelID;

Soweit läuft alles.
Allerdings: gebe ich jetzt in einer Query auf der Form ein SELECT Artikel, VIEW... ein, crasht Lazarus.
Hier das Kurzbeispiel für die SQL-Abfrage:

Code: Alles auswählen

SELECT Artikel.id,
       viewHSaetzeArtikel.KurzBez
  FROM Artikel
  LEFT JOIN viewHSaetzeArtikel ON Artikel.ID = viewHSaetzeArtikel.ArtikelID
 ORDER BY Artikel.id  

Also: alles läuft eigentlich, aber mit der Abfrage in einer TSQLQuery, die ich für ein Grid benötige stürzt Lazarus ab, sobald die Funktion LIST() in der VIEW benutzt wird.
Ist das jetzt ein Lazarus-Bug oder sitzt der Fehler vor dem Gerät?

Lazarus 2.2.6, FPC 3.2.2

Gruß
Joh

Ich habe das Beispielprogramm mal angehängt.
Und zusätzlich die Firebird-Runtime (muß ins Programmverzeichnis, dann läuft Firebird ohne Installation)

[af0815]

Ich gehe stark davon aus, das das Ergebnis von List() ganz einfach nicht von SQLdb verwertet werden kann.
Die Funktion ist sehr spezifisch für Firebird, soweit ich das auf die schnelle nachgelesen habe.

[Soner]

Bei mir ist dein Code merkwürdigerweise ohne Fehler durchgelaufen.
Weil, wie schon af0815 erwähnt hat, musste man bei " LIST(KurzBez, '', '') " hoch Kommas verdoppeln. Wenn du SQL-Befehle mit String-Parameter schreiben möchtest, dann musst du Codieren:

Code: Alles auswählen

  sql := ' CREATE VIEW viewHSaetzeArtikel AS'
       + ' SELECT HSaetzeArtikel.ArtikelID, LIST(KurzBez, '''', '''') AS KurzBez' 
       + '   FROM HSaetzeArtikel LEFT JOIN HSaetze ON HSaetzeArtikel.HSatzID = HSaetze.ID'
       + '  GROUP BY ArtikelID';  

Edit:
Vergiss es was ich oben geschrieben habe, du hast es in Quelltext richtig gemacht.
Bei mir hat dein Code keinen Fehler erzeugt.

[Joh]

Ich gehe stark davon aus, das das Ergebnis von List() ganz einfach nicht von SQLdb verwertet werden kann.
Die Funktion ist sehr spezifisch für Firebird, soweit ich das auf die schnelle nachgelesen habe.

Schade...
Ich muß diese Sammelstrings genau so anzeigen und dann darauf einen Filter anwenden können.
Das geht zwar auch von hinten durch die Brust ins Auge, aber eigentlich ist die List-Funktion schon genau das, was ich benötige.

Außerdem sollte Lazarus doch gar nichts von der Funktion mitbekommen.

Ich machee doch nur ein SELECT Datei.?, View.?...
Da sollte es doch Lazarus völlig egal sein, welche Funktionen hinter der View stehen.

Eigentlich sollte es doch sogar egal sein, ob eine Tabelle oder eine View da steht?!

[af0815]

Das Recordset was SQLdb versteht ist bei Fpc relativ empfindlich und wird jetzt im fpc trunk erst um weitere Feldtypen aufgebohrt. Auch multirecordsets gehen bei MSSQL nicht. Auch Stored procedures sind nicht so 100 pro in den Möglichkeiten unterstützt.

Ich gehe davon aus, das ganz einfach der Typ der durch List() erzeugt wird, nicht oder falsch decodiert wird. Und dort scheitert Lazarus. Die basisfunktionallität steck aber in fpc, Lazarus legt nur einen Wrapper drüber.

[Joh]

Der Typ ist:

BLOB SUB_TYPE 1 (Read_Only: No corresponding Table column)

Aber interessanterweise funktioniert das ganze, wenn ich den SQL-Befehl der TSQLQuery direkt eingebe:

Code: Alles auswählen

SELECT Artikel.id, LIST(viewHSaetzeArtikel.KurzBez) AS KurzBez
  FROM Artikel
  LEFT JOIN viewHSaetzeArtikel ON Artikel.ID = viewHSaetzeArtikel.ArtikelID
 GROUP BY Artikel.id
 ORDER BY Artikel.id

Dann nimmt Lazarus den List-Befehl sauber und zeigt mir im Grid die Felder richtig an.
Nur habe ich nicht nur 2 Tabellen und 2 Felder ;-(