AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Wie mehrere Felder mit unterschiedl. where-Teilen in *einem* Update-Statement ändern?

Wie mehrere Felder mit unterschiedl. where-Teilen in *einem* Update-Statement ändern?

Ein Thema von BlueStarHH · begonnen am 13. Dez 2020 · letzter Beitrag vom 14. Dez 2020
Antwort Antwort
BlueStarHH

Registriert seit: 28. Mär 2005
Ort: Hannover-Hainholz
643 Beiträge
 
Delphi 10.3 Rio
 
#1

Wie mehrere Felder mit unterschiedl. where-Teilen in *einem* Update-Statement ändern?

  Alt 13. Dez 2020, 19:40
Datenbank: Firebird • Version: 3.x • Zugriff über: IBDAC
Wie kann ich den folgenden SQL-Code in *einem* Update-Statement zusammen ausführen? Ich habe 10 dieser Statements, die ich nicht alle nacheinander ausführen möchte. Gibt es dafür eine spezielle SQL-Syntax?

Code:
Update MyTable set Feld1 = Feld1NEU where Feld1NEU <> 0;
Update MyTable set Feld2 = Feld2NEU where Feld2NEU <> 0;
Update MyTable set Feldn = FeldnNEU where FeldnNEU <> 0;
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
1.913 Beiträge
 
#2

AW: Wie mehrere Felder mit unterschiedl. where-Teilen in *einem* Update-Statement änd

  Alt 13. Dez 2020, 19:42
Ich würde es an deiner Stelle so lassen. Alles andere wäre herumgetrickse und kein valides SQL.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.289 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Wie mehrere Felder mit unterschiedl. where-Teilen in *einem* Update-Statement änd

  Alt 13. Dez 2020, 21:28
UPDATE Tabelle SET Feld1 = :Wert1, Feld2 = :Wert2 WHERE Dings = 1 Anschließend dann die Parameter belegen.
Delphi-Quellcode:
Query.FieldByName(´Wert1´).AsString := ´Hallo‘‘;
Query.FieldByName(´Wert2´).AsInteger := 42;
Query.ExecSQL;
[edit]Sry, Frage nicht richtig verstanden [/edit]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen

Geändert von DeddyH (13. Dez 2020 um 22:32 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
8.820 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Wie mehrere Felder mit unterschiedl. where-Teilen in *einem* Update-Statement änd

  Alt 13. Dez 2020, 23:12
Nur so dahingeschrieben:
SQL-Code:
Update MyTable set
Feld1 = IIF(Feld1NEU <> 0, Feld1NEU, Feld1),
Feld1 = IIF(Feld2NEU <> 0, Feld2NEU, Feld2),
Feldn = IIF(FeldnNEU <> 0, FeldnNEU, Feldn)
WHERE (Feld1NEU <> 0) or (Feld2NEU <> 0) or (FeldnNEU <> 0)
Finde ich persönlich aber eher hässlich und ich bin mir auch nicht sicher, ob das überhaupt performanter ist.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Frickler

Registriert seit: 6. Mär 2007
Ort: Osnabrück
375 Beiträge
 
Delphi XE6 Enterprise
 
#5

AW: Wie mehrere Felder mit unterschiedl. where-Teilen in *einem* Update-Statement änd

  Alt 14. Dez 2020, 09:31
Ich würde es an deiner Stelle so lassen. Alles andere wäre herumgetrickse und kein valides SQL.
Bei Firebird kann kannst Du die 10 Anweisungen in einem Rutsch an den Server senden, indem Du sie in einen Block einschließt:

Code:
SET TERM ^;
EXECUTE BLOCK AS
BEGIN
  Update MyTable set Feld1 = Feld1NEU where Feld1NEU <> 0;
  Update MyTable set Feld2 = Feld2NEU where Feld2NEU <> 0;
  Update MyTable set Feldn = FeldnNEU where FeldnNEU <> 0;
END^
SET TERM ;^
Damit wird das dann auch mit eingeschaltetem AutoCommit nur eine Transaktion.
  Mit Zitat antworten Zitat
Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.332 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Wie mehrere Felder mit unterschiedl. where-Teilen in *einem* Update-Statement änd

  Alt 14. Dez 2020, 14:07
Mehrere Kommandos können als Script gemeinsam an den Server gesendet werden.
TIBCScript Class

Bsp.:
Code:
Update MyTable set Feld1 = Feld1NEU where Feld1NEU <> 0;
Update MyTable set Feld2 = Feld2NEU where Feld2NEU <> 0;
Update MyTable set Feldn = FeldnNEU where FeldnNEU <> 0;
Commit;
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:38 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf