Código Delphi [-] // Inserción ADOQuery1.SQL.Text := 'insert into tabla(campos) values(valores)'; ADOQuery1.ExecSQL; // Último autoinc ADOQuery1.SQL.Text := 'select @@identity'; ADOQuery1.Open; Edit1.Text := ADOQuery1.Fields[0].Value;
// Inserción ADOQuery1.SQL.Text := 'insert into tabla(campos) values(valores)'; ADOQuery1.ExecSQL; // Último autoinc ADOQuery1.SQL.Text := 'select @@identity'; ADOQuery1.Open; Edit1.Text := ADOQuery1.Fields[0].Value;