Microsoft Office Access 2007-Programmierung - Das Handbuch

BEISPIEL

BEISPIEL

BEISPIEL

Kapitel 10: SQL Server

Auflisten aller Tabellen in der geöffneten Datenbank.

SELECT * FROM Information_Schema.Tables

Das Ergebnis sehen Sie in der folgenden Abbildung:

Abbildung 10.47 Abfrageergebnis

Eine Tabelle löschen

Kurz und knapp:

Mit SQL

DROP TABLE Mitarbeiter

Eine Tabelle mit den DMO erzeugen

An dieser Stelle wollen wir es bei einem Beispiel belassen. Mit TSQL kommen Sie wesentlich schneller ans

Ziel.

Erstellen einer einfachen Tabelle mit einer Spalte.

Dim serv As New SQLDMO.SQLServer

Dim db As New SQLDMO.Database

Dim tb As New SQLDMO.Table

Dim col As New SQLDMO.Column

serv.Connect ".\SQLExpress", "sa", "tom"

col.Name = "Nachnamen"

col.DataType = "varchar"

col.Length = 25

tb.Name = "TestTable"

tb.Columns.Add col

serv.Databases.Item("firmasql").Tables.Add (tb)

674