کنترل خطا Ado هنگام اتصال به بانک

[اصغر (پآچ)]

سلام دوستان خوب

فرض کنید یه برنامه داریم که از طریق Ado به SQL Server 2000 وصل میشه حالا من میخوام اگه به هر دلیل (تغییر نام سرور, قطع ارتباط و ...) Ado نتونست به بانک وصل بشه پیغامی که میده بتونم به فارسی ترجمش کنم و برنامه وارد صفحه تنظیمات بشه

[dkhatibi]

شما از AdoConnection به سرور متصل می شین.
کد زیر را به جای connected معمولی به کار برید.


try
dm.ADOConnection1.Connected:=true;
finally
showmessage('Your Farsi Message');
end;

[babak_delphi]

چون پیغام رو در قسمت Finally نوشتید ، در هر صورت اجرا میشه
اگر بخواهید که فقط زمانی که عمل ناموفق بود پیغام بدهد باید از Try Except بصورت زیر استفاده کنید :

try
dm.ADOConnection1.Connected:=true;
except
showmessage('Your Farsi Message');
end

[delphiprog3000]

سلام به دوستان و اساتید.

ببخشید ولی من امتحان کردم بدون هندل کردن هم خود ابزار ado مقدار خطا رو بر میگردونه.

آیا درست میگم ؟

[dkhatibi]

چون پیغام رو در قسمت Finally نوشتید ، در هر صورت اجرا میشه
بله
درست می گید. حواسم نبود except به جای Finally درسته!

[اصغر (پآچ)]

اگه بخواهم از AdoTable یا AdoQuery به صورت مستقیم استفاده کنم چطور میشه؟

[اصغر (پآچ)]

من با این دستورات هم نتونستم کنترلش کنم! کامپایلر گیر داده به اون dm چیکارش کنم؟ از دیتا ماژول هم استفاده کردم اما نشد که نشد.

[arshia_]

اسم دیتا ماژول مورد مثال dm است .شما بعد از ایجاد اون باید adoconnection,...‌سایر موارد رو اضافه کنید و توی همون دیتا ماژول اضافه کنید
در نهایت اسم یونیت دیتا ماژول رو در فرمهایی که نیاز به دسترسی دران Uses کنید.

[SYNDROME]

من با این دستورات هم نتونستم کنترلش کنم! کامپایلر گیر داده به اون dm چیکارش کنم؟ از دیتا ماژول هم استفاده کردم اما نشد که نشد.
ConnectionString مربوط به ADOConection را خالی کن و در OnCreate مربوط به DM پر کن و Connected را True کن و دستورا را در Try Except بنویس تا اگر خطایی پیش آمد مدیریت کنی.
موفق باشید