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:

zusammenfalten · markieren

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]

Fehlerabfang beim Aktivieren einer Datenbank?

Fehlerabfang beim Aktivieren einer Datenbank?

Forumregeln