Registriert seit: 1. Dez 2003
Ort: Luterbach (CH)
679 Beiträge
Delphi 12 Athens
|
AW: Ersten Wert in die DB schreiben und sofort abfragen, bevor andere geschrieben wer
1. Feb 2014, 17: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 17:52 Uhr)
|