Skip to content
Permalink
Browse files

Catch all kinds of exceptions when connecting to MSSQL did not work, …

…not just EOleException. Seems the thrown exception changed, probably when switching OLEDB driver. Closes #517.
  • Loading branch information...
ansgarbecker committed Mar 7, 2019
1 parent 187fd51 commit 880fdb47adb717636cbc406287a92b584f0282b1
Showing with 1 addition and 1 deletion.
  1. +1 −1 source/dbconnection.pas
@@ -2043,7 +2043,7 @@ procedure TAdoDBConnection.SetActive(Value: Boolean);
end;
end;
except
on E:EOleException do begin
on E:Exception do begin
FLastError := E.Message;
Error := LastErrorMsg;
Log(lcError, Error);

0 comments on commit 880fdb4

Please sign in to comment.
You can’t perform that action at this time.