TTable: In vorhandener Datenbank Spalte hinzufügen/löschen

[Helmi]

Danke für den Hinweis!

Eine Frage hab ich noch. In dem Code sind folgende Typen angegeben:

Delphi-Quellcode:

  
szName: DBINAME;

Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
pFlds: pFLDDesc;
pOp: pCROpType;

also DBINAME, CURProps, hDBIDb, CRTblDesc, pFLDDesc, pCROpType

Woher bekomm ich die?

[hoika]

Hallo,

meistens ist das die Unit BDE.

Geh einfach mal ein DBTables,
suche nach einer der Strukturen und klicke
auf Ctrl + linke Maustaste.


Heiko

[Helmi]

Zitat von hoika:

meistens ist das die Unit BDE.

Extakt diese Unit war es

Danke

[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;

Heiko

[Helmi]

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?

[mkinzler]

Delphi-Quellcode:

with Query do
begin
  SQL.Text := 'alter table table1 add name char(50);';
  ExecSQL;
end;

[khh]

Zitat von Helmi:

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?

kann es sein, dass du Datenbank mit Tabelle verwechselt hast?

Gruss Kh

[Helmi]

Zitat von khh:

kann es sein, dass du Datenbank mit Tabelle verwechselt hast?

Ich denke, man merkt, dass ich kaum was mit Datenbanken zuvor zu tun hatte
Ja - ich denke dass ich Datenbank mit Tabelle verwechsle

[hoika]

Hallo,

> Kann es sein, dass in deinem SQL-Text eine geschlossene Klammer fehlt? >

na ein bissel Arbeit solltest du auch haben

Delphi-Quellcode:

with Query do
begin
  DataBaseName:= 'c:\blabla\bla';
  SQL.Clear;
  SQL.Add('alter table table1 add name(char(50))');
  ExecSQL,
end;

Übrigens funktioniert der Befehl nur, wenn die Tabelle geschlossen ist
(das alter table oder DbiDoRestructure braucht exclusiven Zugriff)


Heiko

[Helmi]

Ich traus mir ja kaum zu schreiben, aber ich hab mit mir selbst gerungen, und auch gewonnen, und hab jetzt Query eingesetzt.

Soweit geht das ja ganz gut, nur wollt ich den SQL-Text mit Variablen versehen.
Dazu hab ich folgendes gebaut:

Query.SQL.Add(Format('alter table %s add %s(char(%s))', [Datenbank, Spalte, Laenge]));
Leider bekomm ich aber diese Fehlermeldung:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Schulungsmanager.exe ist eine Exception der Klasse EDBEngineError aufgetreten. Meldung: 'Ungültiges Schlüsselwort
Symbol-String: (char(50))
Zeilennummer: 1'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

Was mach ich falsch?