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