Microsoft Office Access 2007-Programmierung - Das Handbuch

BEISPIEL

Kapitel 11: Dateien und Verzeichnisse

Allgemeines

Man kann die einfachen Dateien (Textdateien, Binärdateien, typisierte Dateien) durchaus als die Vorläufer

der Datenbanken bezeichnen, ermöglichen sie doch ein persistentes (dauerhaftes) Speichern von Informa-

tionen in ziemlich überschaubaren Formaten.

VBA bietet für den Zugriff auf Dateien und Verzeichnisse eine breite Palette von Möglichkeiten an. Bevor

wir aber dazu kommen, wollen wir einige grundsätzliche Begriffe klären.

ANSI/ASCII/Unicode

Bei allen drei Abkürzungen handelt es sich um Kürzel für Zeichensätze. Während ANSI und ASCII sich

kaum unterscheiden (lediglich einige Zeichen sind verändert), ist der Unterschied zum Unicode-Zeichen-

satz beträchtlich, wird doch jedes Zeichen mit 16 Bit (statt 8) kodiert. Daraus resultiert ein wesentlicher

Vorteil: Mit einer Speicherstelle lassen sich bis zu 65.536 Zeichen darstellen.

Access verwendet intern ebenfalls den Unicode-Zeichensatz. Arbeiten Sie mit API-Funktionen, werden

Strings jedoch automatisch in ANSI-Zeichen umgewandelt.

Die Umwandlung von ANSI auf ASCII stellt kein allzu großes Problem dar; mit zwei API-Funktionen

haben Sie sowohl die ANSI/ASCII- als auch die ASCII/ANSI-Umwandlung im Griff:

Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, _

ByVal lpszDst As String) As Long

bzw.

Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, _

ByVal lpszDst As String) As Long

Der Inhalt von

Text1

wird vom ASCII- zum ANSI-Zeichensatz umgewandelt

Dim textVariable As String

textVariable = Text1.Value

OemToChar textVariable, textVariable

Text1.Value = textVariable

Gemeinsamer Dateizugriff

Für die Arbeit in einer Multiuser-/Multitasking-Umgebung gelten andere Spielregeln als zum Beispiel unter

DOS. Um Probleme beim Zugriff mehrerer Anwendungen auf ein und dieselbe Datei zu vermeiden, gibt es

verschiedene Zugriffsmodi, mit denen temporär die Schreib- bzw. Leserechte an einer Datei eingeschränkt

werden können. Dabei handelt es sich nicht um die bekannten Dateiattribute, die Sie mit GetAttr abfragen

können.

686