Catch exception when user lacks privileges for SHOW VIEW or SHOW CREATE TABLE command.

This commit is contained in:
Ansgar Becker
2009-12-15 22:28:23 +00:00
parent d1cc99e29f
commit 59af5bf6ec

View File

@ -6181,6 +6181,7 @@ begin
SelectedTableColumns.Clear; SelectedTableColumns.Clear;
SelectedTableKeys.Clear; SelectedTableKeys.Clear;
SelectedTableForeignKeys.Clear; SelectedTableForeignKeys.Clear;
try
case SelectedTable.NodeType of case SelectedTable.NodeType of
lntTable, lntCrashedTable: begin lntTable, lntCrashedTable: begin
SelectedTableCreateStatement := Connection.GetVar('SHOW CREATE TABLE '+Mainform.mask(SelectedTable.Text), 1); SelectedTableCreateStatement := Connection.GetVar('SHOW CREATE TABLE '+Mainform.mask(SelectedTable.Text), 1);
@ -6188,6 +6189,9 @@ begin
end; end;
lntView: ParseViewStructure(SelectedTable.Text, SelectedTableColumns); lntView: ParseViewStructure(SelectedTable.Text, SelectedTableColumns);
end; end;
except on E:Exception do
MessageDlg(E.Message, mtError, [mbOK], 0);
end;
if tabEditor.TabVisible then begin if tabEditor.TabVisible then begin
actEditObjectExecute(Sender); actEditObjectExecute(Sender);
// When a table is clicked in the tree, and the current // When a table is clicked in the tree, and the current