Indizies mit Access über SQL Befehl

[mikhal]

Auszug aus einer Datenbank-Definition, die ich für ein eigenes Programm verwendet habe. Dazu wird ein TAdoCommand mit dem entsprechenden SQL-Statement gefüllt und via Execute ausgeführt.

Delphi-Quellcode:

const
   cCR = #13#10;  // Carriage-Return
  cCreateTableAdresse = 'CREATE TABLE Adresse(' + cCR +
                    '  Adr_Id COUNTER,' + cCR +
              '  Adr_Name VARCHAR(50),' + cCR +
              '  Adr_Strasse VARCHAR(50),' + cCR +
              '  Adr_Land VARCHAR(5),' + cCR +
              '  Adr_PLZ VARCHAR(5),' + cCR +
              '  Adr_Ort VARCHAR(50),' + cCR +
              '  Adr_Telefon VARCHAR(20),' + cCR +
              '  Adr_Email VARCHAR(100));'; // Tabellendefinition

  cCreatePKAdresse = 'CREATE INDEX PK_Adresse ON Adresse(Adr_Id) WITH PRIMARY;'; // Definition des PK der Tabelle

  cCreateIDXAdrName = 'CREATE INDEX IDX_AdrName ON Adresse(Adr_Name);'; // Definition eines Index auf das Feld Adr_Name

Grüße
Mikhal

[edit]ExecSQl gegen Execute ausgetauscht[/edit]