Veri Tabanları Arası Veri Aktarma

[Hakem50]

Herkese Merhaba,
Forumda Yeniyim Delphidede yeniyim Bu Yüzden Soruyu Sorma Şeklimi Affedin Terimsel Olarak Fazla Bilgiye Sahip Değilim.
Ben Bir Teknik Servis Proğramı Yapmaya Çalışıyorum. İş Listesi Adındaki Veri tabanında Bulunan Verileri DbGridin Multi Select Özelliğini Kullanarak Seçtiğim Satırdaki Kayıtları Yapılmış İşler Veri Tabanına Aktarmak İstiyorum. Bunun İçin Sizden Yardım İstiyorum .Şİmdiden Teşekkürler

[omurolmez]

TDBGrid in SelectedRows :TBookmarkList özelliğini kullanabilirsiniz. Help ten baktığımızda TBookmarkList in, Count ve Items[index] özellikleri olduğunu görüyoruz. Örneğin, Query1 e bağlı Grid1 de seçili olan satırları BitenIslerQuery ye kopyalamak için,

Kod: Tümünü seç

var
  i :integer;
begin
  for i:=0 to Grid1.SelectedRows.Count-1 do begin
    Query1.Bookmark :=Grid1.SelectedRows.Items[i]; //Şu anda Query1, seçili kayıtlardan bir tanesini gösteriyor.

    BitenIslerQuery.Insert;
    BitenIslerQuery.FieldByName('alan').AsString :=Query1.FieldByName('alan').AsString;
    BitenIslerQuery.Post;
  end;
end;

[Hakem50]

İlgilendiğiniz İçin Teşekkür Ederim.
İşimi Çözdü Bu Kodlar Sağolun.