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]