View Full Version : handel کردن پیام های SQLServer
yazdan
جمعه 18 دی 1383, 21:39 عصر
من فعلا با استفاده از try&except تاحدودی پیغام مناسب را به کاربر منتقل می کنم ولی برای اینکه دقیقا پیام مربوطه را انتقال دهم باید شماره آن ایراد را بگونه ای بدست آورم و از طریق آن پاسخ کامل بدهم
چگونه ؟
با تشکر
FirstLine
شنبه 19 دی 1383, 06:48 صبح
با سلام
من در زمان اتصال به 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_
شنبه 19 دی 1383, 10:18 صبح
http://www.barnamenevis.org/forum/viewtopic.php?t=17789&highlight=%DD%C7%D1%D3%ED
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.