if (not) exists

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

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

[DeddyH]

Zitat von Ykcim:

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

[Furtbichler]

Zitat von vagtler:

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.