Hmm..
Hast Du dass mal mit einer Fehlerausgabe getest?
Nach folgendem Schema?
Delphi-Quellcode:
ADOC_ChristDB.CLose;
ADOC_ChristDB.ConnectionString := SQL_Server;
try
ADOC_ChristDB.Open;
except
// OLE-Exception von MS/ADO
on e: EOLEException
do begin
// Zum Testen!!
ShowMessage('
[' + E.ClassName + '
] ' + IntToHEX(E.ErrorCode,8) + '
' + E.Source + #13#10 + E.
Message);
// Hier könnte auf den spezifischen ErrorCode von Microsoft reagiert werden!!!
//OpenSQLServerForm := TOpenSQLServerForm.Create(Application); //
//OpenSQLServerForm.ShowModal;
end;
// Andere Exception
on e:
Exception do begin
ShowMessage(E.
Message);
end;
end;
(Aus dem Kopf herunter getippt...)