Fehlerabfang beim Aktivieren einer Datenbank?

[bender251]

Hallo

ich habe folgendes Problem: Ich will in meinem Programm die Möglichkeit bieten den Alias bzw den Pfad zu der zu verwendenden Datenbank zu ändern, wenn man z.B. eine andere Datenbank verwenden will, die aber die gleichen Felder hat.
Ich gebe dem user über eine InputBox die Möglichkeit den Alias oder Pfad einzugeben. Existiert der Pfad funktioniert das ganze auch wunderbar. Wenn der Pfad aber falsch ist, stürzt das Programm natürlich ab.

Ich muss also abfangen, wenn beim Versuch die Datenbank auf Active := true zu setzen ein Fehler auftritt. Oder zumindest irgendwie überprüfen, ob die Datenbank in dem angegebenen Ordner vorhanden ist, bevor sie aktiviert wird. :?:

Mit einer Try-Except-Anweisung funktioniert es ebensowenig wie mit dem herkömmlichen {§i-}.

Hier mein Quelltext:

Delphi-Quellcode:

procedure TForm1.DataBaseNamesetzen1Click(Sender: TObject);
begin
  Query2.Active := false;
  Query2.DatabaseName := Inputbox('DataBaseName setzen','Pfad oder Alias eingeben',''); 
  Query2.SQL.Add('Select * FROM kandidaten'); //damit der SQL-String nicht leer ist
  TRY
    Query2.Active := true;     //hier tritt der Fehler auf, wenn der Pfad falsch ist
  Except
    Showmessage('Ungültiger Pfad oder Alias');
  end;
end;

Schonmal danke für die Hilfe
Gruß bender251

[edit=sakura]Delphi-TAGs gesetzt. Mfg, sakura[/edit]

[Sharky]

Hai bender251,

erst einmal willkommen im Delphi-Praxis Forum.

Kommt der Fehler nur wenn Du dein Programm in der IDE laufen lässt oder auch wenn Du die EXE direkt startest?

Wenn er nur in der IDE auftritt schalte mal unter "TOOLS - Debugger-Optionen" die "Interne Fehlersuche" aus.

[bender251]

Hi Sharky

vielen Dank für die Antwort. Tritt tatsächlich nur in Delphi auf, wenn die EXE läuft klappts wunderbar.

Wusste nicht, dass die Try-Except Anweisung in Delphi selbst nicht so ohne weiteres greift.

Gruß bender251