ID nicht gefunden nach last_insert_rowid()

[haentschman]

Hallöle...
Ach Jungs...soviele Beiträge und ein Blick in die Dataset DefList hätte genügt.

@EdAdvokat:
Der der Debugger hilft dir solche Probleme zu analysieren.

Ich weiß das das nur zum Testen ist...aber die Logik dahinter verstehe icht nicht.

Delphi-Quellcode:

procedure TMainFRM.btnuebernehmenClick(Sender: TObject);
var
  currentID: string;
  sqlstring: string;
begin
  qMain.SQL.Clear; // da du mit SQL.Text arbeitest ist die Zeile überflüssig 
  qMain.Params.Clear; // da du mit SQL.Text arbeitest ist die Zeile überflüssig 
  sqlstring:=edtsqlstring.text;
  if flag then
  begin
    // currentID zuweisen 
    currentID:=lv.Selected.Caption; 
    // SQL mit Parametern 
    qMain.SQL.Text:='UPDATE KONTAKTE SET NAME= :NAM, VORNAME= :VNA, GEB= :GEB, STRASSE= :STR, Nr= :NR, PLZ= :PLZ, ORT= :ORT, TEL= :TEL, EMAIL= :EMA, BEMERKUNG= :BEM WHERE ID=:CID';
    qMain.ParamByName('CID').AsString:=currentID;
    qMain.ParamByName('NAM').AsString:=edtName.Text;
    qMain.ParamByName('VNA').AsString:=edtVorname.Text;
    qMain.ParamByName('GEB').AsString:=edtGeb.Text;
    qMain.ParamByName('STR').AsString:=edtStrasse.Text;
    qMain.ParamByName('Nr').AsString:=edtNr.Text;
    qMain.ParamByName('PLZ').AsString:=edtPLZ.Text;
    qMain.ParamByName('ORT').AsString:=edtOrt.Text;
    qMain.ParamByName('TEL').AsString:=edtTel.Text;
    qMain.ParamByName('EMA').AsString:=edtemail.text;
    qMain.ParamByName('BEM').AsString:=edtBemerkung.Text;
    // Ausführen des Update
    qMain.ExecSQL; 
    // Listview neu einlesen 
    refreshItems(currentID,edtName.Text,edtVorname.Text,edtGeb.Text,edtStrasse.Text,edtNr.Text,edtPLZ.Text,edtOrt.Text,edtTel.Text,edtemail.Text,edtBemerkung.Text);
    // Listview wieder leeren... Hä? :-)
    lv.Items.Clear;
    // Datenbank verbinden... Hä? :-) Die Verbindung wird im FormCreate gemacht. :-) 
    Connect;
  end

PS: Im SQL select last_insert_rowid() muß die Klammer angegeben werden!