Hallo zusammen,

ich habe im Moment ein sehr lustiges Problem und steh irgendwie auf dem Schlauch. Ich bin der Meinung, dass ich irgendwas nicht richtig verstanden habe, nur wo ich nachschauen soll ist gerade fraglich. Hier nun erst mal ein wenig Code:

zusammenfalten · markieren

Delphi-Quellcode:

var
  query : TQuery;
begin
  query := FDatabaseController.CreateQueryObject();
  try
    // Erstes Statement mit RETURNING-Anweisung
    query.SQL.Text := 'INSERT INTO ... RETURNING "UserID" {into :userid}';
    query.SetParam('id', UserID);
    query.SetDataType('userid', varInteger);
    query.ExecSQL();

    // ID des eingetragenen Users übernehmen
    FUser.UserID := query.GetParam('userid');

    // Weitere SQL-Anweisung mit gleichem Query-Objekt
    query.SQL.Text := 'UPDATE ...';
    query.ExecSQL();
    { query.RowsAffected ist hier immer 0 und es wird in der DB auch nichts geändert }

  finally
    FreeAndNil(query);
  end;

Warum funktioniert der zweite Aufruf nicht? Gibt es eigentlich eine "Clear"-Methode, die so ein Query-Objekt komplett zurücksetzt? Das habe ich bisher gesucht, aber keinerlei passende Methode gefunden. Prepare und Unprepare sind gar nicht dokumentiert und somit weiß ich leider auch nicht, was diese bewirken, aber geholfen haben sie nicht.

// edit
Ein kleiner Nachtrag noch: das Ganze hängt scheinbar mit der RETURNING-Anweisung zusammen Hätte nicht gedacht, dass das einen Unterschied macht und das Objekt irgendwie intern ändern...

Sollte eigentlich gehen. Was für ein Fehler wird den angezeigt?

Gar keiner! Die Query wird zwar ohne Fehler ausgeführt, hat aber keinerlei Auswirkungen auf die Einträge in der DB.

Folgender Code hat geholfen, wobei ich noch nicht ganz verstehe warum

markieren

Delphi-Quellcode:

query.SQL.Clear; // <- Clearen des bisherigen SQL-Befehls...
query.SQL.Text := 'UPDATE ...';
query.ExecSQL();

Es muss mit der manuellen anlage des Parameters

markieren

Delphi-Quellcode:

    query.SetParam('id', UserID);
    query.SetDataType('userid', varInteger);

zutun haben.
Dieser siollte eigentlich automatisch efolgen und dann beim Ersetzen der Abfrage auch automatisch gelöscht werden

Zumindestens bei query.Text='Select ...' funktioniert das wenn man

markieren

Delphi-Quellcode:

....
query.Close;
query.Text:=' select irgendwas...';
query.Open;
...

nutzt.

Liegt's vielleicht am Close?
Gruß
K-H

Ich tippe eher darauf, dass es ein interner Bug ist und beim Ändern des SQL.Text nicht entsprechend gecleared wird, warum auch immer. Ich habe das ganze nun in meiner abgeleiteten TQuery-Klasse gekapselt, sodass bei jedem setzen von SQLText (neue Property) erst ein SQL.Clear ausführt und dann SQL.Text gesetzt wird.

Hab gerade leider nicht die Zeit mich durch den DB-Code zu schlagen

// edit
Naja, das Close muss ich doch nur verwenden, wenn ich ein SELECT getätigt habe, was ich an dieser Stelle ja nicht mache.

Zudem gibt Close nichts frei, sondern schliesst nur die Datenmenge( Cursor)