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

[Helmi]

Hallo,

wie kann ich bei einer TTable ein Feld (Spalte) bei einer schon vorhandenen Datenbank hinzufügen bzw. löschen?

[mkinzler]

Die BDE hab ich gedanklich schon längst begraben, sollte aber mit Table.FieldDefs.Add gehen

[Helmi]

Zitat:

Zitat von mkinzler

Die BDE hab ich gedanklich schon längst begraben, sollte aber mit Table.FieldDefs.Add gehen

Die BDE ist zwar schon alt - aber für meine Zwecke reicht sie vollkommen.

mit Table.FieldDefs.Add füg ich schon welche hinzu. Wenn ich aber danach CreateTable ausführe, werden alle vorhandenen Einträge gelöscht.
Ich will aber nur eine Spalte hinzufügen, ohne die Einträge zu löschen.
Wie kann ich das realisieren?

[mkinzler]

Vielleicht per SQL ( TQuery)

[Helmi]

Zitat:

Zitat von mkinzler

Vielleicht per SQL ( TQuery)

Muss doch auch anders gehen ohne SQL

[haentschman]

[OT]

Zitat:

Die BDE ist zwar schon alt - aber für meine Zwecke reicht sie vollkommen.

...scheinbar nicht :gruebel:

Versuch mal:

- Table.FieldDefs.Insert(Index) (siehe Hilfe) oder
- Table.FieldDefs.Add(const Name: string; DataType: TFieldType; Size: Integer; Required: Boolean)

:hi:

[Helmi]

Zitat:

Zitat von haentschman

[OT]

Zitat:

Die BDE ist zwar schon alt - aber für meine Zwecke reicht sie vollkommen.

...scheinbar nicht :gruebel:

Nur weil ich eine Frage habe, ist sie nicht für meine Zwecke ausreichend???

Zitat:

Zitat von haentschman

- Table.FieldDefs.Insert(Index) (siehe Hilfe) oder

muss ich mal ausprobieren

Zitat:

Zitat von haentschman

- Table.FieldDefs.Add(const Name: string; DataType: TFieldType; Size: Integer; Required: Boolean)

Zitat:

Zitat von Helmi

mit Table.FieldDefs.Add füg ich schon welche hinzu.

[hoika]

Hallo,

wenn du es dir schwer machen willst,
nimmst du halt TTable.
Unter der folgenden URL gibt es auch ein AddField Bsp.


http://info.borland.com/devsupport/bde/bdeapiex/


Heiko

[Helmi]

Zitat:

Zitat von hoika

Unter der folgenden URL gibt es auch ein AddField Bsp.


http://info.borland.com/devsupport/bde/bdeapiex/

Ich hab da leider keines gefunden - welches meinst du denn explizit?

[hoika]

Hallo,

http://info.borland.com/devsupport/b...structure.html

Example 10


Heiko

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

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:

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:

Zitat von Helmi

Zitat:

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:

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:

Delphi-Quellcode:

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?

[DeddyH]

Von welchem Typ ist Laenge?

[Helmi]

Sorry - vergaß zu sagen, dass alles drei Variablen (Datenbank, Spalte, Laenge) vom Typ String sind

[hoika]

Hallo,

Delphi-Quellcode:

Query.SQL.Add(Format('alter table %s add %s char(%s)', [Datenbank, Spalte, Laenge]));

Heiko

[mkinzler]

Warum macht ihr immer .Clear()/.Add() statt .Text?

[DeddyH]

Wenn man nach Codezeilen bezahlt wird, macht man das so ;)

[Helmi]

Zitat:

Zitat von mkinzler

Warum macht ihr immer .Clear()/.Add() statt .Text?

Frag nicht mich - ich bin heut so damit SQL-technisch erzogen worden *grins* :lol:

Aber du hast recht - ist einfacher

[hoika]

Hallo,

mit Clear / Add kann man die SQL-Statements schön in einer Schleife zusammenbauen.


Heiko

[mkinzler]

Geht bei direkter Zuweisung zu .Text doch auch

[hoika]

Hallo,

sieht aber nicht so schön aus ;)


Heiko

[Helmi]

Eine Frage hätt ich noch:

Wie kann ich eine Spalte wieder löschen?

[DeddyH]

SQL-Code:

ALTER TABLE Tabelle DROP Feld

[Helmi]

oh - danke :-)

[Edit]
Auch auf die Gefahr hin, geprügelt zu werden, aber gibts irgendwo ne Übersicht der SQL-Befehle?

[DeddyH]

Nur eine Seite von vielen: http://www.sql-und-xml.de/sql-tutorial/

[mkinzler]

Für Paradox
http://www.thedbcommunity.com/index....=107&Itemid=46

[Helmi]

Merci :-)

[hoika]

Hallo,

SQL-Code:

alter table table_1 drop field_name

Heiko

[edit=mkinzler] Danke für die vergessenen Tags, so kann ich die Funktion testen :zwinker: Mfg, mkinzler[/edit]

[DeddyH]

Bissel spät, wie :mrgreen:?

[hoika]

Hallo,

;(


Heiko

[maladarse]

Frage:will mit turbo delphi datenbank erstellen
wenn:
with Query do
begin
SQL.Text := 'alter table table1 add name char(50);';
ExecSQL;
end;

dann erscheint die spalte erst, wenn das programm neu gestartet wird. wieso?

[haentschman]

...in Glaskugel schau... 8)

ich vermute mal, daß das Feld zwar in der Datenbank (Tabelle) hinzugefügt wurde aber in deiner Query (für die Visualisierung) noch der alte Bestand liegt.

:gruebel: Query aktualisieren bzw neu öffnen.

:hi: