bu kod neden işe yaramıyor?

Gold_Lady · Mesaj gönderen **Gold_Lady** » 25 Nis 2006 03:13

IBDataset1.close;
IBDataset1.Deletesql.clear;
IBDataset1.Deletesql.Add('DELETE FROM NEW_TABLE');
IBDataset1.Open;
IBTransaction1.commitretaining;

Tüm kayıtları silmek istiyorum, bu kodu buton click olayına yazdım ama butona basınca tık yok. Hiç bir hareket olmuyor. neden acaba?

nitro · Mesaj gönderen **nitro** » 25 Nis 2006 03:17

Kod: Tümünü seç

IBDataset1.close;
IBDataset1.Deletesql.clear;
IBDataset1.Deletesql.Add('DELETE FROM NEW_TABLE ');
IBDataset1.Open;
ibdataset1.delete; 
IBTransaction1.commitretaining;

butona tıkladıktan sonra bi kereye mahsus ibdataset1.delete; yap
böylece delete kodunu tetiklemiş olursun.
kolay gelsin

ofenX · Mesaj gönderen **ofenX** » 25 Nis 2006 03:23

Merhaba bir sonuç döndürmeyen deyimlerde open yerine execsql kullanmalısınız.

Ayrıca silmek için deletesql yerine selectsql kısmına yazın.

Kod: Tümünü seç

IBDataset1.close;
IBDataset1.SELECTSQL.clear;
IBDataset1.SELECTSQL.Add('DELETE FROM KURUM');
IBDataset1.ExecSQL;
IBTransaction1.commitretaining;


IBDataset1.close;
IBDataset1.SELECTSQL.clear;
IBDataset1.SELECTSQL.Add('SELECT * FROM KURUM');
IBDataset1.OPEN;

Hatta bu işler için bir tane ibsql bileşeni daha uygun olur. Çünkü hafızada daha az yer kaplar.

Kolay gelsin.

Gold_Lady · Mesaj gönderen **Gold_Lady** » 25 Nis 2006 03:35

@nitrokonat
Teşekkür ederim, çalıştı..

@ofenX
Sizin dediğinizden anladığım;

Kod: Tümünü seç

IBDataset1.close;
IBDataset1.Deletesql.clear;
IBDataset1.Deletesql.Add('DELETE FROM NEW_TABLE ');
IBDataset1.execsql;
ibdataset1.delete;
IBTransaction1.commitretaining;

kod bu şekilde olacak, doğru mu anlamışım...

ofenX · Mesaj gönderen **ofenX** » 25 Nis 2006 03:43

Merhaba,
mesajınızdan önce kendi mesajımı düzelttiğim için örneği yukarı yazdım.
Sorunuzun cevabını yukarı almış oldum.
Kolay gelsin.

Mesaj gönderen **fduman** » 25 Nis 2006 03:46

Yanlış kullanıyorsunuz. ofenx'in önerisi olan ayrı bir ibsql ile yaptırmak daha iyi.

Sizin DeleteSQL'e yazdığınız Delete method'u çağırılınca çalıştırılır. Bu pek iyi bir yöntem değil.

Gold_Lady · Mesaj gönderen **Gold_Lady** » 25 Nis 2006 03:51

Delphi de çok yeniyim. IBSQL konusunu pek bilmiyorum. Aslına bakarsanız Delphi' yide öyle aman aman bilmiyorum. Öğrenmeye çalışıyorum. Birazcık daha açık ve örnek kod yazarsanız daha iyi olacak benim için...
Teşekkür ederim.

ofenX · Mesaj gönderen **ofenX** » 25 Nis 2006 03:58

Merhaba,
ibdataset ile ilgili örneği yukarıda yazmıştım. Ibsql de aynı sayılır.
ibdatabase bağlantılarını kurduktan sonra :

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
ibsql1.sql.clear;
ibsql1.SQL.Add('DELETE FROM KURUM');
IBSQL1.ExecQuery;
end;

gibi kullanabilirsiniz. Tabi transaction commit işini de yapacaksınız.

Kolay gelsin.

Gold_Lady · Mesaj gönderen **Gold_Lady** » 25 Nis 2006 04:06

Teşekkür ederim.
Peki tek kayıt silmek içinde IBSQL kullanılabilir mi? Birde kayıt yapmak güncellemek içinde IBSQL kullanılabilir mi?

ofenX · Mesaj gönderen **ofenX** » 25 Nis 2006 04:16

Tek kayıt silmek,güncellemek için ibdataset bileşeni daha uygun olur.
Çoklu kayıt eklemek için ibsql i kullanabilirsiniz.
Mesela bir veritabanını ilk oluşturduğunuzda iller tablonuza illeri doldurmak için ibsql bileşenini kullanabilirsiniz.

Genelde sorgulama için ibquery,
düzeltme,ekleme gibi şeyler için ibdataset
sonuç döndürmeyenler için ibsql kullanılır.

Kolay gelsin.

Gold_Lady · Mesaj gönderen **Gold_Lady** » 25 Nis 2006 04:20

Çok özür dilerim, zamanınızı alıyorum,
Sonuç döndürmeyen ne demek?

ofenX · Mesaj gönderen **ofenX** » 25 Nis 2006 04:24

Merhaba

Kod: Tümünü seç

select * from kurum

yazdığınızda size kurum table ının içinde kayıtlar varsa ekrana gelir. Bu sonuç dönen bir komuttur.

Ama

Kod: Tümünü seç

delete from kurum where lr=25

yazdığınızda ekranınıza lr değeri 25 olan kayıt gelmiyor. Bu da sonuç döndürmeyen bir deyimdir.

Umarım anlatabildim.
Kolay gelsin.

Gold_Lady · Mesaj gönderen **Gold_Lady** » 25 Nis 2006 04:31

Tamam anladım, çok teşekkür ederim.