Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   if (not) exists (https://www.delphipraxis.net/172591-if-not-exists.html)

Ykcim 14. Jan 2013 21:53

AW: if (not) exists
 
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 15. Jan 2013 07:46

AW: if (not) exists
 
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 15. Jan 2013 08:11

AW: if (not) exists
 
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 15. Jan 2013 14:28

AW: if (not) exists
 
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 15. Jan 2013 14:36

AW: if (not) exists
 
http://www.delphi-treff.de/tutorials...faengerfehler/ oder auch http://www.detlef-heibing.de/program...onstanten.html

Ykcim 15. Jan 2013 14:47

AW: if (not) exists
 
Vielen Dank!
Das war sehr aufschlussreich!

Gruß Patrick


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:20 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz