access te Delphi kullanarak bir kayıtı nasıl klonlarım ?

[bayraktar]

Acces kullanıyorum, iki tablo birbirine bağlantılı. ana tabloadaki bir kayıtı ve onun alt tablodaki ilişkili kayıtlarını klonlamak (aynı şekilde kopyalamak) istiyorum. Nasıl yaparım yardım edermisiniz. Yani yeni Kayıtın, önceki kayıtla sadece .....ID leri farklı diğer tüm bilgileri aynı olacak . Yardımlarınız için şimdiden teşekürler

[mkysoft]

Kod: Tümünü seç

insert into anatablo (select field1,field2 from anatablo where id=:id);
insert into childtablo (select field1,field2 from childtablo where id=:id);

Bu iki SQL'i çağırman yeterli olur.

[bayraktar]

TEŞEKÜR EDRİM ALLAH RAZI OLSUN

AYNI ŞEYİ SQK DEĞİL DE ADOTABLE İLE NASIL YAPABİLİRİM ACABA ?

[mkysoft]

biraz zor bir işlem olur ama yapabilirsin:

Kod: Tümünü seç

var
  dizi: array of variant;
  i:integer;
begin
  setlength(dizi,table1.fields.count)
  for i:=0 to table1.fields.count-1
    dizi[i]:=table1.fields.field[i];
  table1.append;
  for i:=0 to table1.fields.count-1
    table1.fields.field[i]:=dizi[i];
  table1.post