SQL Server DB aus Delphi heraus erstellen?

[Leuselator]

Für die ersten Schritte hilft das ja vielleicht:

Datenbank auf SQL-Server erzeugen:

SQL-Code:

CREATE DATABASE DieDatenbank
ON 
( NAME = 'DieDatenbank_Data', -- <-- da fehlten die Anführungszeichen...
   FILENAME = 'C:\Programme\Microsoft SQL Server\MSSQL\Data\DieDatenbank_Data.mdf',
   SIZE = 10MB,       -- nach Belieben anpassen
   MAXSIZE = 100MB,
   FILEGROWTH = 5MB )
LOG ON
( NAME = 'DieDatenbank_Log',
   FILENAME = 'C:\Programme\Microsoft SQL Server\MSSQL\Data\DieDatenbank_Log.ldf',
   SIZE = 5MB,
   MAXSIZE = 50MB,
   FILEGROWTH = 5MB )
GO

Tabelle AdrTyp anlegen

SQL-Code:

create table ADRTYP
(
    idAdrTyp                        int identity(1,1)     not null, -- erzeugt selbst inkrementierendes Feld
    TYP                             varchar(35)           not null,
    KurzTyp                         varchar(15)           null    ,
    constraint pk_adrtyp primary key (idAdrTyp)                     -- legt idAdrTyp als Primärschlüsselfeld fest
)
go

Tabelle Adressen anlegen:

SQL-Code:

create table ADRESSEN
(
    IDADRESSEN                      int identity(1,1)     not null,
    idAdrTyp                        int                   not null,
    STRASSE                         varchar(35)           null    ,
    HAUSNR                          varchar(9)            null    ,
    PLZ                             varchar(5)            null    ,
    ORT                             varchar(35)           null    ,
    constraint pk_adressen primary key (IDADRESSEN)
)
go

Einen Index für Feld 'PLZ' erzeugen:

SQL-Code:

create index X_ADR_PLZ on ADRESSEN (PLZ) -- erzeugt Index für Feld 'PLZ'
go

Nun noch die Referenz von Adressen auf AdrTyp erzeugen:

SQL-Code:

alter table ADRESSEN
    add constraint fk1_adressen foreign key (idAdrTyp)
       references ADRTYP (idAdrTyp)
go