Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Frage zur AdoConnection (https://www.delphipraxis.net/97253-frage-zur-adoconnection.html)

onkelmehli 7. Aug 2007 16:33

Datenbank: MS SQL Server • Version: 2000 • Zugriff über: ADO

Frage zur AdoConnection
 
Hallo,

gibt es eine Funktion, zur Überprüfung, ob der ConnectionString korrekt ist ?

Ich möchte also bevor ich eine Verbindung herstelle feststellen, ob anhand des Connectionstrings überhaupt eine Verbindung möglich ist, ich möchte somit vermeiden, das Fehlermeldungen von Windows oder von SQL ausgegeben werden.

meine Idee war:

Delphi-Quellcode:
function TestConnection(ConnectStr: String): Boolean;
begin
   try
      Result:= True;
      adc.ConnectionString:= ConnectStr;
      adc.Connected:= True;

   except
      Result:= False;
   end;
end;
nur leider kommt hier von Windows oder SQL generierte Fehlermeldung der Autorisierung, ich möchte hier nur true oder false zurück haben.
Hat jemand eine Idee oder Lösung ?

Gruß

Matthias

shmia 7. Aug 2007 16:40

Re: Frage zur AdoConnection
 
Zitat:

Zitat von onkelmehli
...nur leider kommt hier von Windows oder SQL generierte Fehlermeldung der Autorisierung...

Die Exception wird aber nur in der Delphi IDE angezeigt.
Wenn du nur die EXE startest, wirst du die Fehlermeldung nicht zu sehen bekommen.
Hier nochmals die verbesserte Funktion:
Delphi-Quellcode:
function TestConnection(const ConnectStr: String): Boolean;
begin
   try
      adc.ConnectionString:= ConnectStr;
      adc.Connected:= True;
      Result:= True;  // Result möglichst spät setzen, um Prozessor Register freizuhalten
   except
      Result:= False;
   end;
end;

onkelmehli 7. Aug 2007 16:55

Re: Frage zur AdoConnection
 
ahhh.....danke, jetzt fällts mir auch grad wieder ein, da war ja was mit integrierter Fehlersuche beim Debugger :wall:


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:17 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz