如何捕足ADOConnection连不上的异常,thank you .

[jiji71]

如何捕足ADOConnection连不上的异常,thank you .

[hmzgz81]

什么意思 啊！ 看不懂！

[Maple119]

Function TAutoSync.CheckSQLConn : Boolean;
Begin
IF Not FSQLADOConn.Connected Then Begin
Try
FSQLADOConn.Close;
IF Trim(FSQLConStr) = '' Then
FSQLConStr := GetSQLServerConnString(FSQLServerName, FSQLDBName, FSQLDBUser, FSQLDBPass);
FSQLADOConn.ConnectionString:= FSQLConStr;
FSQLADOConn.Connected := True;
Except
ON E: Exception Do ShowMessage(E.Message);
End;
End;

Result:= FSQLADOConn.Connected;
end;

[hawk_js]

MARK

[pingshx]

try
connection.connected:=true;
exception
showmessage('数据库连接失败'）；
end;

[skyshine]

try
.....
connection1.connected:=true;
....
except
on E:Exception do
begin
showmessage('错误是：'+E.message)
end
end;

[shindynj]

同意skyshine(天天)的做法

[hiflower]

OnInfoMessage 事件