Firebird TIBQuery-Einsatz mit der Rückkehr IN ...

Ich habe eine firebird 2.x-Datenbank mit Generator und einen trigger, um den Schlüssel zu generieren-Feld.
Ich brauche, um den zurückgegebenen Wert aus folgenden Abfrage.

INSERT INTO XXXX (vdate,description) values ('"+ VDate +"','"+ Description +"') returning vno INTO :ParamVoucherNo

Ich habe versucht, mehrere Versionen der code unten, aber es nicht wrok und ich bekomme

Dynamic sql error sql error code = -104

Ist es wirklich möglich, den Rückgabewert in delphi mit TIBQuery ?

Query1->SQL->Clear();
Query1->SQL->Add("INSERT INTO XXXX (vodate,description) values ('"+ VDate +"','"+ Description +"') returning vno INTO :ParamVoucherNo");

Query1->Params->ParamByName("ParamVoucherno")->ParamType = ptResult;
Query1->Params->ParamByName("ParamVoucherno")->DataType = ftInteger;
Query1->Params->ParamByName("ParamVoucherno")->Value = "";
Query1->Prepare();
Query1->ExecSQL();

Irgendwelche Vorschläge?

Ich bin rusty auf der TADO, aber ich glaube, Sie haben die Möglichkeit auf eine Rendite Wert einfügen (ich nehme an, auto-increment) aus der Datenbank. Es sollte eine option auf die TADOQuery oder die TADOConnection-Objekte, um den Rückgabewert einer auto-increment. Ich bin nicht up-to-Geschwindigkeit auf firebird, aber das erfordert den Treiber realisieren die option. Die andere Möglichkeit ist folgende es mit einem SELECT MAX(ID) FROM Tabelle", aber das führt zu concurrency-Fehler und sollte vermieden werden.

InformationsquelleAutor topmop75 | 2011-09-27

5

Vom Firebird-README-Datei.Rückkehr:

Den IN Teil (d.h. die variable Liste) erlaubt ist, in PSQL nur (zu
weisen Sie den lokalen Variablen) und abgelehnt, in DSQL.

Als IBX verwendet DSQL, sollten Sie ausschließen INTO Teil aus der Abfrage.

INSERT ... RETURNING für DSQL sieht genauso aus wie ein Aufruf einer gespeicherten Prozedur, die Ergebnis-set. Also, Sie haben zu verwenden Open statt ExecSQL.
- Vielen Dank für Ihre Antwort. Allerdings habe ich auch schon versucht. Und wenn ich Open() dann habe ich nicht bekommen, DSQL Fehler, Aber der daraus resultierende Datensatz ist einfach leer. (ich.e Abfrage1->RecordCount == 0), so kann ich nicht bekommen die retruned Wert
- Ich bin nicht erfahren mit IBX, aber wahrscheinlich ist es nicht die Unterstützung der RÜCKKEHR-Klausel. Das funktioniert mit AnyDAC, die ich verwende.
InformationsquelleAutor oodesigner

Ihre Vermischung von dynamischen SQL mit Parameter ist nur verwirrend.

Tun Sie dies:

Query1->SQL->Clear();
Query1->SQL->Add("INSERT INTO table1 (vodate,description) VALUES"+
                 "(:VoDate,:Description) RETURNING vno INTO :VoucherNo ");
Query1->Params->ParamByName("VoDate")->Value = VDate;
Query1->Params->ParamByName("description")->Value = Description;

Query1->Prepare();
Query1->ExecSQL();
VoucherNo = Query1->Params->ParamByName("VoucherNo")->AsInteger;

Vielen Dank für Ihre Antwort, hab ich schon versucht , und es erheben gleichen Fehler, die ich bereits in meinem ersten post

InformationsquelleAutor Johan

Mit Delphi 6 habe ich die ID der Rückkehr erfolgreich mit einer EXECUTE BLOCK-Anweisung:

EXECUTE BLOCK
RETURNS ( DeptKey INT )
AS
BEGIN
  INSERT INTO DEPARTMENT 
      ( COMPANY_KEY, DEPARTMENT_NAME ) 
      VALUES ( 1, 'TEST1' ) RETURNING DEPARTMENT_KEY INTO :DeptKey;
  SUSPEND;
END;

Von Delphi können Sie die folliowing:

FQuery.SQL.Text := '<Execute Block Statement>';
FQuery.Open();
ANewKey := FQuery.Fields[0].AsInteger;

InformationsquelleAutor berndvf

1

IBX ist nicht Firebird bereit

können Sie einen Blick auf FIBPLUS, die Unterstützung der Firebird-features

FIBPlus auch unterstützt FB2.0 insert ... into ... " - Rückkehr. Jetzt
sollte sich nicht die Mühe, über die erste generator-Werte vom client, aber
lassen Sie Sie in die auslösen. Sie können auch verwenden, RDB$DB_KEY. Neue möglich
Varianten der Arbeit mit dem einfügen der Rückkehr und RDB$DB_KEY gezeigt
Beispiel "FB2InsertReturning".

InformationsquelleAutor Hugues Van Landeghem
1

Warum nicht den nächsten Wert für VoucherNo zuerst, gefolgt von
```
"INSERT INTO table1 (vno, vodate,description) VALUES (:VoucherNo,:VoDate,:Description)");
```
?

Ihre trigger kann dann entweder verzichtet werden (was schön ist), oder geändert, um zu erkennen null (oder <= null nützlich sein kann) und erst dann füllen Sie die vno Feld.
```
create trigger bi_mytable
  active before insert position 1
  on mytable
as
begin
  if (new.vno is null)
    then new.vno = next value for gen_VoucherNos;
end
```
Client-Seite können Sie :
```
select gen_id(gen_VoucherNos, 1) from rdb$database;
```
Durch ändern der trigger auf diese Weise ersparen Sie sich Kopfschmerzen später auf, falls/wenn Sie möchten, um Blöcke einfügen der Datensätze
- Die ganze Idee über INSERT ... die RÜCKGABE ist, dass Sie nicht brauchen, um zu bekommen, dass der Wert der ersten, aber lassen Sie den trigger erzeugen, und kehrt dann zurück, dass Wert.
- Natürlich ist es aber was bedeutet es wirklich zu sparen ?
- Ich sehe es als vollkommen akzeptable Umgehung des Problems der IBX nicht in der Lage den Umgang mit EINFÜGEN..RÜCKKEHR (die, übrigens, ist eine sehr bequeme syntax). Von Ihnen positiv bewertet werden.
- Jones: Es speichert mehrere roundtrips zur Datenbank, so dass Sie es durchführen sollten etwas besser, zweitens spart die Codierung im Umgang mit der Rückholung der generator Wert vor dem einfügen.
InformationsquelleAutor Hugh Jones
1

Ich Frage mich, ob das INSERT gewickelt werden kann in EXECUTE BLOCK Befehl.
Würde IBX verwalten EXECUTE BLOCK dann?
- http://www.firebirdsql.org/refdocs/langrefupd20-execblock.html
- http://firebirdsql.su/doku.php?id=execute_block
Hoffnung, um zu versuchen, es in beide IBX und Unified Interbase in XE2

PS: Auch wenn es nicht, ich fand die Bibliothek, das sagt arbeiten auf der Oberseite des IBX von Delphi XE2 (sowohl x86 als auch x64) und fügen Sie EXECUTE BLOCK Unterstützung: http://www.loginovprojects.ru/index.php?page=ibxfbutils#eb.

InformationsquelleAutor Arioch 'The
0

Da ich weiß, es sollte einige änderungen an IBX gemacht. Intern INSERT ... RETURNING sollten in der gleichen Weise behandelt werden wie eine wählbare Verfahren, mit returning-Parameter.

InformationsquelleAutor Andrej Kirejeŭ
0

ich weiß, diese Frage wurde beantwortet, vor langer Zeit, aber ich muss schreiben dieses so klar wie möglich, für diejenigen, die brauchen, wie ich war.

ich auch, brauchte das "INSERT ... ZURÜCKGEBEN" zu tun.
die Delphi-fuhr mich verrückt für eine lange Zeit, bis ich änderte meine Data access components.
ich selbst zog aus Delphi XE2 auf XE5 nur, weil, dass...

Fazit : IBX unterstützt NICHT die RÜCKKEHR!
FireDAC ist PERFEKT für das, was ich brauche mit Firebird.

bewegen Sie einfach zu FireDAC und Sie werden in der Lage sein zu tun, alles, was Sie brauchen, und mit hoher Leistung.

InformationsquelleAutor Eitan Arbel

Wenn Sie eine Tabelle mit 2 Feldern: GRP_NO und GRUPPENNAME und Sie möchten Holen Sie sich die neue GRP_NO verwenden Sie RET_ als Präfix, siehe Beispiel:

procedure TFormDatenbank.Button1Click(Sender: TObject);
var
  q: Uni.TUniQuery;
  ID: Integer;
  GroupName: String;
begin
  GroupName := 'MyGroupName';

  q := TUniQuery.Create(nil);
  try
    q.Connection := Datenmodul.UniConnection;
    q.ParamCheck := true; // the default value of ParamCheck is true.
    q.SQL.Clear;
    q.SQL.Add('SELECT GRP_NO, GROUPNAME FROM GROUPDATA WHERE GROUPNAME = :GROUPNAME');
    q.ParamByName('GROUPNAME').AsString := GroupName;
    q.Open;

    if q.RecordCount > 0 then
      ID := q.FieldByName('GRP_NO').AsInteger
    else
    begin
      // there exist no group with this name, so insert this new name
      q.SQL.Clear;
      q.SQL.Add('INSERT INTO GROUPDATA');
      q.SQL.Add('(GROUPNAME)');
      q.SQL.Add('VALUES');
      q.SQL.Add('(:GROUPNAME)');
      q.SQL.Add('RETURNING GRP_NO;');

      q.ParamByName('GROUPNAME').AsString := GroupName;
      q.Execute;
      ID := q.ParamByName('RET_GRP_NO').AsInteger;
    end;
  finally
    q.Free;
  end;
end;

InformationsquelleAutor Bettelbursche

Aus der IBx2 Quellen, Sie können es so machen:

//Uses IBSql;
//var   Cur: IResults;
  IBSQL1.SQL.Text := 'delete from tbl_document where id = 120 returning id;';
  IBSQL1.Prepare;
  if IBSQL1.Prepared then
  begin
    Cur := IBSQL1.Statement.Execute(IBTransaction1.TransactionIntf);
    WriteLn(Cur.Data[cou].AsString);
    Cur.GetTransaction.Commit(True);
  end;

IResults-Schnittstelle Code:

  IResults = interface
   function getCount: integer;
   function GetTransaction: ITransaction;
   function ByName(Idx: String): ISQLData;
   function getSQLData(index: integer): ISQLData;
   procedure GetData(index: integer; var IsNull:boolean; var len: short; var data: PChar);
   procedure SetRetainInterfaces(aValue: boolean);
   property Data[index: integer]: ISQLData read getSQLData; default;
   property Count: integer read getCount;
  end;

Test Umgebung:
Arch Linux X86
Firebird 3
Lazarus 1.9
FPC 3.0.4
Kurzer Hinweis: Dies funktioniert auf der neuen Firebird-API in den IBX, Aber ich habe nicht testen Sie es mit der Legacy-Firebird-API mit dem IBX.

InformationsquelleAutor ϻαϻɾΣɀО-MaMrEzO

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.