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

[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