ADOQuery 中删除数据为什么不能马上刷新

catchchance 2003-07-30 08:57:05

数据用dbgrid 显示，数据用TADOQuery 连接，当删除纪录后(用的是的ADOQuery2)，我这样写代码
with ADOQuey1 do
begin
close;
end;
end;

...全文

152 33 打赏收藏转发到动态举报

写回复

用AI写文章

33 条回复

切换为时间正序

请发表友善的回复…

发表回复

zorrohong 2003-08-23

打赏
举报

奇怪,.close;
.open;
应该能够解决的呀?!close的时候,数据源应该update了吧?你看当时数据库里的情况就知道了.

cnhgj 2003-08-23

打赏
举报

active := false;
active := true;

LiuXing123 2003-08-23

打赏
举报

liangzongqiang 2003-08-23

打赏
举报

requery

qiume 2003-08-06

打赏
举报

对,
Close;
Open;

lw549 2003-08-06

打赏
举报

我用D6，只要close然后再open就可以刷新。
一直这样用的。

walkmangood 2003-08-06

打赏
举报

关键的是在这：ADOCONNECTION2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='
+ExtractFilepath(application.ExeName)+'playboy.mdb;';
adoconnection2.Connected :=true;

walkmangood 2003-08-06

打赏
举报

我遇到过你的问题，我是这么解决的。

把ADOCONNECTION断开，然后在连接，在把adoquery.open.这样就可以了。

我把代码写在下面：

ADOCONNECTION2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='
+ExtractFilepath(application.ExeName)+'playboy.mdb;';
adoconnection2.Connected :=true;

adoquery11.Active:=false;
adoquery11.Parameters.ParamByName('aid').Value:=nnd;
adoquery11.Open;
edit4.Text:=formatfloat('0.00',adoquery11.fieldbyname('sumbukuan').AsFloat);
adoconnection2.Connected :=false;

在怎么都不会有问题

catchchance 2003-07-31

打赏
举报

郁闷那，上面的办法搞不定的

myboor 2003-07-31

打赏
举报

我也是用关开数据集达到目的，但操作后，无法保持当前的记录号，还要另加处理，郁闷!

catchchance 2003-07-31

打赏
举报

myboor(菜菜菜鸟) ，你也碰到这种问题吗

myboor 2003-07-31

打赏
举报

： wolf_su(不系舟)
说的也不可以用。

catchchance 2003-07-31

打赏
举报

： wolf_su(不系舟) ：好像没反应，怎么会这么怪的问题

wolf_su 2003-07-31

打赏
举报

adoquery1.UpdateBatch(arAll);
adoquery1.Refresh;

catchchance 2003-07-31

打赏
举报

IORILI(李少龙) 有什么办法啊，我要在一个dgrid中显示和删除数据

catchchance 2003-07-31

打赏
举报

上面是源代码，各位帮忙看一下

catchchance 2003-07-31

打赏
举报

procedure TForm_xjyxx.Button3Click(Sender: TObject);
var
confirm:word;
begin
if dbgrid1.SelectedField.AsString<>''then
begin
confirm:=messagedlg('确实要删除这条记录吗？',mtconfirmation,[mbyes,mbno],0);
if confirm=mryes then
with ADOQuery2 do
begin
{ Close;
sql.Clear;
sql.Add('select copid from data where copid='+quotedstr(dbgrid1.Fields[0].asstring));
open;
if eof=false then
begin
showmessage('清先删除该员工巡更信息！');
exit;
end;

Close;
sql.Clear;
sql.Add('select copid from xgbc where copid='+quotedstr(dbgrid1.Fields[0].asstring));
open;
if eof=false then
begin
showmessage('清先删除巡更班次中该员工的信息！');
exit;
end;
}
Close;
sql.Clear;
sql.Add('delete from cop where copid='+quotedstr(dbgrid1.Fields[0].asstring));
ExecSQL;
end;
with ADOQuery1 do
begin
Close;
sql.clear;
sql.Add('select *from cop');
Open;
end;
showmessage('删除成功！');
end
else
showmessage('请选择需要删除的巡检员！');
end;
这样子还不算重装数据吗