Guten Morgen,
stand selber mal vor dem selber Problem, habe es allerdings über eine
SQL-
Query gelösst.
Beispiel:
Delphi-Quellcode:
procedure KopiereDatensatz();
var Query:TSQLQuery;
var iMaxID:Integer;
begin
Query := TSQLQuery.Create(self);
Query.SQLConnection := self.SQLConnection1;
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('
select max(id)+1 as MaxxID from Tabelle');
Query.Open;
iMaxID := 1;
While not Query.Eof
do
begin
iMaxID :=
query.FieldByName('
MaxxID').AsInteger;
Query.Next;
end;
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('
insert into tabelle (id, wert, wert1) values');
query.sql.add('
('+IntToStr(iMaxID)+'
, ''
'+self.ClientDataSet1.FieldByName('
wert').AsString+'
''
, ''
'+self.ClientDataSet1.FieldByName('
wert1').AsString+'
''
)');
Query.ExecSQL(true);
Query.Close;
self.ClientDataSet1.CancelUpdates;
self.ClientDataSet1.Refresh;
end;
Hoffe ich konnte dir helfern....