Form1-function-Form2

[t0mmy]

Also ich habs jetzt mal angeschaut. Dann stimmt was bei der Funktion nicht:

Sie gibt mir als Rückgabewert False -.-

Hier mal ein auszug:

Delphi-Quellcode:

function Connection_Herstellen(pConnection: TADOConnection; pConnectionString: String): Boolean;
begin
    if pConnection.Connected = False then
    begin
      pConnection.ConnectionString := pConnectionString;
    try
      pConnection.Open;
      Result := True;
    except
    on E: Exception do
      begin
        Result := False;
        //MessageBox(0, 'Fehler beim Verbinden mit der Datenbank!', '',
        //MB_ICONERROR or MB_OK);
      end;
    end;
    end;
end;

[DeddyH]

Gibt Dein Compiler da keine Warnung aus? Was kommt denn zurück, wenn pConnection.Connected true ist?

[Luckie]

Delphi-Quellcode:

function Connection_Herstellen(pConnection: TADOConnection; pConnectionString: String): Boolean;
begin
  Result := False;
  if pConnection.Connected = False then
  begin
    pConnection.ConnectionString := pConnectionString;
    pConnection.Open;
    Result := True;
  end;
end;

So sieht das richtig aus, dann weißt du auch, was nicht funktioniert.

Und der Aufruf:

Delphi-Quellcode:

try
  if Connection_Herstellen then
  begin
    // weitere Code
  end
  else
    Form2Oeffnen;
  except
  on E: Exception do
  begin        
    MessageBox(0, PChar(e.Message, '', MB_ICONERROR or MB_OK);
  end;
end;

[Klaus01]

sorry:

Delphi-Quellcode:

function Connection_Herstellen(pConnection: TADOConnection; pConnectionString: String): Boolean;
begin
  Result := False;
  if not pConnection.Connected then
  begin
    pConnection.ConnectionString := pConnectionString;
    pConnection.Open;
    Result := True;
  end;
end;

Grüße
Klaus

[DeddyH]

Oder so:

Delphi-Quellcode:

function Connection_Herstellen(pConnection: TADOConnection; pConnectionString: String): Boolean;
begin
  if not pConnection.Connected then
    try
      pConnection.ConnectionString := pConnectionString;
      pConnection.Open;
    except
      on E: Exception do
        begin
          MessageBox(0, PChar('Fehler beim Verbinden mit der Datenbank:' + sLineBreak + E.Message), '', MB_ICONERROR or MB_OK);
        end;
    end;
  Result := pConnection.Connected;
end;

[t0mmy]

Danke DeddyH

Aber so ganz ist das Problem noch nicht behoben. Wenn die Verbindung hergestellt und ich dann den SQL server beende und dann die procedure nochmal ausführe dann öffnet er mir nicht die Form2

Bzw. warum bleibt eine Verbindung offen wenn ich den SQL Server doch beendet habe?

[Luckie]

Wie soll denn der Client merken, dass der Server nicht mehr da ist? Der Server schickt ihm ja keine Benachrichtigung. also kann der Client die Verbindung auch nicht schließen.

[Bernhard Geyer]

Zitat von t0mmy:

Aber so ganz ist das Problem noch nicht behoben. Wenn die Verbindung hergestellt und ich dann den SQL server beende und dann die procedure nochmal ausführe dann öffnet er mir nicht die Form2

Wieso gibst du solche Informationen nicht gleich Preis. So hatten wir eine schöne Raterunde.

Zitat von t0mmy:

Bzw. warum bleibt eine Verbindung offen wenn ich den SQL Server doch beendet habe?

Weil es normal ist das der Client nicht (sofort) mitbekommt das die Verbindung zum Server aufgrund von Fehlern im Netzwerk oder heruntergefahrenen Server unterbrochen ist. Erst wenn du wieder etwas mit der Verbindung machst (Abfrage, ...) würde dies festgestellt werden.