Einzelnen Beitrag anzeigen

Benutzerbild von blawen
blawen

Registriert seit: 30. Nov 2003
Ort: Luterbach (CH)
654 Beiträge
 
Delphi 12 Athens
 
#7

AW: Ersten Wert in die DB schreiben und sofort abfragen, bevor andere geschrieben wer

  Alt 1. Feb 2014, 16:24
Ja ich werde erst mal weiter mit obsoleten Mitteln programmieren. Es wird gehen, hab schon ne Idee.
vagtler hat Dir ja schon einen Ansatz gegeben.

Delphi-Quellcode:
{ "Protokoll"-Rumpfdatensatz generieren }
quSpeichern.SQL.Text := 'Insert Into ..hier steht Dein SQL-Code..';
quSpeichern.ExecSQL;

{ Den neu erstellten Datensatz finden und die Datensatz ID bestimmen }    
quSpeichern.SQL.Text := 'Select LAST_INSERT_ID()';
quSpeichern.Active := True;
iDatensatz := quSpeichern.Fields[0].AsInteger;
Roland

Geändert von blawen ( 1. Feb 2014 um 16:52 Uhr)
  Mit Zitat antworten Zitat