Abschneiden von Memo text bei verschachtelten Sql befehlen

tmc2004 · Beiträge: 140 zuviele D7,D8

Ich hab zum Beispiel folgenden Sql befehl

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

sql:='SELECT s1.Name,s1.Keynbr, s1.Ebene1, s1.Ebene2, s1.Beschreibung,'+
's1.Preis, s1.schlüsselnr,p1.option, s1.bild,s1.bildname,s1.Typ, p1.menge, '+
' p1.alternative,s1.opid,s1.oberopid,s1.pflichtid,s1.loader,s1.nichtmit,s1.ausschlid '+
'FROM [SELECT Angebotsid,option,alternative, Menge, optionszuordnungsid,schlüsselnr FROM angebot '+
'WHERE angebotsnummer ="'+angebotsnr+'" and option=cint("'+optioncombo.Text+'") and alternative=cint("'+ComboBox8.text+'")]. AS p1 RIGHT JOIN '+
'[SELECT '+page+'.Typ, '+
page+'.Name, '+page+'.Keynbr, '+page+'.Ebene1, '+
page+'.Ebene2, '+page+'.Beschreibung, '+page+'.Preis, '+
page+'.schlüsselnr, '+page+'.bild, '+page+'.opid, '+
page+'.loader, '+page+'.oberopid, '+page+'.pflichtid, '+
page+'.nichtmit, '+page+'.ausschlid, '+page+'.bildname '+
'FROM '+ page +' GROUP BY '+page+'.Typ, '+
page+'.Name, '+page+'.Keynbr, '+page+'.Ebene1, '+page+'.Ebene2, '+
page+'.Beschreibung, '+page+'.Preis, '+page+'.schlüsselnr, '+
page+'.bild, '+page+'.opid, '+page+'.loader, '+
page+'.oberopid, '+page+'.pflichtid, '+page+'.nichtmit, '+
page+'.ausschlid, '+page+'.bildname '+
'HAVING ((('+page+'.Ebene1)='+
'"'+DataModule1.adotree1.fieldbyname('keynbr').AsString+'") and loader=false '+
'and ausschlid=0 or ausschlid'+ausid+')'+
'ORDER BY '+ page+'.Typ;'+
']. As s1 on ' +
's1.schlüsselnr=p1.schlüsselnr '+
'WHERE (((s1.Ebene1)="'+DataModule1.adotree1.fieldbyname('keynbr').AsString+'")) order by typ';

Wenn ich jetzt die Beschreibung in ein Memo lade über

markieren

Delphi-Quelltext

1:	memo1.lines.add(adoquerybla.fieldbyname('beschreibung').asstring);

Wenn ich jetzt allerdings den schlüssel nehme und über einen Seperaten sql/query aufrufe ist alles da. Tritt Teilweise schon bei etwas einfachen sql Befehlen auf. Das ich String nehm kann ja nicht die Ursache sein da es ja mit einen einfachen sql Funktioniert.

Habe im Hintergrund eine Access Datenbank laufen.

Hoffe mir kann jemand weiter helfen da es ziemlich nervig ist immer wieder einen zweiten aufruf zu machen.

Gruß
tmc2004

_________________
it's not a bug it's a feature

jasocul · Verfasst: Di 18.01.05 08:07

Probier mal:

markieren

Delphi-Quelltext

1:	memo1.lines.Text := adoquerybla.fieldbyname('beschreibung').asstring;

Wenn das nicht funktioniert, versuch doch mal ein DBMemo mit dem Feld zu verknüpfen.

tmc2004 · Beiträge: 140 zuviele D7,D8

Geht leider auch nicht. Es scheint entweder ein Sql Problem zu sein (eher unwahrscheinlci da in der Datenbank in der Abfrage der Komplette Text erscheint) oder wie ich denke das es ein Problem mit den Ado Bausteinen gibt bei Komplexen Strukturen.

Gruß
tmc

_________________
it's not a bug it's a feature

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme