M
mvp
Unregistered / Unconfirmed
GUEST, unregistred user!
我在程序中对SQL的表进行了删除操作,然后重新读取SQL.
但是,问题是第一次可以刷新。Filelistbox中读取正确
第二次确有问题,表是删除了,但是Filelistbox中还有
他的表名。SQL中已经没有了。
ResultListBox 是TFilelistbox的NAME.
frmAllDatas.W3LogData.Close;
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Drop Table dbo.w3'+ gLastMonth);
try
ExecSQL;
ShowMessage('删除操作成功!');
try
MyStringList:=TStringList.Create;
Session.GetTableNames('jfalias', 'dbo.W*',False, False, MyStringList);
ResultlistBox.Items.Clear;
ResultListBox.Items:=MyStringList;
finally
MyStringList.Free;
end;
except
ShowMessage('删除操作失败!');
end;
但是,问题是第一次可以刷新。Filelistbox中读取正确
第二次确有问题,表是删除了,但是Filelistbox中还有
他的表名。SQL中已经没有了。
ResultListBox 是TFilelistbox的NAME.
frmAllDatas.W3LogData.Close;
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Drop Table dbo.w3'+ gLastMonth);
try
ExecSQL;
ShowMessage('删除操作成功!');
try
MyStringList:=TStringList.Create;
Session.GetTableNames('jfalias', 'dbo.W*',False, False, MyStringList);
ResultlistBox.Items.Clear;
ResultListBox.Items:=MyStringList;
finally
MyStringList.Free;
end;
except
ShowMessage('删除操作失败!');
end;