关于ADOQUERY的问题

nevil 2003-08-07 03:52:28
adoqry.close;
adoqry.sql.clear;
adoqry.sql.add'select * from 表 where 性别=女';
adoqry.open;
下面一段代码有错吗?怎么变成了死循环,到了最后总是显示最后一条纪录的值?
dollor:integer;
with adoqry do
begin
while no is empty do
begin
dollor:=Fieldvalues('工资');
showmessage(inttostr(dollor));
next;
end;
end;


...全文
25 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhanlin911 2003-08-07
  • 打赏
  • 举报
回复
来晚了!!
newsofter 2003-08-07
  • 打赏
  • 举报
回复
为什么不用
While Not Eof do
begin
Next;
end;
cow8063 2003-08-07
  • 打赏
  • 举报
回复
not Eof
MichealLee 2003-08-07
  • 打赏
  • 举报
回复


with adoqry do
begin
adoqry.first; //你忘掉了这一句
while no is empty do
begin
dollor:=Fieldvalues('工资');
showmessage(inttostr(dollor));
next;
end;
end;



IwantFlay 2003-08-07
  • 打赏
  • 举报
回复
dollor:integer;
with adoqry do
begin
while not Eof do
begin
dollor:=Fieldvalues('工资');
showmessage(inttostr(dollor));
next;
end;
end;

2,498

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧