Hallo
,
ich habe eine kleine Datenbankanwendung geschrieben, welche Adressen und Telefonnummern speichert. Das funktioniert auch sehr gut. Jetzt möchte ich die Daten mit dem Quickreport drucken, dazu benutze ich eine Querykomponente,den Quickreport und ein zweites TForm. Der Querykomponete habe ich den Sql befehl
Quelltext
1:
2:
3:
4:
5:
6:
7:
| Select
name + ', '+vorname AS namevorname,
telefon
Form
adress
order by
namevorname |
zugewiesen. Die QRDBtexte verbinde ich ganz einfach mit dem Query, das geht auch gut, aber wenn ich das Feld zu weisen will kommt diese Meldung: Ungültiges Schlüsselwort Symbol-String: adress order Zeilennummer:5.
Daraus schließe ich, dass das Query nicht auf die Datenbank zugreifen kann. Ich habe schon viel versucht und auch die Forensuche benutzt, habe aber den Fehler nicht gefunden. Ich würde mich freuen, wenn mir jemand helfen könnte.
Vielen Dank IMS
Das ist der Quellcode meiner Druckfunktion
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
| unit Udruckhdb;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Qrctrls, QuickRpt, ExtCtrls, DB, DBTables, StdCtrls;
type
TFdruckHdb = class(TForm)
Query1: TQuery;
QuickRep1: TQuickRep;
PageHeaderBand1: TQRBand;
DetailBand1: TQRBand;
PageFooterBand1: TQRBand;
QRLabel1: TQRLabel;
QRDBText1: TQRDBText;
QRGroup1: TQRGroup;
QRLabel2: TQRLabel;
QRShape1: TQRShape;
QRDBText2: TQRDBText;
QRSysData1: TQRSysData;
procedure FormCreate(Sender: TObject);
procedure QRLabel2Print(sender: TObject; var Value: String);
private
public
end;
var
FdruckHdb: TFdruckHdb;
implementation
uses Uhaendler;
{$R *.DFM}
procedure TFdruckHdb.FormCreate(Sender: TObject);
begin
Query1.active:=true;
end;
procedure TFdruckHdb.QRLabel2Print(sender: TObject; var Value: String);
begin
value:= copy(Query1['namevorname'],1,1);
end;
end. |
ims
wenn ich euch wegen solch eines kleinen Fehlers nerven mußte.