Thema: Delphi IBSQL - INSERT Problem

Einzelnen Beitrag anzeigen

Benutzerbild von Leuselator
Leuselator

Registriert seit: 18. Mär 2003
Ort: Berlin
589 Beiträge
 
Delphi 8 Architect
 
#4

Re: IBSQL - INSERT Problem

  Alt 23. Feb 2004, 15:02
Wie Robert_G faka GeorgeWNewbie schon sagte:

Du öffnest keine Datenmenge sondern sendest Nur einen Befehl an die DB. Wenn Du die gerade erzeugte Id haben möchtest müßtest Du noch:
Code:
var
  i: integer;
begin
  ibsql1.sql.clear;
  ibsql1.SQL.Add('insert into MyTable (MyIntWert) values (20);');
  ibsql1.ExecQuery;
  ibsql1.sql.clear;
  ibsql1.SQL.add('commit retain;');
  ibsql1.ExecQuery;

  [color=red]ibsql1.sql.clear;
  ibsql1.SQL.add('select max(ID) from MyTable where MyIntWert=20');
  ibsql.Open;[/color]
  i:=ibsql1.FieldByName('ID').AsInteger;
  ...
Gruß
Tim Leuschner
Programmierer = moderner Sysiphos: stets wenn er meint, den Stein seiner Dummheit auf den Berg des Wissens gewuchtet zu haben, erblickt er einen völlig neuen Aspekt und der Dummfels poltert mit Getöse zurück ins Tal der Unwissenheit...
  Mit Zitat antworten Zitat