Wie kann man einen Bericht (einer DB) in Delphi einfügen ?

[Hartey]

Bisher habe ich nur ausgefunden wie man die Tabellen und abfragen in Delphi hochlädt aber zu nem Bericht habe ich noch garnix gefunden !!!

Jeder hier der eine Lösung oder zumindest ein Einfall hat is hiermit zum Posten verpflichtet !!!

Cu sacht der Planlose Hartey

[merlin17]

Hartey,

bis einschließlich Delphi6 war QuickReport enthalten. Ab Delphi7 ist es RaveReport.
(dies gilt meinees Wissens allerdings nciht für die PE-Ausgaben von Delphi).
-> Mit welchem Delphi arbeitest Du?


thomas

[Hartey]

Merlin,

also ich muss das Programm leider mit Delphi 5 schreiben...
Danke erstmal für dein Post, bis zum nächsten mal!

Cu Hartey

[nieurig]

Hi !
Das kommt ganz stark darauf an, welche DB Du meinst.
Mit Access habe ich mal das hier gemacht.

Code von:
http://www.djpate.freeserve.co.uk/Au...StartingAccess

Delphi-Quellcode:

procedure TDBModul.printAccessReport(ReportName: String); 
const 
  acViewNormal = $00000000; acViewDesign = $00000001; acViewPreview = $00000002; 
  acQuitPrompt = $00000000; acQuitSaveAll = $00000001;acQuitSaveNone = $00000002; 
var 
  Access : Variant; 
  tmpStr : String; 

begin 
  tmpStr := 'Access.Application.8'; 
  if (tmpStr <> '') then begin 
    try 
      Access := GetActiveOleObject(tmpStr); 
      Access.CloseCurrentDatabase; 
    except 
      try 
        Access := CreateOleObject(tmpStr); 
      except 
        on Exception do begin 
          Hinweis('Access ist nicht intalliert.'+#13+'Ausdruck nicht möglich'); 
        end; 
      end; 
    end; 
    // Instanz von Access mit der richtigen Datenbank öffnen und Report drucken 
    try 
      tmpStr := 'Datenbankname'; 
      Access.OpenCurrentDatabase(tmpStr,false); 
      Access.DoCmd.OpenReport( 'ReportName' , acViewNormal, '', ''); 
    except 
      Hinweis('Der benötigte Bericht: ist nicht vorhanden oder fehlerhaft.'); 
    end; 
    Access.Quit(acQuitSaveNone); 
    Access := Unassigned; 
  end; 
end;

Schöne Grüße
Niels