delphi acces tabanlı datagrid
-
- Üye
- Mesajlar: 7
- Kayıt: 21 Ara 2011 02:18
delphi acces tabanlı datagrid
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
Re: delphi acces tabanlı datagrid
sorunuzu yanlış bölüme sormuşsunuz. Programlama bölümüne sorunuz.
-
- Üye
- Mesajlar: 7
- Kayıt: 21 Ara 2011 02:18
Re: delphi acces tabanlı datagrid
tamam cevabında tavsiyen kadar hızlıdır inşallah
- greenegitim
- Üye
- Mesajlar: 713
- Kayıt: 28 Nis 2011 10:33
- Konum: İstanbul
Re: delphi acces tabanlı datagrid
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;
Mücadele güzelleştirir!