一个简单的循环问题,请各位高手进来看看

alimyso 2006-03-30 09:42:29
我从客户端发送数据记录到服务器的数据库中,显示需要发送的表内容如下:
标志 姓名 日期
YYY 2005-12-15
BBB 2005-12-15
CCC 2005-12-15
DDD 2005-12-15
发送以后,如果成功了就把标志改为:成功,如下所示:
标志 姓名 日期
成功 YYY 2005-12-15
失败 BBB 2005-12-15
成功 CCC 2005-12-15
失败 DDD 2005-12-15
如果还有失败的记录那就把失败的记录重新发送,我想把这个过程写在一个按钮下,请问各位
大虾,在第一次循环后,怎么再多次循环找到发送失败的,把失败的记录发送出去,直到所有的记录都发送成功,这个循环怎么写?谢谢
...全文
61 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
wing_er 2006-03-30
  • 打赏
  • 举报
回复
递归不错
cuteant 2006-03-30
  • 打赏
  • 举报
回复
while true do
begin
with ADOQuery1 do
begin
Close;
SQL.Text := 'select 标志 from 表 where 标志=''失败''';
Open;
if eof or bof then break;
//发送失败的数据
end;
end;

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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