怎样循环访问数据库中的数据?

Question

我用Access建立了一个表,如下:
No  CardNo
1  13131368791
2  13131368792
3  13131368793
现在我要循环调用每一个手机号(CardNo),该怎样调用呢?请指点一下,我一点思路也没有,如果方便的话,可不可以写一段代码吗?多谢各位!

Answer 1

用ADO组件把数据库连接到Delphi工程中,要在工程中反复调用手机号

Answer 2

var
  i: integer;
  callNumber: String;
begin
  for i :=1 to ADOTable1.RecordCount do
  begin
    callNumber := ADOTable1.FieldByName('CardNo').AsString;
    ADOTable1.Next;
  end;
end;

Answer 3

while not adoquery.eof do
beginend;

Answer 4

var
  callNumber: Stringadoquery.first;
while not adoquery.eof do
begin
    callNumber := ADOTable1.FieldByName('CardNo').AsString;
    ADOquery.Next;end;

Answer 5

加一个Timer1控件，再把GARNETT2183的代码写入OnTimer事件中

Answer 6

根据大家的指点，我写的代码是下面这样的：
procedure TForm1.Button1Click(Sender: TObject);
begin
  timer1.Enabled:=true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to ADOTable1.RecordCount do
  begin
    edit1.Text:= ADOTable1.FieldByName('CardNo').AsString;
    ADOTable1.Next;
  end;
end;
可还是不行，倒是没有语法错误，就是每次运行的时候，一点击button1，edit1.text里等上2秒钟（timer1的时间）出现最后一个手机号，然后就停止了，不再继续显示了，而且前两个手机号也没有显示，请问这是怎么回事呢？怎样才能隔2秒钟每一个手机号都能在edit1.text里显示呢？