hata işleme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
htopdas
Üye
Mesajlar: 24
Kayıt: 07 Nis 2006 09:34

hata işleme

Mesaj gönderen htopdas »

Query1.Close;
Query1.SQL.Clear;
sorgu:='DELETE FROM clients WHERE first_name="' + Edit1.Text + '"';
Query1.SQL.Add(sorgu);
Query1.ExecSQL;
gibi silme işlemi yaptım ama bu kodda hata işleme(try-except) yapmam gerekiyor kodun neresine ve ne yazmam gerekiyor yardımcı olursanız çok sevinirim
erdemir_hakki
Üye
Mesajlar: 13
Kayıt: 12 Tem 2003 08:51
Konum: KONYA

Mesaj gönderen erdemir_hakki »

Query1.Close;
Query1.SQL.Clear;
sorgu:='DELETE FROM clients WHERE first_name='+#39+Edit1.Text+#39;
Query1.SQL.Add(sorgu);
Query1.ExecSQL;


SQL sorgusunun içerisinde tırnak içerisinde bir değer taşınacaksa, tırnak işaretinin algılanabilmesi için #39 ( ' ) karakter değeri kullanılmalıdır.
Kullanıcı avatarı
Biltes
Üye
Mesajlar: 361
Kayıt: 11 Oca 2005 02:24
Konum: Edirne

Mesaj gönderen Biltes »

Aşağıdaki şekilde try except'i kullanabilirsiniz..

Kod: Tümünü seç

try
    Query1.Close; 
    Query1.SQL.Clear; 
    sorgu:='DELETE FROM clients WHERE first_name="' + Edit1.Text + '"'; 
    Query1.SQL.Add(sorgu); 
    Query1.ExecSQL;   
except on e:Exception do
  Begin
    ShowMessages('Kayıt Silinemedi!..');
  End;
end;
Var olmaya değer her şey bilinmeye de değerdir. Çünkü bilgi varlığın bir imgesidir. Onda iyi ve kötü aynı anda bulunmaktadır...
htopdas
Üye
Mesajlar: 24
Kayıt: 07 Nis 2006 09:34

Mesaj gönderen htopdas »

bu silmedeki hata işlemenin aynısını ekleme veya güncellemede de kullanabilirmiyim
Kullanıcı avatarı
Biltes
Üye
Mesajlar: 361
Kayıt: 11 Oca 2005 02:24
Konum: Edirne

Mesaj gönderen Biltes »

Evet try excep olayını ekleme ve güncelleme olayında da kullanabilirsiniz. Kayıt silme olayına gelince erdemir_hakkı hocamın dediği şekilde yaparsanız sorun olmayacaktır.

Kolay gelsin...
Var olmaya değer her şey bilinmeye de değerdir. Çünkü bilgi varlığın bir imgesidir. Onda iyi ve kötü aynı anda bulunmaktadır...
Cevapla