Microsoft Access Programmierrezepte

R6.9 Eine Access-Tabelle erstellen

Aufgabe

In der aktuellen Datenbank soll eine neue Tabelle Kundendaten mit folgender Struktur erstellt werden.

Tabelle 6.3 Tabellenstruktur

Spaltenname	Datentyp
Id	Zählerfeld
Nachname	Text(50)
Vorname	Text(50)
Datum	Date/Time, Einschränkung auf 1.1.1995-1.1.2010, Default = Tagesdatum

Lösung ADOX

Dreh- und Angelpunkt ist – wie wohl nicht anders zu erwarten – ein initialisiertes Catalog-Objekt. Da wir die Tabelle in der aktuellen Datenbank erzeugen wollen, initialisieren wir das Catalog-Objekt mit der ActiveConnection-Eigenschaft. Für die Tabellendefinition brauchen wir noch ein Table-Objekt.

Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table

cat.ActiveConnection = Application.CurrentProject.Connection

Mit Hilfe der ParentCatalog ...