Zitat von
Mayday171:
Delphi-Quellcode:
try
zconnection1.Connect;
except
on E:
Exception do showmessage('
Falsche SQL Daten eingegeben');
end;
Das ist natürlich blöd, dass du die orginale Fehlermeldung einfach unter den Tisch fallen lässt!!
Besser:
Delphi-Quellcode:
try
zconnection1.Connect;
except
on E:
Exception do
begin
E.
Message := '
Verbindung zur Datenbank konnte nicht hergestellt werden!'+
Format('
Host: %s Datenbank: %s'#13#10#13#10, [zconnection1.HostName, zconnection1.Database])+
// neue Zeile
E.
Message;
// orginale Meldung
raise;
// Exception erneut auslösen (besser als ShowMessage)
end;
end;
PS: du solltest die Connection auch nicht in OnCreate öffnen, sondern die Sache auf später verschieben.
Du kannst dazu in OnCreate dir selbst eine Message verschicken.
http://www.delphipraxis.net/internal...ct.php?t=29732