Silence cosmetic DLL errors. Fixes issue #2741.

This commit is contained in:
Ansgar Becker
2012-02-26 07:37:11 +00:00
parent 504aed87e6
commit bfb2c57c3a

View File

@ -1032,9 +1032,13 @@ begin
;
if Parameters.WindowsAuth then
FAdoHandle.ConnectionString := FAdoHandle.ConnectionString + 'Integrated Security=SSPI;';
try
// Show up dynamic connection properties, probably useful for debugging
for i:=0 to FAdoHandle.Properties.Count-1 do
Log(lcDebug, 'OLE DB property "'+FAdoHandle.Properties[i].Name+'": '+String(FAdoHandle.Properties[i].Value));
except
// Silence DLL errors, see issue #2741.
end;
try
FAdoHandle.Connected := True;
FConnectionStarted := GetTickCount div 1000;