求解一个adoquery的语句，我初学不懂，大家教教我。

[zly22169846]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
with ADQ do
begin
sql.Clear;
sql.Add('select Mobile,Big_Number,ServiceCode from xb_command_send where state=1');
open;
if ADQ .RecordCount>0 then
begin
Smobile:=adq.FieldValues['Mobile'] ;
Sbig_number:=adq.FieldValues['Big_Number'];
SServiceCode:=adq.FieldValues['ServiceCode'];
sql.Clear;
sql.Add('update XB_Command_Send state=0 where mobile='''+SMobile+'''');
ADQ .ExecSQL;
end
else
sql.Clear;
end;
end;
在时钟下有这么一个过程，但是这样肯定不好的，我想用
temsql='select Mobile,Big_Number,ServiceCode from xb_command_send where state=1'
adq......（不懂怎么写）
while not ... do
begin

next
end
这个怎么用？能不能帮我改改啊，

[darkie28]

你写的没错,不过如果你的adq.connection事先没写清,是动态的,那就要在clear之前加上adq.connection:=.....

[darkie28]

这句好象漏了set,
sql.Add('update XB_Command_Send state=0 where mobile='''+SMobile+'''');
应该是sql.Add('update XB_Command_Send set state=0 where mobile='''+SMobile+'''');

[liangyong007a]

你想干嘛？

[ln521]

adoquery.close;
adoquery.sql.clear;
adoquery.sql.add(temsql);
while not adoquery.eof do
begin

next
end

[zly22169846]

就是用while not .. do
begin

end　　语句来查询数据库啊，我不懂这个句子的语法。

[ln521]

while not .. do //当数据不为空的时候 -->往下
begin
//你想要的东西
end

[zly22169846]

前面是不是要个tempsql='语句'，然后我就不知道了??
while not 什么东西呢？　do
begin


这里好像还要个ADQ什么的next吧。不在清楚？
end

[nytony]

while 数据集.eof do
数据集可为table或query

[XINGXIMU]

为什么要用时钟？你想实现什么？用时钟不断的处理数据库资源耗损较大

[darkie28]

一般是 while not 数据集.eof do
begin
.
.
.
next;
end;

[zly22169846]

你们看我这样子写对不对，我猜肯定不对，你们能不能帮我写出来啊。跪求了。

procedure TForm1.Timer1Timer(Sender: TObject);
begin
with ADQ do
begin
sql.Clear;
sql.Add('select Mobile,Big_Number,ServiceCode from xb_command_send where state=1');
open;
with ADQ do
begin
sql.Clear;
sql.Add('select Mobile,Big_Number,ServiceCode from xb_command_send where state=1');
open;
while not adq.Eof
begin
Smobile:=adq.FieldValues['Mobile'] ;
Sbig_number:=adq.FieldValues['Big_Number'];
SServiceCode:=adq.FieldValues['ServiceCode'];
sql.Clear;
sql.Add('update XB_Command_Send state=0 where mobile='''+SMobile+'''');
adq.ExecSQL;
adq.Next;
end
sql.Clear;
end;
end;

[zly22169846]

上面帖错了。
with ADQ do
begin
sql.Clear;
sql.Add('select Mobile,Big_Number,ServiceCode from xb_command_send where state=1');
open;

while not adq.Eof
begin
Smobile:=adq.FieldValues['Mobile'] ;
Sbig_number:=adq.FieldValues['Big_Number'];
SServiceCode:=adq.FieldValues['ServiceCode'];
sql.Clear;
sql.Add('update XB_Command_Send state=0 where mobile='''+SMobile+'''');
adq.ExecSQL;
adq.Next;
end

[zly22169846]

都没有人回答啊，晕哦。哎！