PDA

View Full Version : مشکل Database Exception



v_shalchian
جمعه 17 مرداد 1382, 14:08 عصر
سلام
من یک ADOTable دارم و یک تابع که رکورد جاری را حذف می کند. وقتی که جدول خالی باشد یک اثتثناء روی

میدهد.
من کد زیر رو نوشتم ولی باز هم موقع خطا از برنامه خارج می شود.


try
Table.Delete ;
except
on EDatabaseError do ShowMessage ('Database Error');
end;

مهدی کرامتی
جمعه 17 مرداد 1382, 14:23 عصر
من همین کار را کردم، اما برای من کار میکند. این Exception چه وقت رخ میدهد؟ در محیط دلفی یا هنگام اجرای برنامه بصورت جداگانه؟

نمونه برنامه‌ای را که ساخته‌ام اینجا بعنوان ضمیمه قرار داده‌ام. آنرا در C:\01 باز کنید.

v_shalchian
جمعه 17 مرداد 1382, 16:24 عصر
این مشکل فقط در محیط دلفی اتفاق می افتد و وقتی فایل اجرایی برنامه را جدا اجرا می کنم کاملا درسته.
به نظر شما راهی داره که تو محیط دلفی هم درست کار کنه؟
با تشکر

مهدی کرامتی
جمعه 17 مرداد 1382, 17:05 عصر
در منوی Tools -> Debugger Options -> Language Exceptions تیک گزینه Stop On Delphi Exceptions را بردارید.

Mashatan
جمعه 17 مرداد 1382, 18:46 عصر
چرا اینجوری استفاده نمیکنی ؟!


if Not Table.IsEmpty then
Table.Delete;

v_shalchian
جمعه 17 مرداد 1382, 19:10 عصر
ممنون از راهنماییتان. در ضمن آقای Mashatan من منظورم این مثال خاص نبود.