sqlite listview çoklu seçim işlemi

FireMonkey ve Mobil uygulama (iOS, Android, Windows Phone) ile ilgili sorularınızı bu foruma sorabilirsiniz.
Cevapla
eskalibur_
Üye
Mesajlar: 17
Kayıt: 19 Kas 2014 03:09

sqlite listview çoklu seçim işlemi

Mesaj gönderen eskalibur_ »

selam arkadaşlar delphide kendimi geliştirmeye çalışıyorum. uygulamamda biryerde takıldım. günlerdir uğraşıyorum aşamadım.
listviewde item objectinin button seçeneğinden selectbox kullanıyorum.
amacım: listede çoklu seçim yapıp ekle butonuna tıkladığımda seçili olan isimlerin veritabanında g_gun alanı 1 arttırmak.
sorun: birtürlü seçtiğim kayıtların g_gun alanını 1 arttıramıyorum. sürekli bütün kayıtların g_gun alanı 1 artıyor. Nasıl yapabilirim.
uygulamamın görüntüsü ve tablonun görüntüsü
Adsız.jpg
Adsız.jpg (7.77 KiB) 1265 kere görüntülendi
Resim
kodun takıldığım kısmı

Kod: Tümünü seç

procedure TForm1.Button7Click(Sender: TObject);
    var
    i:integer;
  begin

      for i := 0 to Listview1.ItemCount -1 do
      if Listview1.Items[i].Checked then
       if MessageDlg('Seçili Kişilere Yevmiye Eklensinmi?', TMsgDlgType.mtConfirmation, mbYesNo, 0) =mrYes then
       begin

  dm.ayevmq.close;          
  dm.ayevmq.SQL.Clear;
  dm.ayevmq.SQL.Add('update amele set g_gun=g_gun+1');         // burada nasıl bir yol izleyebilirim.  where id=?????
  dm.ayevmq.ExecSQL;
  dm.ayevmq.Free;
  dm.ameleQ.Close;
  dm.ameleQ.Open;
       end;
end;
cisko
Üye
Mesajlar: 1
Kayıt: 03 Ara 2013 06:40

Re: sqlite listview çoklu seçim işlemi

Mesaj gönderen cisko »

dm.ayevmq.SQL.Add('update amele set g_gun=g_gun+1 WHERE ID IN (5,8,10)');

Bu komut ID Nosu 5,8 ve 10 olanların yevmeyilerini 1 arttırır. Cevabın geciktiğini biliyorum, ama ziyaretçilerden birinin işine yarayabilir diye cevapladım...
Cevapla