Mit EkRtf Report aus Ado erstellen

[Harry M.]

Die Idee klingt super, aber leider kein Hauptgewinn. Ich habe das \Scan(rechnungen)\ durch \Scan(ADOQuery1)\ erstezt. Fehlermeldung: Scan Alias not found: ADOQuery1
Ich muss im Template den Tabellennamen übergeben damit RkRtf auch weiß welche Tabelle zu lesen ist wenn mehrere vorhanden sind.

[Schokohase]

Zitat von Harry M.:

Ich muss im Template den Tabellennamen übergeben damit RkRtf auch weiß welche Tabelle zu lesen ist wenn mehrere vorhanden sind.

NEIN, das ist so leider nicht dokumentiert. Wenn du mehrere DataSets benötigst, dann musst du diese auch übergeben:

Delphi-Quellcode:

EkRtf1.ExecuteOpen(
  [ADOQuery1, ADOQuery2, ADOQuery3], // Da, ganz viele
  SW_SHOW);

und im Report diese ([ADOQuery1, ADOQuery2, ADOQuery3] ) DataSet-Namen verwenden

[Harry M.]

Bei mir läuft folgender Code:

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.ExecSQL;

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

  EkRTF1.ExecuteOpen([ADOQuery1], SW_SHOW);

Die Zeile EkRTF1.CreateVar('database_name',dbname); fehlt bei mir nicht, weil ich in meinem Template keinen Marker mit dem Namen "database_name" habe. Im Demo wird hier lediglich die var dbname mit dem Inhalt Nwind.mdb an den den Marker übergeben.

Ich habe nur 1 Datasheet. Und der Report läuft nicht. Weder mit dem Tabellennamen "rechnungen" und auch nicht mit dem Datensheet-Name "AdoQuery1".

[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.