TADOConnection - Plötzlicher Netzwerkverlust abfangen

[Piro]

Moin zusammen,

ich habe ein kleine Anwendung die jede Minute sich gegen eine DB verbindet und schaut, ob eine Nachricht da ist.
Danach wird die Verbindung sofort wieder geschlossen.
Nun kann es sein das während des Select Befehls, die Verbindung unterbrochen wird und es kommt zu folgender Fehlermeldung. Siehe Anhang.

Dies ist meine derzeitige TADOConnection Einstellung:

Code:

TADOConnection - aktuelle Werte:
 - CommandTimeout : 30
 - ConnectOptions : coConnectUnspecified
 - CursorLocation : clUseCLient
 - IsolationLevel : ilCursorStability
 - KeepConnection : True
 - LoginPrompt    : False
 - Mode           : cmRead
 - Provider       : SQLOLEDB.1

Hier mein Code für den Verbindungsaufbau und das Abfragen der Nachricht.

Delphi-Quellcode:

function Tfrm_main.ConnectToSQLServer : Boolean;
begin
 Result := True;

 frm_main.SQLConnection.Connected := False;
 if IsHostAlive(dbserver) = False then
 begin
   CreateLogFile('SQL Server ' + dbserver + ' is unreachable. Try again later.',AppPath,0);
   Result := False;
   Exit;
 end;

 try
   // SQL Authentifizierung
   if dbinstance = '' then
     SQLConnection.ConnectionString := 'Provider=SQLOLEDB.1;Data Source='+dbserver+';Initial Catalog='+db+';User ID='+sqluser+';Password='+sqlpassword+';Persist Security Info=false'
   else
     SQLConnection.ConnectionString := 'Provider=SQLOLEDB.1;Data Source='+dbserver+'\'+dbinstance+';Initial Catalog='+db+';User ID='+sqluser+';Password='+sqlpassword+';Persist Security Info=false';
   SQLConnection.Connected := True;
 except
   on e:Exception do
   begin
     CreateLogFile('Database Connection has been terminated with an unexpected error - ' + e.Message,AppPath,0);
     Result := False;
     SQLConnection.Connected := False;
     Exit;
   end;
 end;

 if SQLConnection.Connected = False then
 begin
   CreateLogFile('Database Connection failed. Please contact your local Administrator',AppPath,0);
   Result := False;
   Exit;
 end;
end;

...

procedure Tfrm_main.Timer_EventCheckTimer(Sender: TObject);
begin
...
if ConnectToSQLServer = True then // Datenbankverbindung herstellen
     begin
       DSData.Close;
       DSData.CommandText := 'Select * from computer_broadcast where (id = 1) and ' +
                                                                     '(('+AppLocation+' = 1) or '+  // 1 = True
                                                                     '(computer = ' + QuotedStr(GetEnvironmentVariable('COMPUTERNAME')) + '))';
       DSData.Open;

       if DSData.RecordCount > 0 then
       begin
         // Check, ob das Event schon mal gezeigt wurde
         if lastevent < DSData.FieldByName('createdon').AsDateTime then
         begin
           lastevent                    := DSData.FieldByName('createdon').AsDateTime; // fürs nächste Mal
           lbl_datetime.Caption         := FormatDateTime('dd.mm.yyyy hh:nn:ss',lastevent);
           redt_infobox.Text            := DSData.FieldByName('memo').AsString;
           Application.MainForm.Visible := True;
         end;
       end;
       DSData.Close;
       SQLConnection.Connected := False;
     end
     else
     begin
       SQLConnection.Connected := False;
       CreateLogFile('SQL Connection to ' + dbserver + '\'+ dbinstance + ' with Database ' + db + ' and UserName ' + sqluser + ' failed',AppPath,0);
       Sleep(300000);  // 5 Minuten
     end;
...
end;

Vielen Dank im Voraus.
Sven

[mensch72]

wenn der ErrorDialog nicht kommen soll, dann den eben mit try exept abfangen!

Delphi-Quellcode:

try
  DSData.Close;
  ...
  SQLConnection.Connected := False;
except
  ...

nebenbei "Sleep(300000); // 5 Minuten" ist keine gute Idee, das blockiert so nicht nur den "timer", sondern die ganze Anwendung!? Besser die Uhrzeit merken und wenn noch keine 5min vergangen im Timer nix machen und gleich oben wieder raus... zumindest lässt sich dann die Anwendung immer sauber beenden und reagiert aufs GUI:)

[Bernhard Geyer]

Bei solche Fehlern während der Abarbeitens einer Query wird eine Exception geschmissen. Werte das aus.

[Piro]

Ich habe den Fehler wahrscheinlich gefunden. Ich hatte tatsächlich einen Codeblock ohne try und except. Derzeit sieht es gut aus.

Danke für die Tipps.
Sven