SL Update mit StoredProc

[Walter Landwehr]

Hallo,

geht so was:

Delphi-Quellcode:

update tbl_gebuehren  set sortierung = (select result from SP_Sortstring('Ziffer'))

Der Befehl wird ausgeführt aber die Spalte Sortierung ist null.

[mkinzler]

Liefert die SP auch ein Feld mit der Bezeichnung "result" zurück?
SUSPEND vergessen?

[nahpets]

Hallo,

habe von FireBird keine Ahnung, bei den mir bekannten Datenbanken würde ich es in der Form machen:

Code:

update tbl_gebuehren set sortierung = SP_Sortstring(Ziffer);

'Ziffer' dürfte in Deinem Beispiel bedeuten, dass die SP_Sortstring aus der Zeichenfolge 'Ziffer' die Sortierung erstellt, also bei allen Datensätzen zum gleichen Ergebnis kommt. Du möchtest aber sicherlich die Sortierung aus dem Inhalt der Spalte Ziffer gebildet bekommen.

[p80286]

Ja das kann funktionieren, aber deine SP scheint mir ein wenig unangepasst zu sein.
Normal wäre mindestens ein (individueller) Eingabewert, wenn 'Ziffer' genutzt wird um Zufallszahlen zu generieren sollte es reichen. Wird denn überhaupt ein Wert zurück gegeben?

Aber warum so, die SP kann den Update doch selbst durchführen!?

Gruß
K-H

[nahpets]

Zitat:

Zitat von p80286 (Beitrag 1312133)

Ja das kann funktionieren, aber deine SP scheint mir ein wenig unangepasst zu sein.
Normal wäre mindestens ein (individueller) Eingabewert, wenn 'Ziffer' genutzt wird um Zufallszahlen zu generieren sollte es reichen. Wird denn überhaupt ein Wert zurück gegeben?

Aber warum so, die SP kann den Update doch selbst durchführen!?

Gruß
K-H

Ein Wert wird hier zurückgegeben.

Wenn die SP das Update selbst ausführt, geht es aber nur nach dem Motto: "Alles oder nichts", also für die gesamte Tabelle. Dies ist bei der erstmaligen Befüllung der Spalte Sortierung sicherlich sinnvoll. Bei allen später hinzukommenden oder geänderten Datensätzen aber nicht, da sollte man die SP lieber in einen entsprechenden Datenbanktrigger legen, der nur bei Änderungen der Spalte Ziffer für eine Neubefüllung der Spalte Sortierung, des konkret betroffenen Datensatzes, sorgt.

[p80286]

Wenn ich mich nicht verlesen habe, dann liefert die SP von DataSpider für 'Ziffer' NULL. Für '1Ziffer' sieht das schon ganz anders aus.

Gruß
K-H

[dataspider]

Hi,

die SP berücksichtigt nicht, dass es auch Werte ohne Zahl gibt.

Du musst das Ende der SP noch mal ändern:

Code:

  ...
  if (coalesce(:temp, '') <> '') then
  begin
    -- Zahl vor Punkt auffüllen
    pos = position('.', :temp);
    if (:pos = 0) then
      result = lpad(:temp, 10, '0')||'.'||lpad('0', 10, '0');
    else
      result = lpad(substring(:temp from 1 for :pos -1), 10, '0')||'.'||
               lpad(substring(:temp from :pos + 1 for :laenge), 10, '0');
    result = :result||coalesce(:rest, '');
  end
  else
    Result = :rest;
  suspend;

die 2 Zeilen vor dem supend hinzufügen


Frank

[Walter Landwehr]

Hallo,

hier mal zum besseren Verständnis dir SP:

Delphi-Quellcode:

begin
   result = null;
   laenge = char_length(:wert);
   if (:laenge > 0) then
   begin
     pos = 1;
     while (:pos <= :laenge) do
     begin
       zeichen = substring(:wert from :pos for 1);
       if (:zeichen in ('0','1','2','3','4','5','6','7','8','9', '.')) then
         temp = coalesce(:temp, '')||:zeichen;
       else
       begin
         -- Rest hinten
         rest = substring(:wert from :pos for 10);
         break;
       end 
       pos = :pos + 1;
     end 
   end
   if (coalesce(:temp, '') <> '') then
   begin
     -- Zahl vor Punkt auffüllen
     pos = position('.', :temp);
     if (:pos = 0) then
       result = lpad(:temp, 10, '0')||'.'||lpad('0', 10, '0');
     else
       result = lpad(substring(:temp from 1 for :pos -1), 10, '0')||'.'||
                lpad(substring(:temp from :pos + 1 for :laenge), 10, '0');
     result = :result||coalesce(:rest, '');
   end
   suspend;
 end

Ich möchte einmalig alle Datensätze das Feld Sortierung füllen.

Später wir beim Ändern oder Neuanlegen eines Datensatzes ein Trigger benutzt.

[p80286]

Nicht daß es untergeht:

Zitat:

Zitat von dataspider (Beitrag 1312137)

Hi,

die SP berücksichtigt nicht, dass es auch Werte ohne Zahl gibt.

Du musst das Ende der SP noch mal ändern:

Code:

  ...
  if (coalesce(:temp, '') <> '') then
  begin
    -- Zahl vor Punkt auffüllen
    pos = position('.', :temp);
    if (:pos = 0) then
      result = lpad(:temp, 10, '0')||'.'||lpad('0', 10, '0');
    else
      result = lpad(substring(:temp from 1 for :pos -1), 10, '0')||'.'||
               lpad(substring(:temp from :pos + 1 for :laenge), 10, '0');
    result = :result||coalesce(:rest, '');
  end
  else
    Result = :rest;
  suspend;

die 2 Zeilen vor dem supend hinzufügen


Frank

[nahpets]

Zitat:

Zitat von p80286 (Beitrag 1312136)

Wenn ich mich nicht verlesen habe, dann liefert die SP von DataSpider für 'Ziffer' NULL. Für '1Ziffer' sieht das schon ganz anders aus.

Gruß
K-H

Das mag ja durchaus so sein, aber mir erscheint ein Aufruf in der Form

Code:

update tbl_gebuehren set sortierung = (select result from SP_Sortstring('Ziffer'))

wenig sinnvoll, da hier für alle Datensätze der Tabelle die Sortierung anhand der konstanten Zeichenfolge 'Ziffer' ermittelt wird und nicht anhand des Inhaltes der Spalte Ziffer. Bei '1Ziffer' mag also durchaus was anderes herauskommen, als bei 'Ziffer', aber es wird für alle Datensätze der Tabelle der gleiche Wert sein, Null wird also für alle Datensätze durch einen anderen, aber immer gleichen Wert, ersetzt.

Oder ist die Funktionalität von Firebird so anders, dass bei SP_Sortstring('Ziffer') hier tatsächlich der Inhalt der Spalte Ziffer genutzt wird?
Dies würde mich doch sehr wundern.

[Walter Landwehr]

Hi Frank,

habe die Zeilen eingefügt.

nach Ausführung des SQL Befehls steht in Feld Sortierung aller Datensätze 'Ziffer'. ???

[Walter Landwehr]

OK K-H. Wie kann ich denn den Wert der Spalte Ziffer übergeben?

[nahpets]

Zitat:

Zitat von Walter Landwehr (Beitrag 1312141)

Hi Frank,

habe die Zeilen eingefügt.

nach Ausführung des SQL Befehls steht in Feld Sortierung aller Datensätze 'Ziffer'. ???

Das ist auch nicht anders zu erwarten, solange Du die konstante Zeichenfolge 'Zffer' an die Prozedur übergibst.

Zitat:

OK K-H. Wie kann ich denn den Wert der Spalte Ziffer übergeben?

Code:

update tbl_gebuehren set sortierung = (select result from SP_Sortstring('Ziffer'))

Nimm doch bitte mal die Kontraproduktiven ' vor und hinter Ziffer heraus, damit die Datenbank die Möglichkeit bekommt, den Inhalt der Spalte Ziffer zu verwenden.

Also so:

Code:

update tbl_gebuehren set sortierung = (select result from SP_Sortstring(Ziffer))

[Walter Landwehr]

OK,

das funktioniert soweit. Danke.

Nun muss ich noch rausfinden bei welchen Datensatz dieser Fehler kommt.

Arithmetic overflow or division by zero has occurred.
arithmetic exception, numeric overflow, or string truncation.
string right truncation.
At procedure 'SP_SORTSTRING' line: 46, col: 2.

[dataspider]

Zitat:

Zitat von Walter Landwehr (Beitrag 1312144)

OK,

das funktioniert soweit. Danke.

Nun muss ich noch rausfinden bei welchen Datensatz dieser Fehler kommt.

Arithmetic overflow or division by zero has occurred.
arithmetic exception, numeric overflow, or string truncation.
string right truncation.
At procedure 'SP_SORTSTRING' line: 46, col: 2.

Walter,

deshalb wies ich dich bereits darauf hin, dass du die Länge der Varchar' s überprüfen sollst.
Setz doch mal alle VARCHAR auf 100:

Code:

create or alter procedure sp_sortstring (
    wert varchar(100))
returns (
    result varchar(100))
as
declare variable laenge smallint;
declare variable pos smallint;
declare variable zeichen char(1);
declare variable temp varchar(100);
declare variable rest varchar(100);
...

dann wird der Fehler sicher weg sein.


Frank

[hoika]

Hallo,
Welche Zeile ist das (bin mit dem iPad hier).

Eine genaue Beschreibung wird es erst mit FB 3.0 geben.
Jetzt hilft hier nur, Ausgaben in eine Log-Tabelle zu schreiben.
Dort steht dann der letzte erfolgreiche gelesene String drin,
der nächste ist das Problemkind.

Woher kennt mein Vorredner die ganze SP???


Heiko

[TBx]

Er hat sie geschrieben :-)

[dataspider]

Zitat:

Zitat von hoika (Beitrag 1312168)

Hallo,
Welche Zeile ist das (bin mit dem iPad hier).

Eine genaue Beschreibung wird es erst mit FB 3.0 geben.
Jetzt hilft hier nur, Ausgaben in eine Log-Tabelle zu schreiben.
Dort steht dann der letzte erfolgreiche gelesene String drin,
der nächste ist das Problemkind.

Woher kennt mein Vorredner die ganze SP???


Heiko

Hier noch mal die komplette SP mit längeren VARCHAR Feldern:

Code:

create or alter procedure sp_sortstring (
    wert varchar(100))
returns (
    result varchar(100))
as
declare variable laenge smallint;
declare variable pos smallint;
declare variable zeichen char(1);
declare variable temp varchar(100);
declare variable rest varchar(100);
begin
  result = null;
  laenge = char_length(:wert);
  if (:laenge > 0) then
  begin
    pos = 1;
    while (:pos <= :laenge) do
    begin
      zeichen = substring(:wert from :pos for 1);
      if (:zeichen in ('0','1','2','3','4','5','6','7','8','9', '.')) then
        temp = coalesce(:temp, '')||:zeichen;
      else
      begin
        -- Rest hinten
        rest = substring(:wert from :pos for 100);
        break;
      end 
      pos = :pos + 1;
    end 
  end
  if (coalesce(:temp, '') <> '') then
  begin
    -- Zahl vor Punkt auffüllen
    pos = position('.', :temp);
    if (:pos = 0) then
      result = lpad(:temp, 10, '0')||'.'||lpad('0', 10, '0');
    else
      result = lpad(substring(:temp from 1 for :pos -1), 10, '0')||'.'||
               lpad(substring(:temp from :pos + 1 for :laenge), 10, '0');
    result = :result||coalesce(:rest, '');
  end
  else
    Result = :rest;
  suspend;
end

Ich habe auch in der Zeile die Zeile

Code:

  rest = substring(:wert from :pos for 100);

von 10 auf 100 geändert.

Walter,
du solltest dennoch die SP überprüfen.
Ich fülle jetzt die numerischen Teile bis 10 Stellen auf.
aus 14.5 mache ich 0000000014.0000000005

Auch das funktioniert evtl. nur korrekt, wenn deine numerischen Teile nie länger als 10 sind.
(hab jetzt nicht im Kopf, ob lpad dann abschneidet, den Wert so lässt oder eine Exception wirft.

Wenn du z.B. einen Wert 123456789012.3a hättest - hättest du u.U. ein neues Problem.

Ich kann nur eine Vorlage liefern, nicht die fehlerfreie Lösung.

Frank

[Walter Landwehr]

Danke Frank, hatte den Datensatz der den Fehler verursacht hat gefunden und Korrigiert. Lag an solchen Ziffern 50G (9.3a).

Funktioniert alles bestens.

Danke nochmals für Deine Mühen.

[dataspider]

Zitat:

Zitat von Walter Landwehr (Beitrag 1312354)

Danke Frank, hatte den Datensatz der den Fehler verursacht hat gefunden und Korrigiert. Lag an solchen Ziffern 50G (9.3a).

Do solltest dennoch die Variablen vergrößern.
Dein Beispiel liefert "0000000050.0000000000G (9.3a)."

Das sind 30, die Länge von Result. Das ist arg grenzwertig.
Setz die Varchars hoch, wenn du es noch nicht gemacht hast.

Frank