Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Interbase Generatorwert zurücksetzen? (https://www.delphipraxis.net/39868-interbase-generatorwert-zuruecksetzen.html)

plautzer 8. Feb 2005 14:13

Datenbank: Interbase • Zugriff über: IbStoredProc, IBDataSet

Interbase Generatorwert zurücksetzen?
 
Hi Leutz,

ich habe ein SrtingGrid in dem ich Daten eintragen will.
Falls ich einen neuen Datensatz eintrage, wird die ID automatisch durch den Generator hochgesetzt.

Wenn sich der Benutzer es aber anderes überlegt und gar keinen datensatz anlegen will (also cancel), dann soll die ID wieder zurückgesetzt werden um riesige Lücke zu vermeiden.

Kann man den Generator wert irgentwie von Delphi aus festlegen?

Mir würde jetzt keine eleganten Weg einfallen, wie das lösen könnte, wüsstet ihr einen?

Thx,

Plautzer

[edit=sakura] [Klammern] aus dem Titel entfernt. Mfg, sakura[/edit]

lume96 8. Feb 2005 14:37

Re: [Interbase] Generatorwert zurücksetzen?
 
Moin,

einen Generator-Wert kann man wie folgt setzen :
SQL-Code:
SET GENERATOR abc_GEN TO x;
wobei abc_GEN der Generatorname ist und x der neue Wert

Im Allgemeinen würde ich aber davon abraten, ausser wenn Du Dir absolut sicher bist, dass NIEMAND sonst auf die DB zugreift (z.B. zweite Instanz Deines Programms). Sonst kann es schnell Probleme geben, z.B.:

App 1 nimmt den Wert 5 (nächster Gen-Wert ist jetzt 6)
App 2 nimmt den Wert 6 (nächster Gen-Wert ist jetzt 7)

App 1 will den Generator-Wert zurückseten, aber auf was ???

Musst Du den den Wert so "früh" erfragen. Logischer wäre es, den Wert erst dann zu erfragen, wenn der User den Record schon gepostet hat, Du also sicher bist, dass die Werte in die DB sollen.

Unter Umständen könnte man das sogar über'n Trigger (Before Insert) automatisieren.

Tschüss,
Lutz

Quake 8. Feb 2005 15:03

Re: [Interbase] Generatorwert zurücksetzen?
 
Bei TIBQuery gibt es die Eigenschaft GeneratorField. GeneratorField wiederum besitzt die Eigenschaft ApplyEvent. Setzt du diese auf gamOnPost wird der Wert erst generiert, wenn der Datensatzt auch gespeichert wird.
Oder wenn du den Generatorwert manuell holst dann mache das im onBeforePost Ereignis.

DelphiDeveloper 8. Feb 2005 18:55

Re: [Interbase] Generatorwert zurücksetzen?
 
Wie Lume96 bereits geschrieben hat, kann man aus Delphi heraus auch Generatorenwerte setzen.

Für dein beschriebenes Problem wuerde ich davon auch abraten. Luecken machen ueberhaupt nichts bei einer ID die ja meist ja PK fungiert.
Beabsichtigst du sowas wie eine eindeutige lueckenlose sequenz wie etwa RechNr zu generieren, sind Generatoren dafür nicht geeignet.

mfg
DD

urs.liska 8. Feb 2005 21:02

Re: [Interbase] Generatorwert zurücksetzen?
 
Ich kann mich den Vorrednern nur anschließen:
automatisch hochgezählte Werte sollte man auf keinen Fall von Hand ändern. Das gibt irgendwann eine korrupte Datenbank. Wirklich!

Wenn Du wirklich lückenlose Zahlenfolgen brauchst - wie eben die genannte Rechnungsnummer - dann solltest Du zwei separate Felder benutzen: Eines für den Primärschlüssel (mit Generator) und ein zweites für die lückenlose Folge (die Du auf irgendeine andere Weise programmseitig erzeugen musst).

MfG
Urs

Quake 9. Feb 2005 06:36

Re: [Interbase] Generatorwert zurücksetzen?
 
@urs.liska: Die Frage ist nur wie möchtest du sonst solch eine Zahl erzeugen? Ich denke, wenn man im Netzwerkarbeitet und man benötigt eine Zahl die nicht doppelt vorkommen darf sollte man auf jeden Fall einen Generator verwenden. Die Frage ist nur wann und wie man ihn erzeugt. Sofort wenn man einen neuen Datensatz anlegt oder erst wenn man ihn speichert. Ob man SELECT verwendet oder das GeneratorField von TIBQuery ist dabei auch noch egal.

ciao :hi:

urs.liska 9. Feb 2005 07:22

Re: [Interbase] Generatorwert zurücksetzen?
 
@Quake
Ich würde sagen: gamOnPost, wenn man den Primärschlüssel nicht schon vorher braucht (z.B für Detaildaten).

Für die Frage der lückenlosen Nummernfolge gibt es fertige Methoden (bitte nicht fragen wo und wie, ich weiß nur, dass es so was gibt; ich glaube, bei den Docs von ibphoenix oder ibobjects habe ich mal was gesehen).
Urs

Quake 9. Feb 2005 10:19

Re: [Interbase] Generatorwert zurücksetzen?
 
Ja genau das meinte ich für DatensatzID gamOnNewRecord und für RechnungsNr etc. gamOnPost. Die Details werden dann mit der DatensatzID verknüpft.

DelphiDeveloper 10. Feb 2005 00:45

Re: [Interbase] Generatorwert zurücksetzen?
 
Zitat:

Ja genau das meinte ich für DatensatzID gamOnNewRecord und für RechnungsNr etc. gamOnPost. Die Details werden dann mit der DatensatzID verknüpft.
Die RechNr bei OnPost zu generieren minimiert zwar das Problem aber eine lückenlose Sequenz von RechNr kriegt man dann auch noch nicht hin. Hat man irrtümich gepostet dann ist die Rechnr schon generiert und das löschen der Rechnung bringt "Löscher" in der Sequenz.

Ich würde mir für eindeutige Sequenzen sowas bauen:

Eine Tabelle mit einem Nummernkreis hier nur eine Zeile
ID NEXTNUMBER
1 4711

Eine Tabelle Nummernpool mit verwaisten Rechnr


Das ganze arbeitet dann wie folgt

hier als Pseudoalgo

exklusiver Zugriff auf Tabelle Nummernkreis anfordern (Lock)
wenn gesperrt warte...
schaue im Numernpool ob noch verwaiste Nr vorliegen
wenn ja hole satz aus nummernpool und loesch ihn dort -> fertig
wenn nix im Nummernpool
hole NEXTNumber aus Nummernkreis, incrementiere um 1 NextNumber in Nummernkreis
exklusiver Zugriff auf Tabelle zureucksetzen (unlock).

Quake 10. Feb 2005 06:52

Re: [Interbase] Generatorwert zurücksetzen?
 
Rechnungen dürfen nicht gelöscht werden. Wenn dann storniert man sie, d.h. man hat z.B. ein boolsches Feld STORNIERT das man auf true setzt. Deswegen entstehen erst garkeine Lücken.
Mit deiner Methode würdest du ja auch unter Umständen hinbekommen, daß du Rechnungs-Nr. von Heute zwischen die von vor 10 Jahren packst weil da zufällig eine gelöscht wurde. Das ist nicht Sinn der sache.

ciao :wink:


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:35 Uhr.
Seite 1 von 3  1 23      

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