IBDatasetle Güncellemeyi nasıl yaparız?

[Uğur1982]

IBDataSet1.SelectSQL.Add(ModifySQl.Text); satırında hata veriyor.

Pardon ..with kullandığım için eksik yazmışım..

Kod: Tümünü seç

IBDataSet1.SelectSQL.Add(IBDataSet1.ModifySQl.Text);

iyi günler

[NewMember]

Arkadaşlar çok teşekkürler.Ben bu IBDataseti öğrenemiycem herhalde.Çok sağolun.Zahmet verdim.Hepiniz e kolay gelsin.

[Uğur1982]

merhaba;

Arkadaşlar çok teşekkürler.Ben bu IBDataseti öğrenemiycem herhalde.Çok sağolun.Zahmet verdim.Hepiniz e kolay gelsin.

Dediklerimizi denedinde mi olmuyor.?
Sorun ne,hata mesajı ne?
IBdatasetin altı üstü bir önceki mesaj,başka bir şeyi yok.Hepsi bu.

*Değil Delphi gibi devasanın yanında bu bir çekirge .Pes etmemek lazım değil mi ?

iyi günler...

[kadirkurtoglu]

merhaba bence karamsar olma. herkes senin gibi durumlarla karşılaşıyordur. kimse oturup ta sihirli değneğini sallamıyor, program yazarken. ben de bazen çok fazla sinirleniyorum ancak bırakamıyorum peşini çözmeden başka bir işe bakmıyorum. şu an senin önceliğin bu meseleyi çözmek olmalı, bu konuda forumda bizden daha tecrübeliler var. bakarsın onlar senin soruna çözüm bulurlar. kolay gelsin....

[NewMember]

Arkadaşlar öncelikle gerçekten duygulandığımı söylemeliyim.Çünkü sizin gibi yardımsever insanların yardımlarını değerlendirememek bir yana hakkımda düşündüğünüz güzel şeyler için ne kadar teşekkür etsem azdır.Foruma yeni üye oldum ama gerçekten böyle bir forum sanmıyorum bir tane daha olsun.Hele böyle bir sektörde bu denli bilgi paylaşımı Allah hepinizin gönlüne göre versin. Allah(cc) hepinizden razı olsun.

Delphiden vazgeçmem çok zor ama Firebird işini dolayısıyla IBDataset ve IBQery işini pek beceremediğimden sadece Firebirdden vazgeçmeyi düşünmüştüm.Aslında benim ve diğer firebirde geçen diğer arkadaşların temel sorunu şu.FileBased temelli dblerde klasik Querylerle Select komutlarıyla alıştığımız şeylerden kurtulupta IBDataset ve Firebird geçişte zorlanmamız.Ben daha önceden Access kullanıyordum.Aslında bir sorun da yaşamadım ama bu konuda bilgisinin benden daha iyi olduğunu düşündüğüm kişilerin tavsiyeleri en çokta bu forumda anlatılanlarla Firebirde geçtim.Bu komutları Adoquery ile çok rahat yapıyordum.Ama sonunda yardımlarınızla galiba buldum.
Önce tavsiyenize uyarakIBQuery ile yaptım sonra aynı kodları IBDatasete yazdım.İkiside çalıştı..Daha sonra ihtiyacı olan arkadaşlara bu yazışmalar yol gösterebilir.

StokSorgu:IBDataset;
StokGuncelleSorgu:IBQuery;
DB:Firebird;
CIKAN:stoktan çıkan alanını tutan fieldin allanı tipi DoubleProcesses;
DBUrunkodu.text:Satılan ürünü tutan DBedit;
DBEdit1:Ürün satılmadan önce o ürünün çıkan fieldindeki yazan değer;
DBSatisMiktari.text:Satılan ürün miktarını içerir.

IBDAtaset için kodlar

Kod: Tümünü seç

procedure TFrmSatis.SatilaniStokdanDus;
var Satilan,Oncedencikan,soncikaniyaz:Double;
begin
    satilan:=StrToFloat(DBSatisMiktari.Text);
    Oncedencikan:=StrToFloat(DBEdit1.Text);
    soncikaniyaz:=Oncedencikan+Satilan;
    datmodul.StokSorgu.selectSQL.Clear;
    datmodul.StokSorgu.selectSQL.Add('update STOK set CIKAN=:PAR1 where URUNKODU='''+DBUrunKodu.Text+'''');
    datmodul.StokSorgu.ParamByName('PAR1').AsFloat:=soncikaniyaz;
    datmodul.StokSorgu.ExecSQL;
end;

IBQuery için kodlar

Kod: Tümünü seç

procedure TFrmSatis.SatilaniStokdanDus;
var Satilan,Oncedencikan,soncikaniyaz:Double;
begin
    satilan:=StrToFloat(DBSatisMiktari.Text);
    Oncedencikan:=StrToFloat(DBEdit1.Text);
    soncikaniyaz:=Oncedencikan+Satilan;
    datmodul.StokGuncelleSorgu.SQL.Clear;
    datmodul.StokGuncelleSorgu.SQL.Add('update STOK set CIKAN=:PAR1 where URUNKODU='''+DBUrunKodu.Text+'''');
    datmodul.StokGuncelleSorgu.ParamByName('PAR1').AsFloat:=soncikaniyaz;
    datmodul.StokGuncelleSorgu.ExecSQL;
    datmodul.IBTransaction1.CommitRetaining;

end;

Çok sağolun.Hepinize kolay gelsin.

[kadirkurtoglu]

sorunun çözüldüğüne sevindim. sen yeterki pes etme cevap veren mutlaka olur. allah senden de razı olsun.. başarılar...