DBGrid'de istenilen elemanları seçmek...

[uranyum238]

Arkadaşlar databaseden verileri dbgride aktarıyorum ve 2. bir işlem yapmam lazım; griddeki 4. kolondaki bilgiler benim için önemli bunları alıp bir değişkene atamam lazım yazdığım kod

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
a:AnSiString;
begin
for i := 1 to ADOTable1.RecordCount-1 do
begin
a:=DBGrid1.Columns[4].Grid.Fields[i].AsString;
ShowMessage(a);
end;
end;

Bu fakat 4. kolon yerine sırayla 1,2,3,4.... bütün kolonların değerlerini gösteriyor ve kolon sayısı bitince de hata veriyor. Ne yapmam lazım sadece 4. kolondaki verileri alıp üzerlerinde işlem yapmam lazım...

[conari]

grid yerine datasetten git.

Kod: Tümünü seç

while not(query1.Eof) do
    begin
       a:=query1.Fields[1].Value;
          query1.Next;
        end;

Yanlız buraada "a" her zaman ezilir ve son kayıdı gösterir

[uranyum238]

Filtrelenmiş kayıtları databaseden çekiyorum ve sadece griddeki bilgileri işlemeye ihtiyacım var. Çok fazla kayıt olduğundan bu işlem programı kasabilir, o yüzden sadece datagriddeki verileri almam lazım benim yazdığım kod bana çok mantıklı geliyor ama neden olmuyor anlamış değilim.

[ZeynelAbidin]

conari arkadaşımın yaptığını yaparsanda aynı şey olur. çünkü zaten o döngü filtrelenmiş kayıtta dönüyor yani senin dbgridinde gördüğün bilgiler için bir döngü söz konusu senin yazdıpun kod ise

Kod: Tümünü seç

a:=DBGrid1.Columns[4].Grid.Fields[i].AsString;

burada delphi elimin altında olmadığı için vede kodları ben ezbere bilemediğim için

Kod: Tümünü seç

DBGrid1.Columns[4]

burdan sonrasını değişik şekideğişik şekillerde denermisin

Kod: Tümünü seç

fields.value

gibi
ama bende conari arkadaşımn yaptığı gibi yapıyorum.

[qamyoncu]

sorunun hallolması gerekir.. Delphi yüklü olmadığı için deneme şansı bulamadım kusura bakmayın..

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
a:AnSiString;
begin
for i := 1 to ADOTable1.recordcount-1 do
begin
a:=DBGrid1.Cells[4,i];
ShowMessage(a);
end;
end;

[uranyum238]

sorunun hallolması gerekir.. Delphi yüklü olmadığı için deneme şansı bulamadım kusura bakmayın..

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
a:AnSiString;
begin
for i := 1 to ADOTable1.recordcount-1 do
begin
a:=DBGrid1.Cells[4,i];
ShowMessage(a);
end;
end;

Cevap için teşekkür ama DBGrid'in maalesef cell özelliği yok ya da ben bulamadım.

[qamyoncu]

Haklısınız. Aklım StringGrid'e gitmiş. Kusura bakmayın..

conari arkadaşımızın yaptığı yöntemi denememiş gibisiniz. Filtreleme işlemi; tahmin ettiğim kadarı ile table üzerinde olur. DBGrid üzerinde değil. Yani filtrelemeden sonra DBGrid'inizde 10 tane kayıt görünüyorsa, while not adotable1.eof do döngüsü 10 kere döner. Lütfen bir de böyle dener misiniz?

[uranyum238]

Haklısınız. Aklım StringGrid'e gitmiş. Kusura bakmayın..

conari arkadaşımızın yaptığı yöntemi denememiş gibisiniz. Filtreleme işlemi; tahmin ettiğim kadarı ile table üzerinde olur. DBGrid üzerinde değil. Yani filtrelemeden sonra DBGrid'inizde 10 tane kayıt görünüyorsa, while not adotable1.eof do döngüsü 10 kere döner. Lütfen bir de böyle dener misiniz?

Evet bu şekilde oluyor çok teşekkürler... Filtreleme sonrasında işlem yaptığım için DBGrid üzerinden işlem yaptığımı varsayıyordum ama tablodan yapıyorsa o zaman sorun yok.