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,12 +6181,16 @@ begin
SelectedTableColumns.Clear; SelectedTableColumns.Clear;
SelectedTableKeys.Clear; SelectedTableKeys.Clear;
SelectedTableForeignKeys.Clear; SelectedTableForeignKeys.Clear;
case SelectedTable.NodeType of try
lntTable, lntCrashedTable: begin case SelectedTable.NodeType of
SelectedTableCreateStatement := Connection.GetVar('SHOW CREATE TABLE '+Mainform.mask(SelectedTable.Text), 1); lntTable, lntCrashedTable: begin
ParseTableStructure(SelectedTableCreateStatement, SelectedTableColumns, SelectedTableKeys, SelectedTableForeignKeys); SelectedTableCreateStatement := Connection.GetVar('SHOW CREATE TABLE '+Mainform.mask(SelectedTable.Text), 1);
ParseTableStructure(SelectedTableCreateStatement, SelectedTableColumns, SelectedTableKeys, SelectedTableForeignKeys);
end;
lntView: ParseViewStructure(SelectedTable.Text, SelectedTableColumns);
end; end;
lntView: ParseViewStructure(SelectedTable.Text, SelectedTableColumns); except on E:Exception do
MessageDlg(E.Message, mtError, [mbOK], 0);
end; end;
if tabEditor.TabVisible then begin if tabEditor.TabVisible then begin
actEditObjectExecute(Sender); actEditObjectExecute(Sender);