AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi SQL: wenn leeres Tabellenfeld dann Defaultwert zuweisen
Thema durchsuchen
Ansicht
Themen-Optionen

SQL: wenn leeres Tabellenfeld dann Defaultwert zuweisen

Ein Thema von juergen · begonnen am 3. Okt 2014 · letzter Beitrag vom 4. Okt 2014
Antwort Antwort
Benutzerbild von juergen
juergen

Registriert seit: 10. Jan 2005
Ort: Bönen
1.174 Beiträge
 
Delphi 11 Alexandria
 
#1

SQL: wenn leeres Tabellenfeld dann Defaultwert zuweisen

  Alt 3. Okt 2014, 21:53
Datenbank: Pervasive • Version: 11.3 • Zugriff über: PDAC
Hallo zusammen,

über eine Query hole ich mir Werte aus verschiedenen Tabellen in ein Quantumgrid.
Jetzt hat eine Tabelle in einer Spalte Euro-Werte als String mit Punkt als Dezimaltrenner gespeichert! Da kann ich leider nichts ändern.
Nun möchte ich die Werte trotzdem als Currency-Werte im Qunatumgrid speichern. Das klappt auch, wenn ich in der SQL-Abfrage folgendes anwende:

Code:
Convert(Replace(LTrim(A.Eurowert),'.', ','), SQL_CHAR)
Nun gibt es aber auch noch leere Felder...
Ich hatte gehofft dass ich mit SQL_DECIMAL oder SQL_NUMMERIC oder SQL_REAL das Ganze so konvertiert bekomme, dass immer eine Zahl raus kommt (auch bei leeren Feldern), aber da bekomme ich einen SQL-Fehler! Anscheinend kann die DB diese Abfrage so nicht anwenden.


Kennt jemand eine Möglichkeit im SQL-Statement einem leeren Feld ein Defaultwert zuzuweisen (in meinem Fall => 0,00)?

Vielen Dank schon mal vorab!
Jürgen
Indes sie forschten, röntgten, filmten, funkten, entstand von selbst die köstlichste Erfindung: der Umweg als die kürzeste Verbindung zwischen zwei Punkten. (Erich Kästner)

Geändert von juergen ( 3. Okt 2014 um 21:57 Uhr)
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: SQL: wenn leeres Tabellenfeld dann Defaultwert zuweisen

  Alt 3. Okt 2014, 22:01
Versuch es mal mit

case when A.Eurowert is null then 0 else Convert(Replace(LTrim(A.Eurowert),'.', ','), SQL_CHAR) end
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: SQL: wenn leeres Tabellenfeld dann Defaultwert zuweisen

  Alt 3. Okt 2014, 22:05
Ansonsten gibt es auch noch coalesce
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Benutzerbild von juergen
juergen

Registriert seit: 10. Jan 2005
Ort: Bönen
1.174 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: SQL: wenn leeres Tabellenfeld dann Defaultwert zuweisen

  Alt 3. Okt 2014, 22:23
Vielen Dank euch beiden!!!
Beides hilft mir weiter!
Jürgen
Indes sie forschten, röntgten, filmten, funkten, entstand von selbst die köstlichste Erfindung: der Umweg als die kürzeste Verbindung zwischen zwei Punkten. (Erich Kästner)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.071 Beiträge
 
Delphi 12 Athens
 
#5

AW: SQL: wenn leeres Tabellenfeld dann Defaultwert zuweisen

  Alt 3. Okt 2014, 23:01
COALESCE ist hier natürlich das Mittel der Wahl, aber bezüglich dieser CASE-Dinger ... da gibt es in vielen DBMS auch noch sowas wie IIF/IFTHEN.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#6

AW: SQL: wenn leeres Tabellenfeld dann Defaultwert zuweisen

  Alt 3. Okt 2014, 23:52
COALESCE ist hier natürlich das Mittel der Wahl, aber bezüglich dieser CASE-Dinger ... da gibt es in vielen DBMS auch noch sowas wie IIF/IFTHEN.
Oder auch IFNULL
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Benutzerbild von sx2008
sx2008

Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#7

AW: SQL: wenn leeres Tabellenfeld dann Defaultwert zuweisen

  Alt 4. Okt 2014, 01:03
Und natürlich würde man nicht einen Punkt durch ein Komma ersetzen - das ist doch sehr kurzsichtig.
Nein, man castet natürlich in den Datentyp den das Feld von Anfang an hätte haben sollen:
SELECT Cast(A.Eurowert AS DECIMAL(8,2)) AS EurowertNeu, ... FROM ...
Zum Glück enthält das Feld einen Punkt als Dezimaltrenner; bei einem Komma hätte man tatsächlich die Replace-Funktion gebraucht.
fork me on Github
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.071 Beiträge
 
Delphi 12 Athens
 
#8

AW: SQL: wenn leeres Tabellenfeld dann Defaultwert zuweisen

  Alt 4. Okt 2014, 02:23
Oder auch IFNULL
Nicht zu verwechseln mit NULLIF

Nja, anhand der Fragestellung wird das auch irgendwie klar.
* wenn Leer, dann nimm das Andere -> COALESCE/IFNULL
* wenn dies und das, dann nimm das, ansonsten jenes IFTHEN/IIF, bzw. IF-THEN-ELSE oder das lange CASE, was eigentlich eher für mehr als 2 geeignet ist.


Das "Zuweisen" war eh falsch, da du doch nirgendwo was zuweisen tust (zumindestens nicht im gezeigten Code), sondern du willst auslesen/verwenden.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
Antwort Antwort


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 13:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz