Entwickler-Ecke :: Thema anzeigen - Datenbankzugriff mit Query für Quickreport

ims - Fr 24.02.06 15:27
Titel: Datenbankzugriff mit Query für Quickreport

Hallo :D ,
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

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:
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
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  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.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!