Refresh table cache when one or more tables got renamed, created, dropped.

This commit is contained in:
Ansgar Becker
2007-07-14 12:59:25 +00:00
parent e1b1f80fa3
commit f39222fea5
4 changed files with 5 additions and 0 deletions

View File

@ -2978,6 +2978,7 @@ begin
tn := DBTree.Selected;
DBTree.Selected := DBTree.Selected.Parent;
tn.Destroy;
RefreshActiveDbTableList;
ShowDBProperties(self);
Screen.Cursor := crDefault;
end;
@ -3349,6 +3350,7 @@ begin
if i > -1 then
SynSQLSyn1.TableNames[i] := S;
ActualTable := S;
RefreshActiveDbTableList;
ShowDBProperties(self);
// re-select same item
for i:=0 to ListTables.Items.Count-1 do

View File

@ -279,6 +279,7 @@ begin
zq.Next;
end;
Mainform.Childwin.RefreshActiveDbTableList;
Mainform.ChildWin.ShowDBProperties(self);
close;

View File

@ -211,6 +211,7 @@ begin
try
Mainform.ChildWin.ExecUseQuery( DBComboBox.Text );
Mainform.ChildWin.ExecUpdateQuery( createQuery );
Mainform.Childwin.RefreshActiveDbTableList;
Mainform.ChildWin.ShowDBProperties(self);
Mainform.ChildWin.ActualTable := EditTablename.Text;
Close;

View File

@ -1037,6 +1037,7 @@ begin
end;
end;
RefreshActiveDbTableList;
ShowDBProperties(self);
Screen.Cursor := crDefault;
end;