SQL: Index hinzufügen

[Gambit]

Moin,

folgende Anweisung funzt nicht:

Delphi-Quellcode:

Query.close;
Query.SQL.Text:='ALTER TABLE myTable ADD INDEX TitleIndex (titel)';
Query.ExecSQL;

Da bekomm ich ne Exception: File must be opened exclusively

Wie gehts denn richtig?

Gruß

Gambit

[shmia]

Zitat von Gambit:

Delphi-Quellcode:

Query.close;
Query.SQL.Text:='ALTER TABLE myTable ADD INDEX TitleIndex (titel)';
Query.ExecSQL;

Da bekomm ich ne Exception: File must be opened exclusively
Wie gehts denn richtig?

Dein Codeschnippsel ist schon in Ordnung. Die Tabelle myTable ist allerdings schon
an anderer Stelle geöffnet.
Es reicht schon, wenn in der Delphi IDE eine Query/Table Komponente auf Active=True steht.
Du musst ausserdem das Property Exclusive der TDatabase-Komponente auf True setzen.
(je nachdem, mit welchen Komponenten du arbeitest)

[Gambit]

Hmm...ist ne Zeos-Query...jetzt hab ich mal active=false gesetzt und bekomm ne Exception "Syntax Error".

Komisch das...

Gruß

Gambit

[Alfons_G]

Es ist damit natürlich gemeint, dass keine andere Komponente gerade auf diese Tabelle zugreift und ebenso keine andere Anwendung.

[Gambit]

achso, hmm...klar. Es greift auch nix anderes auf die Tabelle zu. Das Property Exclusive kann ich allerdings bei meinen Zeos Komponenten, die ich verwende, nirgens finden...

Gruß

Gambit