AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Firebird Datensatz verschieben via PrimaryKey
Thema durchsuchen
Ansicht
Themen-Optionen

Firebird Datensatz verschieben via PrimaryKey

Ein Thema von Perlsau · begonnen am 21. Mär 2012 · letzter Beitrag vom 23. Mär 2012
Antwort Antwort
Perlsau
(Gast)

n/a Beiträge
 
#1

AW: Firebird Datensatz verschieben via PrimaryKey

  Alt 21. Mär 2012, 07:40
Ich würde anders vorgehen.
wie mkinzler schon sagte: eigene Spalte für die Sortierung verwenden. Nicht den Primärindex. Index auf die Sortierspalte setzen
Naja, wie ich oben schon bemerkte, kann ich hier keine Gefahren durch das Ändern der PrimaryKeys entdecken. Aber ich werde mein Projekt jetzt erstmal sichern (auf Backupplatte kopieren) und dann mal mit der zusätzlichen Spalte ausprobieren. Könnte mir sogar vorstellen, daß das schneller ist als die Version mit den PrimaryKeys ... Danke für deinen Beitrag.
  Mit Zitat antworten Zitat
Benutzerbild von Nersgatt
Nersgatt

Registriert seit: 12. Sep 2008
Ort: Emlichheim
693 Beiträge
 
Delphi 10.1 Berlin Professional
 
#2

AW: Firebird Datensatz verschieben via PrimaryKey

  Alt 21. Mär 2012, 07:46
Ich würde anders vorgehen.
wie mkinzler schon sagte: eigene Spalte für die Sortierung verwenden. Nicht den Primärindex. Index auf die Sortierspalte setzen
Naja, wie ich oben schon bemerkte, kann ich hier keine Gefahren durch das Ändern der PrimaryKeys entdecken.
Iiiirgendwann wirst Du Dein Projekt erweitern. Dann wirst Du an einer ganz anderen Stelle im Programm diesen Primärindex in einer anderen Tabelle als Fremdschlüssel speichern. Und du wirst nicht mehr dran denken, die Sortierroutinen anzupassen. Und der Kunde wird Dich durch das Telefon ziehen, weil die Daten "auf einmal" völlig durcheinander sind. Und dann wirst Du einen halben Tag drauf verwenden, rauszufinden, wie das sein kann. Bis Du irgendwann auf die Sortierroutine stößt und mit der Stirn auf die Schreibtischplatte aufschlägst...
Jens
  Mit Zitat antworten Zitat
Perlsau
(Gast)

n/a Beiträge
 
#3

AW: Firebird Datensatz verschieben via PrimaryKey

  Alt 21. Mär 2012, 08:01
Iiiirgendwann wirst Du Dein Projekt erweitern. Dann wirst Du an einer ganz anderen Stelle im Programm diesen Primärindex in einer anderen Tabelle als Fremdschlüssel speichern. Und du wirst nicht mehr dran denken, die Sortierroutinen anzupassen. Und der Kunde wird Dich durch das Telefon ziehen, weil die Daten "auf einmal" völlig durcheinander sind. Und dann wirst Du einen halben Tag drauf verwenden, rauszufinden, wie das sein kann. Bis Du irgendwann auf die Sortierroutine stößt und mit der Stirn auf die Schreibtischplatte aufschlägst...
Wie ich bereits erwähnte: Grundsätzlich stimme ich euch beiden (MKinzler & Nersgatt) vollkommen zu. Doch hier besteht die Gefahr tatsächlich nicht, weil eine Erweiterung, die die Wiederverwendung des Primärschlüssels in einer anderen Tabelle erfordert, nicht anstehen wird. Dennoch werde ich jetzt gleich im Anschluß deinen Vorschlag umsetzen, schon allein deshalb, weil ich sehen möchte, ob die Sortierung nach gewünschter Reihenfolge damit schneller läuft. Aber auch eine weitere Idee unterstützt deinen Vorschlag: ich möchte dem Anwender die Möglichkeit geben, den zu druckenden Seiten eine Seitennummerierung zu verpassen, wenn die eingescannten Bilder nicht bereits Seitenzahlen enthalten. Schließlich soll man damit nicht nur Buchseiten archivieren und ausdrucken können, sondern auch andere Bilder und Grafiken, Fotos usw. Daher heißt die neue Spalte nun SEITENNR.

Was ist eigentlich mit deiner I-Taste los?
  Mit Zitat antworten Zitat
Benutzerbild von Nersgatt
Nersgatt

Registriert seit: 12. Sep 2008
Ort: Emlichheim
693 Beiträge
 
Delphi 10.1 Berlin Professional
 
#4

AW: Firebird Datensatz verschieben via PrimaryKey

  Alt 21. Mär 2012, 08:39
Hab mir gerade mal Deinen ersten Post nochmal angeschaut. So bombadierst Du natürlich die Datenbank mit UPDATEs. Je nachdem, wie viele Datensätze Du drin hast.

Bild nach oben schieben:
Code:
UPDATE BILDER SET SEITENR = SEITENR + 1 WHERE SEITENR < (SELECT SEITENR FROM BILDER WHERE IDX_BILDER = :IDX);
UPDATE BILDER SET SEITENR = 1 WHERE IDX_BILDER = :IDX;
Bild nach unten schieben:
Code:
UPDATE BILDER SET SEITENR = SEITENR - 1 WHERE SEITENR > (SELECT SEITENR FROM BILDER WHERE IDX_BILDER = :IDX);
UPDATE BILDER SET SEITENR = (SELECT COALESCE(MAX(SEITENR), 0) FROM BILDER WHERE IDX_BILDER = :IDX) + 1 WHERE IDX_BILDER = :IDX;
Parmeter IDX = zu verschiebender Datensatz

Ungetestet. So funktioniert das nur, wenn Du Index und Sortierfeld trennst. Denn nach dem ersten Update beim Nach-Oben-Schieben hast Du 2 Datensätze mit der selben Seitennummer. Das wird beim 2. Update sofort wieder korrigiert. Das geht natürlich nicht, wenn Du dafür den Primärindex nimmst.
Und außerdem würde ich das in eine Transaktion packen, zur Sicherheit.
Jens
  Mit Zitat antworten Zitat
Perlsau
(Gast)

n/a Beiträge
 
#5

AW: Firebird Datensatz verschieben via PrimaryKey

  Alt 22. Mär 2012, 08:57
Hab mir gerade mal Deinen ersten Post nochmal angeschaut. So bombadierst Du natürlich die Datenbank mit UPDATEs. Je nachdem, wie viele Datensätze Du drin hast.
Vollkommen richtig, bei einer größeren Datensatzmenge dauert das ewig

Die Lösung mit der Zusatzspalte (SeitenNr) ist auf jeden Fall die bessere. Hab vielen Dank für deine Hinweise.
  Mit Zitat antworten Zitat
Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.487 Beiträge
 
Delphi 12 Athens
 
#6

AW: Firebird Datensatz verschieben via PrimaryKey

  Alt 22. Mär 2012, 11:14
Die Bedingungen sollten meiner Meinung nach erfüllt werden:
- der Index auf das Sortierfeld ist eindeutig
- auf die Daten wird auch bei der Änderung über den Index zugegriffen
- die Änderung erfolgt innerhalb einer Transaktion

Ich würde das in einer Stored Procedure kapseln.
Code:
create procedure P_BILDER_VERSCHIEBEN (
    SRCINDEX integer,
    DSTINDEX integer)
AS
begin
  if (srcindex <> dstindex) then
  begin
    if (srcindex < dstindex) then
    begin
      update bilder
      set   idx = -idx
      where (idx >= :srcindex) and (idx <= :dstindex);
 
      dstindex = -dstindex;
      srcindex = -srcindex;
 
      update bilder
      set   idx = (-idx) - 1
      where (idx >= :dstindex) and (idx < :srcindex);
    end
    else
    begin
      update bilder
      set   idx = -idx
      where (idx >= :dstindex) and (idx <= :srcindex);
 
      dstindex = -dstindex;
      srcindex = -srcindex;
 
      update bilder
      set   idx = (-idx) + 1
      where (idx > :srcindex) and (idx <= :dstindex);
    end
 
    dstindex = -dstindex;
 
    update bilder
    set   idx = :dstindex
    where (idx = :srcindex);
  end
end
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

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

AW: Firebird Datensatz verschieben via PrimaryKey

  Alt 22. Mär 2012, 11:19
Jetzt hatten wir ihn gerade davon überzeugen können, dass man den Primärschlüssel tunlichst nicht anfassen sollte und sich dieser nicht zur Festlegung einer Anzeigereihenfolge eignet. Aber wir sind halt alle Idioten und haben keine Ahnung.
Markus Kinzler
  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 19:19 Uhr.
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-2025 by Thomas Breitkreuz