insert geht erst bei Programmende

[Hansa]

Hi,

ich habe hier folgenden Effekt: erzeuge ich einen neuen Datensatz, so wird dieser erst in der DB sichtbar, sofern das Programm verlassen wird, obwohl ich nach dem Insert sogar ein Transaction.commit ausführe. Ich prüfe mit SELECT, ob der Datensatz bereits da ist und mache dann je nach Ergebnis ein Insert oder Update. Gebe ich in einem Arbeitsschritt zweimal dasselbe ein, so wird zweimal insert gemacht anstatt ein insert und ein update.

[Jens Schumann]

Hallo Hansa,
versuche doch mal mit POST (vor Transaction.Commit) den Datensatz explizit abzuschicken.

[Hansa]

Hi Jens,

ich benutze eine Query, da gibts kein Post.

[Lemmy]

Hi Hansa,

habe ich das richtig verstanden: Du hast ein Query, in der Du je nach Bedarf ein Insert oder Update-Statement einfügst und dieses dann ausführst?

Wenn ja:

1. Bist Du sicher, dass Du die richtige Transaction mit Commit beendest (bitte nicht beleidigt sein, ist mir schon das eine oder andere mal passiert)?
2. Welche Query verwendest Du: IBX, FIBPlus, IBObjects, BDE,...? Bei den IBX solltest Du ne halbwegs aktuelle Version verwenden, da es dort bei den alten Versionen immer wieder mit den Transaktionen Probleme gab.
3. Wenn Du die Transaction mit Commit beendest, öffnest Du diese auch expilzit (d.h. vor dem Query.execute; ein TRansaction.StartTransaction)?


Grüße
Lemmy

[Hansa]

Zitat von Lemmy:

1. Bist Du sicher, dass Du die richtige Transaction mit Commit beendest...

habe nur eine.

Zitat von Lemmy:

2. Welche Query verwendest Du?

FIBplus

Zitat von Lemmy:

3. Wenn Du die Transaction mit Commit beendest, öffnest Du diese auch expilzit (d.h. vor dem Query.execute; ein TRansaction.StartTransaction)?

Nein, der Sache geh ich jetzt nach.

P.S.: Wenn ich die Transaction immer neu starte, dann kriege ich Ärger bei einem eventuellen Rollback, oder ?

[Hansa]

Es sieht jetzt so aus:

SQL-Code:

ExecQuery;
Commit;
StartTransaction;

keine Änderung. Soll ich vielleicht ein Dataset verwenden

[Lemmy]

Versuche es eher mal so:

Code:

Query.SQL.Text:='INSERT INTO....';
if Transaction.InTransaction then
  TransaCtion.Commit;
Transaction.StartTransaction;
Query.ExecQuery;
Transaction.Commit;

Anschließend schaust Du in der IBConsole/... nach ob der Datensatz vorhanden ist. Aber Achtung! Auch dort gibt es Transaktionen die evtl. am laufen sind, d.h. am besten nach dem Insert/Update die Datenbankconnection schließen und neu öffnen, dann sollte aber wirklich alles i.O. sein.

Grüße
Lemmy

[Hansa]

Habe das ganze jetzt auf Dataset umgestellt, mit dem Erfolg, daß es geht aber selbst nach Programmende immer nur ein insert gemacht wird, kein Update. 8) Der Record ist beim Insert richtig drin, aber beim überprüfen wird er nicht mehr gefunden, also statt update wird insert gemacht. Probiere Dein Bsp. jetzt mal aus.

[Hansa]

So, jetzt kann ich doch beruhigt Mittag machen. Der Fehler war, daß ich IsEmpty bei einer geschlossenen Datenmenge abgefragt habe, bzw. an der falschen Stelle. Also mußte noch eine Hilfsvariable her. Der Rest vom Code war anscheinend richtig.