EDAError
Posted: Sun 01 Nov 2015 07:59
Code: Select all
procedure TDM.MyConnError(Sender: TObject; E: EDAError; var Fail: Boolean);
begin
case E.ErrorCode of
1053: ShowMessage('Server shutdown in progress!');
2003: ShowMessage('Can not connect to MySQL server!');
2013: ShowMessage('Lost connection on query!');
1045: ShowMessage('Access denied! Check password!');
1049: ShowMessage('DB does not exists!');
1051: ShowMessage('Table does not exists!');
else ShowMessage(E.Message);
end;
Fail:=false;
end;
For example error 1054, unknown column 'xxxx' in table 'yyyy', and so on?
Or perhaps a better way to show what error and where it occured?