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 :wall: !!!

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

Cu sacht der Planlose Hartey :dancer: :dancer2:

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