Internally reset cached list of databases after dropping a db. Fixes issue #2271.

This commit is contained in:
Ansgar Becker
2011-01-11 18:22:55 +00:00
parent 65148c596d
commit 7e1331300d

View File

@ -2630,6 +2630,8 @@ begin
Conn.Query('DROP DATABASE ' + QuoteIdent(db));
DBtree.DeleteNode(Node);
Conn.ClearDbObjects(db);
Conn.RefreshAllDatabases;
InvalidateVT(ListDatabases, VTREE_NOTLOADED_PURGECACHE, False);
except
on E:EDatabaseError do
MessageDlg(E.Message, mtError, [mbOK], 0);