if (not) exists

[Ykcim]

Hallo Zusammen,

trotz bemühen der Suche, kann ich das Problem leider nicht selber lösen und bitte hier um Hilfe.

Ich habe ein Programm, bei dem Tabellenspalten gelöscht und hinzugefügt werden. Das klappt alles auch wunderbar. Aber um Fehler vorzubeugen, würde ich gerne mit "if exists" bzw. "if not exists" arbeiten.

Leider bekomme ich das nicht hint.

Delphi-Quellcode:

ALTER TABLE `Schema`.`Tabelle` DROP COLUMN if exists `Spalte`

Da bekomme ich vom MySQL-Server die Fehlermeldung, dass die Syntax nicht stimmt.

Delphi-Quellcode:

ALTER TABLE `Schema`.`Tabelle` ADD COLUMN if not exists `neueSpalte` INTEGER AFTER `Spalte`;

Hier bekomme ich die gleiche Fehlermeldung.


Kann mir jemand da weiterhelfen?

Vielen Dank
Patrick

[jobo]

Eine solche Syntax bei der Datenmodelländerung ist mir nicht bekannt.

Verwende die Dictionary Tabellen um per SQL abzufragen, welche Spalten da sind oder nicht:

Code:

SELECT COLUMN_NAME, DATA_TYPE, IS_NULLABLE, COLUMN_DEFAULT
  FROM INFORMATION_SCHEMA.COLUMNS
  WHERE table_name = 'tbl_name'
  [AND table_schema = 'db_name']
  [AND column_name LIKE 'wild']

Dann kannst Du entsprechende Änderungen vornehmen.

[Volker Z.]

Hallo,

es muss lauten:

Code:

ALTER TABLE `Schema`.`Tabelle` DROP COLUMN `Spalte`

bzw.

Code:

ALTER TABLE `Schema`.`Tabelle` ADD COLUMN `neueSpalte` INTEGER AFTER `Spalte`

IF EXISTS setzt Du bei DROP (DATABASE / TABLE / VIEW etc) ein. Z.B.

Code:

DROP TABLE IF EXISTS `Tablename`

Gruß

[Ykcim]

Hallo,

heißt das, dass ich über "if exists" nicht abfragen kann, ob eine Spalte vorhanden ist, bevor ich sie lösche oder anlege?

Das wäre echt schade... würde aber erklären, warum ich es trotz vieler Anläufe und suchen nicht hinbekommen habe...

[Ykcim]

Okay,

um einen anderen Ansatz zu bringen:

Delphi-Quellcode:

SHOW COLUMNS FROM TABELLE WHERE FIELD='TESTSPALTE'

Jetzt werden die Spalteninformationen zu der Spalte TESTSPALTE angezeigt.
Wie kann ich prüfen, ob meine Query (UniDac) einen Wert geliefert hat (dann ist Spalte RESRSPALTE offensichtlich vorhanden), oder ob sie leer ist(also die Spalte TESTSPALTE nicht vorhanden ist)?

Vielen Dank
Patrick

[DeddyH]

Wenn das Dataset keine Daten enthält, ist es EOF. Das kann man abfragen.

[Volker Z.]

Hallo,

Zitat:

heißt das, dass ich über "if exists" nicht abfragen kann, ob eine Spalte vorhanden ist, bevor ich sie lösche oder anlege?

Ja, mit if exists geht es nicht.

Nimm doch den Ansatz von Jobo; mit:

Code:

SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE table_name = `dein_tabellenname' AND COLUMN_NAME = `dein_spaltenname`

hast Du in RecordCount Deiner Query-Komponente eine 1 [EDIT]Spalte exisistiert[/EDIT] oder 0 [EDIT]Spalte exisistiert nicht[/EDIT] stehen.

Gruß

[Bummi]

Ich kenne UNIDac nicht wenn es GetFieldNames kannst Du auch per

Code:

Select * from tab where 1=0

einfach die Struktur ziehen und per GetFieldNames eine Liste abrufen.

[Furtbichler]

Wieso arbeitet man nicht einfach mit einem Try-Except-Block und wertet die Fehlermeldung ab?

Ich will das nicht als saubere Lösung präsentieren, sondern eher als Alternative bzw. Möglichkeit, das Problem zu lösen, ohne viel Zeit zu investieren. Hier kann man ja ohne Probleme die Metadaten der Tabelle aus der DB auslesen, da stellt sich das Problem nicht.

[vagtler]

Zitat:

Zitat von Furtbichler (Beitrag 1198855)

Wieso arbeitet man nicht einfach mit einem Try-Except-Block und wertet die Fehlermeldung ab?

Weil das zumindest in dem Szenario des Thread-Erstellers anscheinend eine Condition ist, die erwartet wird.

http://stackoverflow.com/questions/7...w-an-exception

[Ykcim]

Hallo Zusammen,

vielen Dank für die Anregungen. Sowohl die Abfrage des RecordCount (1=Spalte vorhanden; 0=Spalte nicht vorhanden), als auf Query.EOF (False=Spalte vorhanden, True=Spalte nicht vorhanden) funktioniert.

Ich habe es jetzt mit einer vorgeschaltenen Abfrage gelöst:

Delphi-Quellcode:

procedure TDownload.ColumnDel(Query: TUniQuery; Tabelle: string; Spalte: string);
begin
   Query.SQL.Clear;
   Query.SQL.Add('Show columns from '+Tabelle+' ');
   Query.SQL.Add('where field= :Spalte ');
   Query.ParamByName('Spalte').AsString:=Spalte;
   Query.Open;
   if Query.Eof=false then
      showmessage('Spalte wird gelöscht, weil schon vorhanden');
end;

procedure TDownload.ColumnAdd(Query: TUniQuery; Tabelle: string; Spalte: string);
begin
   Query.SQL.Clear;
   Query.SQL.Add('Show columns from '+Tabelle+' ');
   Query.SQL.Add('where field= :Spalte ');
   Query.ParamByName('Spalte').AsString:=Spalte;
   Query.Open;
   if Query.Eof=true then
      showmessage('Spalte wird hinzugefügt, weil noch nicht vorhaden');

Vielen Dank
Patrick

[Furtbichler]

Zitat:

Zitat von vagtler (Beitrag 1198858)

Weil das zumindest in dem Szenario des Thread-Erstellers anscheinend eine Condition ist, die erwartet wird.

Ich verstehe deinen Einwand nicht. Er möchte eine Aktion durchführen, die schiefgehen kann.

Delphi-Quellcode:

/// Entweder so:
if DarfIchDasDenn then 
  TuEs;
// oder
Try
  TuEs;
Except
  On E:ErwarteteAusnahme Do...;
  On E:Exception Do Fehlerbehandlung(E);
End;

Möglichkeit #1 ist old-school (und nervt nicht so beim debuggen).
Möglichkeit #2 fängt alle Fehler korrekt ab und ist genau dann die richtige Wahl, wenn 'TuEs' im Kontext der Anwendung eigentlich fehlerfrei durchgeführt werden sollte.

Beispiel: Ich will eine Datei löschen.
Beispiel A: Ich habe eine Art Explorer geschrieben, der die Dateien auflistet und beim drücken der DEL-Taste soll die Datei entfernt werden: Da muss ich nicht prüfen, ob die Datei existiert, sondern kann einfach drauf los löschen, also #2.

Beispiel B: Ich möchte eine Datei erzeugen, aber nur, wenn sie noch nicht existiert. Dann nehme ich #1, weil es ja genau das ist, was ich ausdrücken will.

Edit: Hat sich eh erledigt.

[DeddyH]

Zitat:

Zitat von Ykcim (Beitrag 1199025)

Delphi-Quellcode:

   if Query.Eof=false then

...

   if Query.Eof=true then

Tu Dir selbst einen Gefallen und formulier das um:

Delphi-Quellcode:

if not Query.EOF then

...

if Query.EOF then

[Ykcim]

Zitat:

Tu Dir selbst einen Gefallen und formulier das um:
markieren
Delphi-Quellcode:

Delphi-Quellcode:

if not Query.EOF then

 ...

if Query.EOF then

Okay, mache ich. Aber erklärst Du mir kurz, warum das besser ist. Ich fand meine Schreibweise übersichtlicher, lerne aber gerne dazu.

Danke
Patrick

[DeddyH]

http://www.delphi-treff.de/tutorials...faengerfehler/ oder auch http://www.detlef-heibing.de/program...onstanten.html

[Ykcim]

Vielen Dank!
Das war sehr aufschlussreich!

Gruß Patrick