MyBase | Daten zur Tabelle hinzufügen und in der Tabelle suchen

[MrSpock]

Zum Drucken einer Datenmenge würde ich einen Reportgenerator benutzen. Export nach Excel wird (meine ich) von einer TClientDataset Komponente nicht direkt unterstützt und müsste ggf. "händisch" programmiert werden.

[Luki206]

Bitte nicht denken dass ich zu faul bin zu suchen, aber ich finde wirklich nichts wenn ich Google...
Wenn ich google bekomm ich 50 verschiedene Versionen.

@MrSpock: Wie würde ich das anstellen wenn ich einen Reportgenerator beutzen würde, weil dazu hatte ich auch nichts gefunden?

Danke
Luki

[MrSpock]

Das kommt darauf an, welche Delphi Version du hast und welcher Reportgenerator da mitgeliefert wird. Ich nutze FastReport (als Kaufkomponente) und habe früher QuickReport und in einem Bericht auch mal Rave Report benutzt. Welchen hast du?

P.S.: Hab gerade gesehen, dass du XE5 Starter hast. Laut Feature Matrix ist das "FastReport VCL 4 RAD Edition reporting tool" nicht dabei.

[Luki206]

Gäbe es dann noch eine andere Möglichkeit die Daten von CDS in eine Excel Tabelle zuspeichern, wenn ja könnte man das auch mit Word machen? Also dass es dann in Word so aussieht:

Eintrag 24.10.13 # Name: # Vorname: # Adresse:

Ginge etwas so in der Art?

[MrSpock]

Fastreport kann auch nach Excel exportieren. Die günstigste Version kosten 79 US$. Aber wie gesagt, du kannst es auch "händisch" machen, z.B. so ähnlich wie:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
  LCID : Integer;
begin
   LCID := LOCALE_USER_DEFAULT;

   try
      ExcelApplication1.Visible[LCID] := True;
      ExcelApplication1.Workbooks.Open('C:\Lokal\ClientDSExcel.xls',
        EmptyParam, // UpdateLinks: OleVariant
        EmptyParam, // ReadOnly: OleVariant
        EmptyParam, // Format: OleVariant
        EmptyParam, // Password: OleVariant
        EmptyParam, // WriteResPassword: OleVariant
        EmptyParam, // IgnoreReadOnlyRecommended: OleVariant
        EmptyParam, // Orign: OleVariant
        EmptyParam, // Delimiter: OleVariant
        EmptyParam, // Editable: OleVariant
        EmptyParam, // Notify: OleVariant
        EmptyParam, // Converter: OleVariant
        EmptyParam, // AddToMru: OleVariant
        EmptyParam, // Local: OleVariant
        EmptyParam, // CorruptLoad: OleVariant
        LCID);
      ExcelWorksheet1.ConnectTo(ExcelApplication1.ActiveSheet as _Worksheet);
      ExcelApplication1.Range['A1','A1'].Select;
      ExcelApplication1.ActiveCell.Value2  := ClientDataSet1ID.Value;
      ExcelApplication1.Range['B1','B1'].Select;
      ExcelApplication1.ActiveCell.Value2  := ClientDataSet1Name.Value;
   except

   end;
end;

[Furtbichler]

Geht das nicht auch mit ADO?

[MrSpock]

Ich weiß nicht, ob Ado Komponenten in der Starter Version dabei sind.