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