handel کردن پیام های SQLServer

[yazdan]

من فعلا با استفاده از try&except تاحدودی پیغام مناسب را به کاربر منتقل می کنم ولی برای اینکه دقیقا پیام مربوطه را انتقال دهم باید شماره آن ایراد را بگونه ای بدست آورم و از طریق آن پاسخ کامل بدهم

چگونه ؟

با تشکر

[FirstLine]

با سلام
من در زمان اتصال به SQL بر روی شبکه از کد زیر برای نمایش پیغام مناسب در صورت بروز خطا استفاده میکنم، امیدوارم جالب و کاربردی باشه.

Try

    DM_Main.ADOConnection.Connected:=True;

except on E: Exception do

begin

    StatusBar_Main.Panels[2].Text := 'Failed Connect to DataBase in ' + Str_Server ;



    str_Temp := E.Message ;

    Str_Error:='';

    If Pos('SQL Server does not exist or access denied',str_Temp)> 0 Then Str_Error :='SQLServer_Not_Find';

    If Pos('Login failed for user',str_Temp)> 0 Then  Str_Error :='Invalid_UserName';

    If Pos('Cannot open database requested in login',str_Temp)> 0 Then  Str_Error :='DataBase_Not_Find';

    If Pos('Timeout expired',str_Temp)> 0 Then  Str_Error :='SQL_Timeout_expired';



    MessageDlg( #13+#13 + Str_Error + #13+#13  ,  mtWarning , [mbOK], 0);

  end;

end;

با تشکر

[_alish_]

http://www.barnamenevis.org/vi...DD%C7%D1%D3%ED