Silme İşlemi

[denizfatihi]

Selamünaleyküm arkadaşlar,
aşağıdaki kodun neresi hatalı olabilir yardımlarınız için şimdiden teşekkürler....

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if not IBDataSet1.Active then
IBDataSet1.close;
IBDataSet1.Delete;
IBDataSet1.SelectSQL.Add('DELETE FROM DATA WHERE REF_NO='''+Edit23.Text+'''');
IBDataSet1.ExecSQL;
end;

[mkysoft]

tırnaklar hatalı olabilir. REF_NO alanı bana integermış gibi geldi.

[ikut]

Selamünaleyküm arkadaşlar,
aşağıdaki kodun neresi hatalı olabilir yardımlarınız için şimdiden teşekkürler....

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if not IBDataSet1.Active then
IBDataSet1.close;
IBDataSet1.Delete;
IBDataSet1.SelectSQL.Add('DELETE FROM DATA WHERE REF_NO='''+Edit23.Text+'''');
IBDataSet1.ExecSQL;
end;

tırnakları elle yazmak yerine quotedstr kullanın kod daha temiz olur. diğer yandan diğer arkadaşın dediği gibi alanın integer olma ihtimalide var

[White Rose]

if not IBDataSet1.Active then // Zaten kapalı dataseti
IBDataSet1.close; // Kapalı hale getiriyorsunuz
IBDataSet1.Delete; // Kapalı datasette silme işlemi yapıyorsunuz
IBDataSet1.SelectSQL.Add('DELETE FROM DATA WHERE REF_NO='''+Edit23.Text+''''); // Önceki sql stringini temizlemeden yeni sql stringi ekliyorsunuz. bu 4 satır yanlış

Doğru kod

If IBDataSet1.Active Then IBDataSet1.Close;
IBDataSet1.SelectSQL.Clear;
IBDataSet1.SelectSQL.Add('DELETE FROM DATA WHERE REF_NO='''+Edit23.Text+'''');

[mkysoft]

Biz ayrıntılara öyle odaklanmışız ki basit hataları atlıyoruz sanırım

[kadirkurtoglu]

merhabalar

IBDataSet1.SelectSQL.Add('DELETE FROM DATA WHERE REF_NO='''+Edit23.Text+'''');

SelectSQL de Delete SQl cümleciği yanlış...

doğrusu

Kod: Tümünü seç

IBDataSet1.DeleteSQL.Add('DELETE FROM DATA WHERE REF_NO='''+Edit23.Text+'''');

[conari]

Sql cümlesini temizlemesine gerek yok.yine çalışır.Ib de emin değilim.
dataset kapalı silme işlemi yapılıyor ondan bencede..

[kadirkurtoglu]

Sql cümlesini temizlemesine gerek yok.yine çalışır

hata mesajı alırsın ki gayet normal olur. daha önce var olan SQL text sorun yaşatır.

[Lord_Ares]

bu cevap biraz karışmış hangisi doğru olan kodu tam olarak paylaşabilirmisiniz..

Kod: Tümünü seç

IBDataSet1.DeleteSQL.Add('DELETE FROM DATA WHERE REF_NO='''+Edit23.Text+'''');

Kod: Tümünü seç

IBDataSet1.SelectSQL.Add('DELETE FROM DATA WHERE REF_NO='''+Edit23.Text+'''');

ben aşağıdaki gibi ( belli bir şarta bağlı kayıtları örnek satışkodu 5 olanlar gibi ) bir silme işlemi yapıyorum.
Buradaki sorun silme işlemi bittikten sonra her seferinde select * from diyerek alanları tekrar seçiyor ve datayı kapatıp açıyorum.
Bunu yapmadan silmenin yolu varmı, bu şekilde kapatıp açarken başka bir kullanıcı o datayı kullanıyorsa sorun olmazmı.

Kod: Tümünü seç

TTURDETAY.close;
TTURDETAY.SelectSQL.Clear;
TTURDETAY.SelectSQL.Text:='Delete from TURDETAY where SATISKODU='+QuotedStr(IntToStr(DataM.TTURSATISARTANKOD.AsInteger));
TTURDETAY.ExecSQL;
TTURDETAY.Close;
TTURDETAY.SelectSQL.Text:='select * from TURDETAY';
TTURDETAY.Open;

[mrmarman]

Başlıkları bağlamak için bkz. forumdaki şu link