Mit EkRtf Report aus Ado erstellen

[Schokohase]

Versuch es doch mal so

Delphi-Quellcode:

ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
                                ExtractFilePath(Application.ExeName) + 'Datenbank1.mdb;' +
                                'Persist Security Info=False';

  ADOQuery1.SQL.Text := 'SELECT * FROM rechnungen';
  ADOQuery1.Open(); // statt ExecSQL

  EkRTF1.InFile := ExtractFilePath(Application.Exename) + 'Rechnung_Vorlage.rtf';
  EkRTF1.OutFile := ExtractFilePath(Application.Exename) +'Rechnung_Ausgabe.rtf';

  EkRTF1.ExecuteOpen([ADOQuery1], SW_SHOW);

[Harry M.]

Ich habe jetzt AdoQuery1.SqlExec; durch  ADOQuery1.Open(); ersetzt, sowie das Template von rechnungen.anzahl usw auf AdoQuery1.anzahl angepasst...

Nu läufts. Vielen Dank für Deine Mühe

PS: Eigendlich auch bisschen logisch, wenn ich so drüber nach denke. Ich wähle die Datenbank ja schon mit SELECT an.
1000 Dank noch mal

[Jumpy]

Du könntest jetzt noch die ADOQuery1 in QueryRechnung oder so umbenennen, dann weißt du auch in 3 Monaten noch (ohne auf das SQL-Statement zu gucken) was der Inhalt der Query ist.