AccessAutomation/de: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1		-	\
2	1		Zurück zur [[Office Automation/de\|Office Automation]].\
3		-	\
4		-	\
	2	+
5	3		=Access= Bei der OleAutomatisierung von Acces gibt es ein grosse Probleme. Es werden nicht alle Methoden von der OleAutomatisierung unterstützt.\
6	4		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.\
7		-	\
	5	+
8	6		==Sicherheitsabfrage== Die Sicherheitsabfrage, die (ab Access 2003) bei jedem start von Access erscheint stört die meisten bei der Automatisierung von Access.\
9	7		Um sie Sicherheitsabfrage (Beispiel: Access 2003) zu umgehen gibt es zwei Möglichkeiten:\
10		-	\
	8	+
11	9		Sie erstellen folgenden Eintrag in der Registry:\
12	10		\[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\11.0\Access\Security\]\
13	11		"label"=dword:00000001\
14	12		Alternativ kann die Sicherheitsstufe in Access auf niedrig gesetzt werden.\
15	13		Extras -\> Makro -\> Sicherheit -\> Sicherheitsstufe -\> Niedrig\
16		-	\
	14	+
17	15		=Access Dateiverarbeitung=
18	16
19	17		## Speicher reservieren
20	18
21	19		``` pascal
22	20		var
23	21		varAcApp: OleVariant; // reserviert den Speicher
24	22		```
25	23
26		-	\
27	24		==Speicher belegen==
28	25
29	26		``` pascal
30	27		begin
31	28		...
32	29		// Speicher belegen ohne Fehlerbehandlung
33	30		varAcApp := CreateOleObject('Access.Application'); // erstellt das Accessobjekt
34	31
35	32		// Speicher belegen mit Fehlerbehandlung:
36	33		try
37	34		varAcApp := CreateOleObject('Access.Application'); // erstellt das Accessobjekt
38	35		except
39	36		ShowMessage('MS Access kann nicht gestartet werden.'); // Fehlerbehandlung
40	37		Exit;
41	38		end;
42	39		...
43	40		end;
44	41		```
45	42
46		-	\
47	43		==Access beenden und den Speicher freigeben==
48	44
49	45		``` pascal
50	46		begin
51	47		...
52	48		varAcApp.Quit; // bedendet Access
53	49		varAcApp := UnAssigned; // gibt den Speicher frei
54	50		...
55	51		end;
56	52		```
57	53
58		-	\
59	54		==Access Datenbank öffnen==
60	55
61	56		``` pascal
62	57		begin
63	58		...
64	59		// Öffnet die Datenbank, ohne die Datenbank zu referenzieren
65	60		try
66	61		varAcApp.OpenCurrentDatabase(UTF8ToUTF16('D:\Test.mdb')); // öffnet die Accessdatenbank (Pfad: maximal 255 Zeichen)
67	62		except
68	63		ShowMessage('Die Datenbank kann nicht geöffnet werden.');
69	64		Exit;
70	65		end;
71	66		...
72	67		end;
73	68		```
74	69
75		-	\
76	70		==Access Datei schliessen==
77	71
78	72		``` pascal
79	73		begin
80	74		...
81	75		varAcApp.CloseCurrentDatabase;
82	76		...
83	77		end;
84	78		```
85	79
86		-	\
87	80		==Tabelle öffnen==
88	81
89	82		``` pascal
90	83		begin
91	84		...
92	85		varAcApp.DoCmd.OpenTable('tblStammdaten');
93	86		...
94	87		end;
95	88		```
96	89
97		-	\
98	90		==Tabelle schliessen==
99	91
100	92		``` pascal
101	93		begin
102	94		...
103	95		varAcApp.DoCmd.Close;
104	96		...
105	97		end;
106	98		```
107	99
108		-	\
109	100		==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.
110	101
111	102		``` pascal
112	103		begin
113	104		...
114	105		varAcApp.DoCmd.RunMacro('Makro1');
115	106		...
116	107		end;
117	108		```
118	109
119		-	\
120	110		=Access sonstige Methoden=
121	111
122	112		## Accessversion ermitteln
123	113
124	114		``` pascal
125	115		begin
126	116		...
127	117		ShowMessage(varAcApp.Version);
128	118		...
129	119		end;
130	120		```
131	121
132		-	\
133	122		==Die Sichtbarkeit von Access steuern==
134	123
135	124		``` pascal
136	125		begin
137	126		...
138	127		varAcApp.Visible := False; // Access ist unsichtar
139	128		varAcApp.Visible := True; // Access ist sichtbar
140	129		...
141	130		end;
142	131		```
143	132
144		-	\
145	133		==Die Sanduhr anzeigen==
146	134
147	135		``` pascal
148	136		begin
149	137		...
150	138		varAcApp.DoCmd.Hourglass(True); // Schaltet die Sanduhr ein
151	139		varAcApp.DoCmd.Hourglass(False); // Schaltet die Sanduhr aus
152	140		...
153	141		end;
154	142		```
155	143
156		-	\
157		-
158	144		## Die Warnmeldungen ausschalten
159	145
160	146		Unterdrückt einige Warnmeldungen (Statusmeldungen), die für den Programmablauf nicht wichtig, aber bei der Programmierung störend sind.
161	147
162	148		``` pascal
163	149		begin
164	150		...
165	151		varAcApp.DoCmd.SetWarnings(False); // Schaltet die Warnmeldungen aus
166	152		varAcApp.DoCmd.SetWarnings(True); // Schaltet die Warnmeldungen ein
167	153		...
168	154		end;
169	155		```
170	156
171		-	\
172		-	\
173	157		--Olaf 17:26, 1 October 2012 (UTC)
174	158
175	159		---
176	160		From the Free Pascal wiki, page "AccessAutomation/de", as it stood on 2020-02-01 after a change by GAN, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).
177	161		Category: Tutorials/de

Back to history