AccessAutomation/de

From Free Pascal wiki
Revision as of 00:01, 2 February 2020 by GAN (talk | contribs) (Fixed syntax highlighting)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search

Deutsch (de)
Zurück zur Office Automation.


Access

Bei der OleAutomatisierung von Acces gibt es ein grosse Probleme. Es werden nicht alle Methoden von der OleAutomatisierung unterstützt.
Das heisst sie stehen dem Programmierer nicht zur Verfügung. Daher ist das Arbeiten mit Access über den Weg der OleAutomatisierung nur eingeschränkt möglich.

Sicherheitsabfrage

Die Sicherheitsabfrage, die (ab Access 2003) bei jedem start von Access erscheint stört die meisten bei der Automatisierung von Access.
Um sie Sicherheitsabfrage (Beispiel: Access 2003) zu umgehen gibt es zwei Möglichkeiten:

Sie erstellen folgenden Eintrag in der Registry:
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\11.0\Access\Security]
"label"=dword:00000001
Alternativ kann die Sicherheitsstufe in Access auf niedrig gesetzt werden.
Extras -> Makro -> Sicherheit -> Sicherheitsstufe -> Niedrig

Access Dateiverarbeitung

Speicher reservieren

var
  varAcApp: OleVariant;  // reserviert den Speicher


Speicher belegen

begin
  ...
  // Speicher belegen ohne Fehlerbehandlung
  varAcApp := CreateOleObject('Access.Application'); // erstellt das Accessobjekt

  // Speicher belegen mit Fehlerbehandlung:
  try
    varAcApp := CreateOleObject('Access.Application'); // erstellt das Accessobjekt
  except
    ShowMessage('MS Access kann nicht gestartet werden.'); // Fehlerbehandlung
    Exit;
  end;
  ...
end;


Access beenden und den Speicher freigeben

begin
  ...
  varAcApp.Quit;            // bedendet Access
  varAcApp := UnAssigned;   // gibt den Speicher frei
  ...
end;


Access Datenbank öffnen

begin
  ...
  // Öffnet die Datenbank, ohne die Datenbank zu referenzieren
  try
    varAcApp.OpenCurrentDatabase(UTF8ToUTF16('D:\Test.mdb')); // öffnet die Accessdatenbank (Pfad: maximal 255 Zeichen)
  except
    ShowMessage('Die Datenbank kann nicht geöffnet werden.');
    Exit;
  end;
  ...
end;


Access Datei schliessen

begin
  ...
  varAcApp.CloseCurrentDatabase;
  ...
end;


Tabelle öffnen

begin
  ...
  varAcApp.DoCmd.OpenTable('tblStammdaten');
  ...
end;


Tabelle schliessen

begin
  ...
  varAcApp.DoCmd.Close;
  ...
end;


Makro ausführen

Der Zugriff auf das Makro erlaubt demjenigen der VBA Kenntisse hat die Beschränkungen der OleAutoamtion zu umgehen und direkt in der Datenbank mit VBA zu programmieren und diese Makros über die Schnittstelle 'DoCmd.RunMacro' auszuführen.

begin
  ...
  varAcApp.DoCmd.RunMacro('Makro1');
  ...
end;


Access sonstige Methoden

Accessversion ermitteln

begin
  ...
  ShowMessage(varAcApp.Version);
  ...
end;


Die Sichtbarkeit von Access steuern

begin
  ...
  varAcApp.Visible := False;  // Access ist unsichtar
  varAcApp.Visible := True;   // Access ist sichtbar
  ...
end;


Die Sanduhr anzeigen

begin
  ...
  varAcApp.DoCmd.Hourglass(True);   // Schaltet die Sanduhr ein
  varAcApp.DoCmd.Hourglass(False);  // Schaltet die Sanduhr aus
  ...
end;


Die Warnmeldungen ausschalten

Unterdrückt einige Warnmeldungen (Statusmeldungen), die für den Programmablauf nicht wichtig, aber bei der Programmierung störend sind.

begin
  ...
  varAcApp.DoCmd.SetWarnings(False);  // Schaltet die Warnmeldungen aus
  varAcApp.DoCmd.SetWarnings(True);   // Schaltet die Warnmeldungen ein
  ...
end;



--Olaf 17:26, 1 October 2012 (UTC)