DBGrid kopya

[brs]

Merhaba arkadaşlar, Forumda ve nette aramak istedim ama nereden başlayacağımı bilemedim.
Elimde örnek bir kod yok yardım edebilecek arkadaşlara şimdiden teşekküreler paradox db, Table kullanıyorum.

DBgrid’de var olan kayıtları kopyalamak istiyorum hangi kayıt seçili ise Edit içine örnek 5 yazdığımda bu kayıttan toplam beş adet daha oluşacak.

Örnek: Türkiye adlı kayıtI kopyalamak istediğimde.

Türkiye - 1
Türkiye - 2
Türkiye - 3
Türkiye - 4
Türkiye – 5 olarak nasıl yaparım arkadaşlar...

[arkantos_55]

konuyla ilgili insert komutunu kullanarak aktif kayit içini istediğinkadar kopyalayabilirisn
ör =

Kod: Tümünü seç

  with query do
  begin
    close;
    sql.clear;
    sql.text:='INSERT INTO table (alan1,alan2,alan3) values (:param1,:param2,:param3)'
    ParamByName('param1').value:=DBGrid.Columns.Grid.Fields[1].AsString;
    ParamByName('param3').value:=DBGrid.Columns.Grid.Fields[2].AsString;
    ParamByName('param3').value:=DBGrid.Columns.Grid.Fields[3].AsString;
    for i:=1 to StrToInt(edit1.text) do
      execsql;
  end;

şeklinde işlem işini görmesi lazım