Absolute Database-Fastreports

[blondervolker]

Hallo,

hab eine Absolute DB mit nur ca.21.000 Datensätzen.Hab eine einfache Abfrage im frxUserDataset gemacht mit:Select ID, DEU, Preis from Dat
Das geht auch alles.Aber 21.000 Datensätze in der Vorschau mit Fastreports dauert ca. 10 min. 453 Seiten.

Daten zur ABS DB sind:

Page Size: 8112

Page count in Extent:128

Max Connections: 10

Crypto Algorithm: Rijndael 256
+ Passwort

Geht dies auch schneller?

[Furtbichler]

Also bei mir wird ein Dummy-Report (4 Spalten) mit einem FrxuserDataset mit 21000 Records in ca. 0.01 Sekunden angezeigt.
Sind Bilder dabei?
Wie lange dauert die Query?
Wie verbindest Du die ADS-Query mit dem TfrxUserDataset?

[blondervolker]

Es sind keine Bilder und keine Blobfelder dabei.
Im Report habe ein Häckchen TfrxUserDataset.Dort wird direkt die Abfrage automatisch angezeigt.

Im frxUserDataset Objektinspektor mit:Select ID, DEU, Preis from Dat

Das war es schon.
ID=Autoid
Preis=Float
DEU=String

[Furtbichler]

Ich bin vermutlich dumm wie Brot, aber ein TfrxUserDataset hat -zumindest bei mir- nix zum Anlegen einer Query. Da kann man einen 'OnGetValue' und ein 'OnCheckEof' Event setzen.

Delphi-Quellcode:

procedure TForm14.frxUserDataSetCheckEOF(Sender: TObject; var Eof: Boolean);
begin
  eof :=  frxUserDataSet.RecNo=21000;
end;

procedure TForm14.frxUserDataSetGetValue(const VarName: string;
  var Value: Variant);
begin
  value := intToStr(frxUserDataSet.RecNo)+':'+VarToStr(VarName);
end;

Man kann da noch 'OnNext' und 'OnPrior' setzen, aber ich brauch das hier für die Demo nicht. 'RecNo' zählt von alleine durch.

[blondervolker]

Hab mal ein Bildchen drangehangen.Bei mir im Objektinspektor kannste da was tun...

[Furtbichler]

Ja. In 'Fields' trägt man die Feldnamen ein. Im Event 'OnGetValue' wird für jeden Record der Feldname übergeben und man muss 'Value' setzen. Stechickaufmschlauch?