Zitat von
hoika:
Hallo,
und nun sieh mal dazu das an:
Delphi-Quellcode:
with Query do
begin
SQL.Clear;
SQL.Add('
alter table table1 add name(char(50)');
ExecSQL,
end;
Ja - schaut natürlich einfacher aus.
Nur hab ich damit ein paar Probleme:
1. Mein Datenbankname ändert sich - das heisst, ich hab mehrere Datenbanken (davon ist aber nur immer Eine offen)
2. Meine Datenbanken sind nicht im gleichen Ordner wie die Exe, sondern in einem Unterordner.
Ich hab deinen Code mal getestet, table1 gegen eine von mir gerade geöffnete Datenbank ersetzt.
Nur bekomm ich dann einen Fehler:
Zitat:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt Schulungsmanager.exe ist eine
Exception der Klasse EDBEngineError aufgetreten. Meldung: 'Tabelle nicht vorhanden
Datei oder Verzeichnis nicht vorhanden
Datei: E:\Schulungsmanager\Programm\Schulungsindex.DB
Datei: E:\Schulungsmanager\Programm\Schulungsindex.DBF
Datei: E:\Schulungsmanager\Programm\Schulungsindex.txt
Datei: E:\Schulungsmanager\Programm\Schulungsindex'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------
Ganz klar natürlich, weil die nicht im Ordner "Programm" liegt, sondern bei mir unter "E:\Schulungsmanager\Programm\Datenbank".
[Edit]
Kann es sein, dass in deinem
SQL-Text eine geschlossene Klammer fehlt?