Query Kullanarak Update işlemini gerçekleştirme

[dtgb]

Merhaba Arkadaşlar,
veritabanında bir update işlemi gerçekleştirmek istiyorum aşağıdaki gibibir kullanım dogrumudur.
Herkeze kolay gelsin...

begin
dm.QIpDetay.Close;
dm.QIpDetay.SQL.Clear;
dm.QIpDetay.SQL.Add('update TBL_IplikDetay set kul_ipfiyat=:@yeniFiyat where detay_iplik_id=:@fiyatidegisenId ') ;
dm.QIpDetay.Parameters[0].Value:=50;
dm.QIpDetay.Parameters[1].Value:=110;
dm.QIpDetay.ExecSQL;
dm.QIpDetay.Open();
end;

[conari]

dm.QIpDetay.Close;
dm.QIpDetay.Open();

bunlara gerek yok.

çalışması lazım.

[aslangeri]

s.a.
hangi vertabanı olduğunu yazmamışsınız ancak ben @ işaretindem MSSQL olduğu sonucunu çıkarıyorum.
parametre tanımlarken @işaretlerini kaldırın oyle deneyin.
kolay gelsin.

[dtgb]

Teşekkürler arkadaşlar ,
söylediklerinize göre kodu düzenleyince oldu.
doğru kullanım aşağıdaki gibiymiş

dm.QIpDetay.SQL.Clear;
dm.QIpDetay.SQL.Add('update TBL_IplikDetay set kul_ipfiyat=:yeniFiyat where detay_iplik_id=:fiyatidegisenId ') ;
dm.QIpDetay.Parameters[0].Value:=50;
dm.QIpDetay.Parameters[1].Value:=110;
dm.QIpDetay.ExecSQL;

İyi çalışmalar...

[tugrul]

Kod: Tümünü seç

query8.SQL.Clear;
query8.SQL.Add('Update inventorydb Set Material_adet=:malzeme_adet where Material_name=:mal_ad');
query8.ParamByname('malzeme_adet').AsInteger:=sayi1;
Query8.ParamByName('mal_ad').AsString:=stringgrid1.Cells[x,y];
query8.ExecSQL;

bende boyle yazdım ama ne zaman çalışsa "type mismatch in expression" hatası alıyorum neden kaynaklanıyor olabilir. ??

Bu arada forum içindeki "type mismatch in expression" hatalı mesajların tamamını inceledim uyguladım içinden çıkamadım

ayrıca

Kod: Tümünü seç

query8.SQL.Add('Update inventorydb Set Material_adet=:malzeme_adet where Material_name=:mal_ad');
query8.ParamByname('malzeme_adet').AsInteger:=sayi1;
Query8.ParamByName('mal_ad').AsString:=stringgrid1.Cells[x,y];

satırlarınıda

Kod: Tümünü seç

query8.SQL.Add('Update inventorydb Set Material_adet=200 where Material_name="materyal"');

olarak değiştirdiğimde error creating cursor handle hatası aldım

ona da baktım forumda uyguladım ama nafile bu 2 hata arasında gelip gidiyorum

[conari]

VT nedir?

="materyal"'

Çift tırnak yerine

Kod: Tümünü seç

query8.SQL.Add('Update inventorydb Set Material_adet=200 where Material_name='materyal'');

olmalı

[tugrul]

bu kodları bir for döngüsü içinde kullanıyordum

query'i silince tekrar döngünün çine girince hata veriyordu

işlem gerçekleşince query baştan yükleyip kaçıncı veride bulduysa query8.next diyip o kadar ilerletiyorum

sorunsuz çalıştı

yine forum içinden buldum geldim

teşekkürler

[CiTiZEN]

keşke çalışan kodlarınızı burda da paylaşsaymışsınız ihtiyacı olan arkadaşlar kullanabilirlerdi

[tugrul]

Kod: Tümünü seç

query8.SQL.Clear;
query8.SQL.Add('Update inventorydb Set Material_adet=:malzeme_adet where Material_name=:mal_ad');
query8.ParamByname('malzeme_adet').AsInteger:=sayi1;
Query8.ParamByName('mal_ad').AsString:=stringgrid1.Cells[x,y];
query8.ExecSQL;
query8.SQL.Text:=('select * from inventorydb');
query8.Open;
   for a := 0 to k do
         query8.Next;

tabi paylaşırım ne demek

k queryde kaçıncı değerde olduğunu gösteriyor yukarda bi yerlerde onu saydırıyorum