delphi acces tabanlı datagrid

[lovelyazrail]

data gridi multiselect özelliğini açtım. seçtilen verileri yeni bir tablada listelemek ve yazdırma işlemi yaptıramıyorum yardımcı olabilirmisiniz

[mkysoft]

sorunuzu yanlış bölüme sormuşsunuz. Programlama bölümüne sorunuz.

[lovelyazrail]

tamam cevabında tavsiyen kadar hızlıdır inşallah

[greenegitim]

Kod: Tümünü seç

procedure TForm1.BtnsecilenlerClick(Sender: TObject);
var
i: Integer;     
str:string;
//değişkenler tanımlandı
begin

str := '';
 for  i := 0 to   cxGrid1DBTableView1.Controller.SelectedRecordCount -1 do  // kayıt sectirme işlemini  yapıyorum
 begin
  if i <>  0 then str:=str+',';  //  sectiğim kayıtlatı tanımladığım str değişkenine atıyorum
   str:=str+cxGrid1DBTableView1.Controller.SelectedRows[i].DisplayTexts[0];   // tablo nun 0 sutunundaki kayıtlar
  end;                                 //essiz olduğu için kayıtları onlara göre tutuyorum


IBDataSet1.Close;
IBDataSet1.SelectSQL.Clear;
IBDataSet1.SelectSQL.Text:='SELECT * FROM ogrenciler where firma_kodu IN ('+str+')' ;  //sectiğim kayıtlar
IBDataSet1.OPEN;
IBQuery1.Transaction.CommitRetaining;
IBTable1.Open;
end;