was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

32 Visitors Online


 
...die Vorschau von MS Access Reports anzeigen?
Autor: Mike Shkolnik
Homepage: http://www.scalabium.com
[ Tip ausdrucken ]  

Tip Bewertung (4):  
     


uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  
Access: Variant;
begin
  
{open the Access application}
  
try
    
Access := GetActiveOleObject('Access.Application');
  except
    
Access := CreateOleObject('Access.Application');
  end;
  Access.Visible := True;

  { open the database 
   The second parameter specifies whether you want to open the
   database in Exclusive mode}
  
Access.OpenCurrentDatabase('C:\test.mdb', True);

  { open the report 
   The value for the second parameter should be one of
   acViewDesign, acViewNormal, or acViewPreview. acViewNormal, which is the
   default, prints the report immediately. If you are not using the type
   library, you can define these values like this: 

  const 
    acViewNormal = $00000000; 
    acViewDesign = $00000001;
    acViewPreview = $00000002; 

  The third parameter is for the name of a query in the current 
  database. The fourth parameter is for a SQL WHERE clause - the string must
  be valid SQL, minus the WHERE.}
  
Access.DoCmd.OpenReport('A Report name', 2, EmptyParam, EmptyParam);

  {close the database}
  
Access.CloseCurrentDatabase;

  {close the Access application}
  {const
    acQuitPrompt = $00000000; 
    acQuitSaveAll = $00000001;
    acQuitSaveNone = $00000002;}
  
Access.Quit(1);
end;

 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners