DB Grid Einträge duplizieren & ..

[hoika]

Hallo,

Zitat:

ein dbgrid mit 5 einträgen

Du weisst schon, dass diese 5 Records in einer Tabelle sind.

Zitat:

wie ich einen einzelnen dupliziere weiss ich

Wo ist dann das Problem ?
Was heisst duplizieren genau ?

Ich würde das mit einer StringList machen,
die speichert die Ids der 5 Einträge

Delphi-Quellcode:

var
  StrList: TStringList;
  DataSet: TDataSet;
begin
  StrList:= TStringList.Create;

  DataSet:= Tab11; / Query1, was immer du als Grundlage des DBGrid hast

  DataSet.First;
  while not DataSet.EOF do
  begin
    StrList.Add(DataSet.FieldByName('Id').AsString;
  end;

  for i:= 0 to StrList.Count-1 do
  begin
    Dupliziere (StrToint(StrList[i]));
  end;
end;

procedure Dupliziere(theId: Integer);
begin
 // finde Datensatz  
  Query1
  'select * from TableXXX where id='+IntToStr(theId)
   Open;
   Close

 // daten anhängen   
  Query2 
  insert into ...  

  Oder mit einer Query insert into tableXXX   select 

end;

Ja, man könnte auch eine eigene separate Transaktion benutzen (MGA ausnutzen),
aber ich denek, das wäre für dich zu kompliziert.


Heiko

Heiko

end;