for-do ile MySQL-e yazdırma

[babyboy]

Merhaba arkadaşlar. Forumda aradım ama bulamadım.
Şimdi yapmak istediyim MySQL veritabanındakı bir tablonu 4-cü sütunundakı kayıtları, 2-ci sütununa UPDATE etmek.
Lütfen resime göz atın

http://www.freeimagehosting.net/image.p ... f9a4c9.jpg

Yapmak istediğim şeyi MySQL kod ile yapamıyorum ve kesinlikle bir fikrim yok. (Fikri olan varsa yazsın lütfen)
Amma Delphide şu şekilde bir şey deniyorum.

Kod: Tümünü seç

Q.Close;
Q.SQL.Clear;
Q.SQL.Add('SELECT qaliq FROM kredit');
Q.Execute;

    for i := 0 to Q.RecordCount-1 do
    begin
      Listbox1.Items[i] := Q.FieldByName('qaliq').AsString;
      Q.Next;
    end;

Şimdi Lisbox-a aldığım verileri, for-do döngüsü ile, 2-ci satıra UPDATE etmek istiyorum ama yapamıyorum, örnek kod da bulamadım. Elinde örnek kodu olan varsa lütfen yardım etsin.

Teşekkürler.

[SimaWB]

Kod: Tümünü seç

UPDATE kredit SET Borc = qaliq

işinizi görmüyor mu?

[babyboy]

Yardımın için çok sağol kardeşim. MySQL kod gibi bu işimi görür ama, bana Lisbox-dakı satırları tek- tek otomatik UPDATE etmek lazım.Bence For-do kod bloğunu içinde yazmam lazım ama men yapamıyorum ne yazarsam bir hara veriyor.

[SimaWB]

Kod: Tümünü seç

UPDATE kredit SET Borc = qaliq WHERE ID IN (2,4,5)

Yukarıdaki örneği tablonda ID adında unique bir field olduğunu varsayarak yazdım. Yapman gereken sadece Listbox'tan seçilen satırların ID'lerini tespit etmek (verdiğim örnekte 2,4,5). Sonrasında tekbir query ile seçilen tüm satırları güncelleyebilirsin...